Orbital elements: Difference between revisions

Content added Content deleted
m (→‎{{header|Sidef}}: simplified the code to use the built-in Matrix class)
m (→‎version 2: changed whitespace.)
Line 1,066: Line 1,066:
speed= mulV( divV( speed, absV(speed) ), sqrt(2 / r - 1 / semiMaj) )
speed= mulV( divV( speed, absV(speed) ), sqrt(2 / r - 1 / semiMaj) )
say ' position:' show( mulV( MA(i, c, j, s), r) )
say ' position:' show( mulV( MA(i, c, j, s), r) )
say ' speed:' show( speed)
say ' speed:' show( speed); return
return
/*──────────────────────────────────────────────────────────────────────────────────────*/
/*──────────────────────────────────────────────────────────────────────────────────────*/
absV: procedure; parse arg x y z; return sqrt(x**2 + y**2 + z**2)
absV: procedure; parse arg x y z; return sqrt(x**2 + y**2 + z**2)