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

Re: 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. :-)


thanks Iain - I used that (? - not sure, might be different) aswell 
some time ago and found out its not correct.........

Does someone use that (below) and can confirm that is correct or post 
a correct one if this one is NOT ?

TIA
rgds hans

 
> {******************************************}
> 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
> 
> 

~~~~~
....and bear in mind 
that high reward does not come without its partner high risk !