作业帮 > 综合 > 作业

一个fortran语句的意思

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/18 22:24:52
一个fortran语句的意思
print*,'Enter r and theta (in degree):'

read*,rr,tt

xi=rr*dcos(tt*pi/180d0)
eta=rr*dsin(tt*pi/180d0)

print*,'Point:',xi,eta

call CEGR52(N,xi,eta,xb,yb,nx,ny,lg,phi,dphi,pint)

print*,pint,0.99203d0*dlog(xi**2d0+eta**2d0)
& +0.01331d0*2d0*dreal(dcmplx(xi,eta)**4d0)
& *(1d0-1d0/(xi**2d0+eta**2d0)**4d0)
& +0.00007d0*2d0*dreal(dcmplx(xi,eta)**8d0)
& *(1d0-1d0/(xi**2d0+eta**2d0)**8d0)


那print*,'Point:',xi,eta这句话输入point后,但是后面跟着xi,eta是什么意思?
还有print*,pint,0.99203d0*dlog(xi**2d0+eta**2d0)
& +0.01331d0*2d0*dreal(dcmplx(xi,eta)**4d0)
& *(1d0-1d0/(xi**2d0+eta**2d0)**4d0)
& +0.00007d0*2d0*dreal(dcmplx(xi,eta)**8d0)
& *(1d0-1d0/(xi**2d0+eta**2d0)**8d0)这一句也是print后面怎么也跟那么多话,看不懂这些!求高手解释!
还有这一句print*,'To continue with another point enter 1:'
read*,ians

if (ians.eq.1) goto 50,这一句什么意思啊?goto 50是什么意思?
这些都是Fortran77的语句 比较老了 现在基本上不用 不过编程时可以借鉴一下
print*,'Point:',xi,eta这句话 是为了输出x,y 坐标
print 是输出语句 后面很长的只是一个计算公式 "&"是连接符号,其他的都是数学运算符了
goto语句已经限制使用了 其实就是一种循环 挺方便的 你可以看到某些语句前面有50,100什么的
它在执行到if (ians.eq.1),判断为真是调到50 的那条语句
再问: 我的任务是将这些语句转化成MATLAB使用,这些我看不懂,也不知道怎么转化,特别是这一句print*,pint,后面跟一大串数学运算的那一句,劳烦您可以加一下的QQ吗?我特别需要一个懂得FORTRAN77的老师啊!
再答: 其实我Fortran77也看的不是很明白 我可以问一下同学 1》5》7》1》3》2》3》7》0