N88-BASICでコリオリ力 (1回目)
2023/10/2(月) N88-BASICでコリオリ力 (1回目) (Coriolis force) 地球の半径 ■ 前提 ▼ 参照 詳しくは https://ulprojectmail.blogspot.com/2023/09/coriolis-2.html コリオリ力 (2回目) ▼ 定義 T:地球の自転周期[86164.098903691(s)] ω:地球の角速度[2π/T (rad/s)] R EE :地球赤道半径[6378.1×10 3 (m)] R PE :地球極 半径[6356.8×10 3 (m)] G:重力定数[6.67430×10 -11 (Nm 2 /kg 2 )] M:地球質量[5.972×10 24 (kg)] R:地球の半径[6367.5×10 3 (m)北緯45°] g:重力加速度[g = GM/R 2 ≒ 9.83077(m/s 2 )] n :P(x,y)の法線(垂直抗力の方向) φ:地理緯度 Φ:地心緯度 β:パラメトリック緯度(更成緯度) γ:天文経度(重力が指す方向との角γ≒φ) ▼ 地球半径 a = R EE = 6378.1×10 3 (m) 地球赤道半径 b = R PE = 6356.8×10 3 (m) 地球極 半径 β = Tan -1 {(b/a)tanφ} R = √{(acosβ) 2 + (bsinβ) 2 } または tanβ = (b/a)tanφ R = √{(a 2 + b 2 tan 2 β)/(1 + tan 2 β)} ■ 解説 φを入力して βと地球半径Rを表示します VL,NL ,XL と blg~.zip ( cori 00 1 .bas)は 以下のリンクからダウンロードできます https://ulprojectmail.blogspot.com Readme.txtを読んで遊んで下さい