14.真北計算
lprint type"dc"*TAIYOSUKANSOKU'太陽観測defdbl A-H,M,P,O,R,T-Z:defstr N,Q,S:defint I,JEET=1/100000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#XYAS=180#/PI:ASXY=PI/180#dim DS(17),A1(20),A2(20),XT(20),DD1(10),AAT(10),AS1(6)…
lprint type"dc"*TAIYOSUKANSOKU'太陽観測defdbl A-H,M,P,O,R,T-Z:defstr N,Q,S:defint I,JEET=1/100000000#:EES=1.0027379#:EEE=0.006719218798677#PI=3.141592653589793#XYAS=180#/PI:ASXY=PI/180#dim DS(17),A1(20),A2(20),XT(20),DD1(10),AAT(10),AS1(6)…