100 DEF FNR(X!) = PI# / 180 * X!: ' CONVERTS DEGREES TO RADIANS
150 DEF FNU(X!) = X! - ( INT (X! / MO) * MO):MO = 360
7630 '******** DARK-MOON **********
7670 TD#=JD-2415020#: T9=TD#/10000
7680 D8=FNU(154.329556#+TD#*.1114040567#-T9#*T9#*.00077385#-T9#*T9#*T9#*.0000002572#)
7690 D6=FNR(FNU(L(1)-D8))
7700 L(12)=FNU(D8+SIN(2*D6)*8.64433#-SIN(4*D6)*.65209#):'TRUE DARK MOON 真月孛
7710 L(13)=FNU(D8):'MEAN DARK MOON 平均月孛
7720 L1(12)=0
7730 RETURN
JD:Julian date
L(1)=Sun Longitude太陽度
150 DEF FNU(X!) = X! - ( INT (X! / MO) * MO):MO = 360
7630 '******** DARK-MOON **********
7670 TD#=JD-2415020#: T9=TD#/10000
7680 D8=FNU(154.329556#+TD#*.1114040567#-T9#*T9#*.00077385#-T9#*T9#*T9#*.0000002572#)
7690 D6=FNR(FNU(L(1)-D8))
7700 L(12)=FNU(D8+SIN(2*D6)*8.64433#-SIN(4*D6)*.65209#):'TRUE DARK MOON 真月孛
7710 L(13)=FNU(D8):'MEAN DARK MOON 平均月孛
7720 L1(12)=0
7730 RETURN
JD:Julian date
L(1)=Sun Longitude太陽度
前一個議題
索引