[Fortran] 纯文本查看 复制代码
t1=0.05
t2=0.25
t3=0.30
t4=0.40
t5=0.45
t6=0.65
t7=0.70
t8=0.80
x1=0
y1=0
z1=0
if(t<t1)then
x2=x1+0.01*t
y2=y1+0.16*t
z2=z1
endif
if(t1<t .and. t<t2)then
x2=x1+0.0005
y2=y1+0.008
z2=z1
endif
if(t2<t .and. t<t3)then
x2=x1+0.0005+0.01*(t-t2)
y2=y1+0.008-0.16*(t-t2)
z2=z1
endif
if(t3<t .and. t<t4)then
x2=x1+0.001
y2=y1
z2=z1
endif
if(t4<t .and. t<t5)then
x2=x1+0.001+0.01*(t-t4)
y2=y1-0.16*(t-t4)
z2=z1
endif
if(t5<t .and. t<t6)then
x2=x1+0.0015
y2=y1-0.008
z2=z1
endif
if(t6<t .and. t<t7)then
x2=x1+0.0015+0.01*(t-t6)
y2=y1-0.008+0.16*(t-t6)
z2=z1
endif
if(t7<t .and. t<t8)then
x2=x1+0.002
y2=y1
z2=z1
endif
