Full Moon Dates

[iain bell <iain@xxxxxxxxxxxxxxxx>]

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