N88-BASICで遠心力 (3回目)

2023/3/30(木)
N88-BASICで遠心力 (3回目)
 
(Centrifugal force)
 
式など詳しくは
https://ulprojectmail.blogspot.com/2023/03/centrifugal-3.html
遠心力 (3回目)
を参照して下さい
 
 

 
 

図1.O→A→B→Cと移動する質量mの質点(Cは最終接地点)
　　その後の最高点をE,着地点をFとする
　　O→A→B→C→E→FまたはO→A→B→D→F
 
 
半円の半径rと離す高さhを入力すると
 
h ≧ h₀ = 5/2rの時
　B地点の速度vb
　D地点の速度vd
　F地点の位置(xf, 0 )
を表示
v_D = √{2g(h - 2r)}
 
h ＜ h₀ = 5/2rの時
　B地点の速度vb
　C地点の速度vc, (vcx,vcy), 角度θ=vcθ
　C地点の位置(xc, hc)
　E地点の位置(xe, he)
　F地点の位置(xf, 0 )
を表示
v_B = √(2gh)
cosθ_C = (r - h_C)/r
sinθ_C = x_C / r
h_C = (r + 2h)/3 (h_C = h if h ≦ r)
x_C = √{r² - (r - h_C)²}
v_C = √{2g(h - r) / 3} (v_C = 0 if h ≦ r)
v_C = = (v_Cx,v_Cy) = (v_Ccosθ_C,v_Csinθ_C)
t₁ = v_Cy/g
h_E = h_C + v_Cy²/(2g)
x_E = x_C + v_Cxt₁ = x_C + v_Cxv_Cy/g
t₂ = √(2h_E/g)
x_F = x_E + v_Cxt₂ 
 
 
ここでATN()は-π/2～π/2の関数なので
(π/2=90ﾟ)
tan(π/2-θ) = cosθ/sinθなので
π/2-θ = ATN(cosθ/sinθ)
θ = π/2 - ATN(cosθ/sinθ)
として0～πを求めています
 
 
VL,NL,XL-BASICとblg～.zip(cent003.bas)は
以下のリンクからダウンロードできます

https://ulprojectmail.blogspot.com
Readme.txtを読んで遊んで下さい