Horizontal sundial calculations: Difference between revisions

No attempt was made to explain the inner workings of these functions.

<lang rexx>/*REXX program shows hour/sun hour angle/dial hour line angle, 6am->6pm.*/

numeric digits 60 /*better overkill then underkill. */

 

say indent center(' ',w1) center('sun hour',w2) center('dial hour' ,w3)

say indent center('hour',w1) center('angle' ,w2) center('line angle',w3)

 

do h=-6 to 6 /*Okey dokey then, let's get busy*/

end

 

exit