[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Full Moon Dates



PureBytes Links

Trading Reference Links

>Didn't see the post from Bob Fulks referred to by Bob Brickey, and not sure
>if this is what is needed, but just in case anyone's interested I thought
>I'd repost this code which plots full moons. It can be adapted to a number
>of different uses. I got it off the Omega list many moons ago. :-)
>
>
>{******************************************}
>Vars:AstroJul(0),Lunation(0),Phase(0);
>AstroJul =DateToJulian(Date)+ 2415019 ;
>Lunation = (AstroJul+4.867) / 29.53059 ;
>Phase = FracPortion(Lunation);
>If IntPortion(Lunation)> IntPortion(Lunation[1]) then Value1=1 else
>value1=0;
>
>Plot1[1](value1,"FullMoon");
>
>{*****************************************}
>
>Iain Bell
>iain@xxxxxxxxxxxxxxxx

There is a similar indicator, or used to be, called Luna.zip at the Omega EL
download site. Also an ELSI dated 03/01/96 had an indicator called
Lunarcicle (sic) which says it plots a dot every 27 days, marking the full
moons.

David