REALD2R=pi/180REALR2D=180/pi#LOCALINTEGERiDOi=1,6$out(i)=SIN(($in(i)/180.0)*PI)EN谁知道这两段fortran分别是什么意思啊

Question

REAL D2R = pi/180 REAL R2D = 180/pi #LOCAL INTEGER i DO i=1,6 $out(i) = SIN(($in(i)/180.0)*PI_) EN
谁知道这两段fortran分别是什么意思啊

Answer 1

我也想知道……
REAL D2R = pi/180
（角度转弧度,单位为：弧度/度）
比如：60° （角度）=60*D2R=pi/3（弧度）
REAL R2D = 180/pi
（弧度转角度,单位为：度/弧度）
比如：2*pi （弧度）=2*pi*R2D=360°（角度）
以下是求1-6度的sin值
#LOCAL INTEGER i
DO i=1,6
$out(i) = SIN(($in(i)/180.0)*PI_)
END