Horizontal sundial calculations: Difference between revisions

m
→‎{{header|REXX}}: changes pi comment format.
m (→‎{{header|REXX}}: corrected spelling error.)
m (→‎{{header|REXX}}: changes pi comment format.)
Line 719:
pi: return, /*a bit of overkill, but hey !! */
3.1415926535897932384626433832795028841971693993751058209749445923078164062862
/*Note: the real PI subroutine returns PI's accuracy that */
/*matches the current NUMERIC DIGITS, up to 1 /*returns the number ofmillion digits .*/
/*that matchesJohn theMachin's currentformula is used for calculating more digits. */
/*NUMERIC DIGITS ----- up to */
/*1 million+ digits. Past that,*/
/*it calculates more digits via */
/*John Machin's formula. */
 
d2d: return arg(1)//360 /*normalize degrees►1 unit circle*/