Anonymous user
Orbital elements: Difference between revisions
m
→version 2: aligned some statements, added whitespace.
m (→version 2: moved subroutines/functions, added whitespace.) |
m (→version 2: aligned some statements, added whitespace.) |
||
Line 958:
return mulV( MA(i,c,j,s), r)'~'mulV( divV( speed, absV(speed)),sqrt(2/r -1/semiMaj))
/*──────────────────────────────────────────────────────────────────────────────────────*/
absV: procedure; parse arg x
divV: procedure; parse arg x
mulV: procedure; parse arg x
show: procedure; parse arg a
fmt: procedure; parse arg #; return left('',
MA: procedure; parse arg x y z,a,xx yy zz,b;
pi: pi= 3.1415926535897932384626433832795028841971693993751058209749445923;
rot: procedure; parse arg i,j,$; return MA(i,cos($),j,sin($))'~'MA(i, -sin($), j, cos($))
r2r: return arg(1) // (pi() * 2) /*normalize radians ──► a unit circle*/
|