Orbital elements: Difference between revisions

m
(J)
m (→‎{{header|J}}: cleaner)
Line 752:
NB. w: argument of Periapsis (the other "omega")
NB. f: true anomaly
'a e i Om w f'=:. y
lL=:. a*2:`]@.*1-*:e
'c s'=. 2{.,F=:. 2 R f
ra=:. lL % 1+ e*c
rp=:. s*ra*ra%lL
ijk=:. F X (2 R w)X(0 R i)X(2 R Om)
position=:. ra*{.ijk
speed=:. (%:(2%ra)-%a)*(%%:@X~) (rp,ra,0) X ijk
position,:speed
}}</lang>
Line 766:
0.779423 0.45 0
_0.552771 0.957427 0</lang>
 
=={{header|Java}}==
{{trans|Kotlin}}
6,962

edits