Rodrigues’ rotation formula: Difference between revisions
m
→{{header|RPL}}: add comments
(add RPL) |
m (→{{header|RPL}}: add comments) |
||
Line 1,088:
=={{header|RPL}}==
This is a direct transcription from Wikipedia's formula.
≪ DEG SWAP DUP ABS /
→ v θ k
≪ v θ COS *
k v CROSS θ SIN * +
k DUP v DOT * 1 θ COS - * +
→NUM <span style="color:grey">@ can be removed if using HP-28/48 ROM versions</span>
≫ ≫ '<span style="color:blue">ROTV</span>' STO <span style="color:grey">@ ''( vector axis-vector angle → rotated-vector )''</span>
[-1 2 .4] [0 2 1] 18 <span style="color:blue">ROTV</span>
| |||