一个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)
来源:学生作业帮助网 编辑:作业帮 时间:2024/11/06 03:46:36
一个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)
一个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是什么意思?
一个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)
这些都是Fortran77的语句 比较老了 现在基本上不用 不过编程时可以借鉴一下
print*,'Point:',xi,eta这句话 是为了输出x,y 坐标
print 是输出语句 后面很长的只是一个计算公式 "&"是连接符号,其他的都是数学运算符了
goto语句已经限制使用了 其实就是一种循环 挺方便的 你可以看到某些语句前面有50,100什么的
它在执行到if (ians.eq.1),判断为真是调到50 的那条语句