Orbital elements: Difference between revisions

Content added Content deleted
m (→‎version 2: used a simpler version of negative one.)
m (→‎version 2: aligned a PARSE statement's parameters.)
Line 1,368: Line 1,368:
say ' true anomaly:' fmt(anomaly)
say ' true anomaly:' fmt(anomaly)
i= 1 0 0; j= 0 1 0; k= 0 0 1 /*define the I, J, K vectors.*/
i= 1 0 0; j= 0 1 0; k= 0 0 1 /*define the I, J, K vectors.*/
parse value rot(i, j, node) with i '~' j /*rotate ascending node longitude.*/
parse value rot(i, j, node) with i '~' j /*rotate ascending node longitude.*/
parse value rot(j, k, inclination) with j '~' /*rotate the inclination. */
parse value rot(j, k, inclination) with j '~' /*rotate the inclination. */
parse value rot(i, j, periapsis) with i '~' j /*rotate the argument of periapsis*/
parse value rot(i, j, periapsis) with i '~' j /*rotate the argument of periapsis*/