Orbital elements: Difference between revisions
m
→{{header|REXX}}: version 1 - replace pi() by pi=3.14etc
m (→version 2: added two escape clauses (optimizations) for the SIN and COS trigonometric functions.) |
Walterpachl (talk | contribs) m (→{{header|REXX}}: version 1 - replace pi() by pi=3.14etc) |
||
Line 890:
Numeric Digits (2*prec)
Numeric Fuzz 3
pi=left('3.1415926535897932384626433832795028841971693993751058209749445923,2*prec+1)
Do While x>pi
x=x-pi
Line 930:
End
Numeric Digits prec
Return r+0</lang>
{{out}}
<pre>Position : (0.7794228433986798,0.4500000346536842,0)
|