Orbital elements: Difference between revisions

Content added Content deleted
m (→‎{{header|J}}: unrevert typo fix)
m (→‎{{header|J}}: put that comma where it was originally supposed to be)
Line 740: Line 740:


=={{header|J}}==
=={{header|J}}==
{{trans|Raku}}<lang J>NB. euler rotation matrix left hand rule
{{trans|Raku}}<lang J>NB. euler rotation matrix, left hand rule
NB. x: axis (0, 1 or 2), y: angle in radians
NB. x: axis (0, 1 or 2), y: angle in radians
R=: {{ ((2 1,:1 2) o.(,-)y*_1^2|x)(,&.>/~0 1 2-.x)} =i.3 }}
R=: {{ ((2 1,:1 2) o.(,-)y*_1^2|x)(,&.>/~0 1 2-.x)} =i.3 }}