Air mass: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,245: / Line 1,245: @@
 │         34.32981136                    34.36666557
 ─────┴─────────────────────────────────────────────────────────────
+</pre>
+=={{header|RPL}}==
+{{trans|FreeBASIC}}
+ ≪ → a ≪ a NEG 8500 / EXP ≫ ≫ ‘'''RHO'''’ STO
+ ≪ ''''RHO'''(√(aa^2+D^2-2*aa*D*COS(180-Z))-re)' EVAL
+ ≫ ‘'''COLD'''’ STO
+ ≪
+  6371000 3 PICK OVER + → a z re aa
+   ≪ DEG
+     z 'Z' STO ''''COLD'''' { D 0 1E7 } 1E-7 ∫ DROP
+'Z' STO ''''COLD'''' { D 0 1E7 } 1E-7 ∫ DROP /
+ ≫ ≫ ‘'''AM'''’ STO
+ ≪ { } 0 90 '''FOR''' z z + z '''AM''' + 5 '''STEP''' ≫
+{{out}}
+<pre>
+: { 0 1
+1.00380686363
+1.01537368745
+1.03515302646
+1.06394782383
+1.10299392042
+1.15409753978
+1.21985818096
+1.30403285254
+1.41214767977
+1.55256798138
+1.73847475415
+1.99177718552
+2.35157928673
+2.89478919419
+3.79512945489
+5.53784169364
+10.0771111633
+34.3235064081 }
 </pre>