重力のみが作用する振り子の運動を解析するプログラムを完成させよ。
real L
data g, L / 9.8, 1.0 /
write (＊,＊) ’ Δt (sec) ＝’
read (＊,＊) dt
＊initial
2 write (＊,＊) ’ θ0 (radian) ＝’
read (＊,＊) s0
s ＝❔
v ＝❔
t ＝❔
vL＝v
＊ repeat
1 a＝ ❔
v ＝❔
w＝❔
s ＝❔
t ＝❔
write (＊,’(3f8.4)’)
if (vL.gt.0.0.and.v.lt.0.0) go to 2
vL＝v
go to 1
end
知り合いとやってるのですが出来る気配がありません。
❔部分に何が入るか教えて下さい。
Δ、θは置き換えますよね？