12.度分秒の変換計算
lprint type"dc"'-----------度分秒計算-------------defdbl A-H,L,P-Y:defstr N,K:defint I,J,CPI=3.141592653589793#:EE=0.0000000001#RA=206264.8062471#:RAA=180#/PI:RRA=PI/180#def fnRRA(T)=(T*10000#-40#*(fix(T*100#)+60#*fix(T)))/RAdef fnRAA(T)=(…
lprint type"dc"'-----------度分秒計算-------------defdbl A-H,L,P-Y:defstr N,K:defint I,J,CPI=3.141592653589793#:EE=0.0000000001#RA=206264.8062471#:RAA=180#/PI:RRA=PI/180#def fnRRA(T)=(T*10000#-40#*(fix(T*100#)+60#*fix(T)))/RAdef fnRAA(T)=(…