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

[EquisMetaStock Group] Re: full moon



PureBytes Links

Trading Reference Links

--- In equismetastock@xxxxxxxxxxxxxxx, "Jose" <josesilva22@xxxx> 
wrote:
> 
> As nice as it is to see my MS code again, it would be even nicer to 
> see it with the copyright header intact... ;)
> 
> ===========
> Lunar cycle
> ===========
> ---8<---------------------------
> 
> { Full/New Moon signals indicator MkV }
> { Accurate to within 1 minute per 69 years }
> { ©Copyright 2002-2004 jose silva }
> { http://users.bigpond.com/prominex/pegasus.htm }
> 
> { Plots +1 signal on Full Moon; -1 on New Moon }
> { If FM/NM falls on a holiday or weekend,
>   signal is plotted on the nearest trading day }
> 
> Span:=Input("Full/New Moon signal, total span in days",1,9,1);
> TZ:=Input("Time Zone (-12 to +12hrs)",
>  -12,12,-10);
> 
> LunarMonth:=29.530589;
> Offset:=7.254621;
> 
> leap:=Frac(Year()/4)=0 AND Frac(Year()/100)<>0
>  OR Frac(Year()/400)=0;
> y:=Year()*365+Int(Year()/4)
>  -Int(Year()/100)+Int(Year()/400);
> m:=
>  If(Month()=2,31-leap,
>  If(Month()=3,59,
>  If(Month()=4,90,
>  If(Month()=5,120,
>  If(Month()=6,151,
>  If(Month()=7,181,
>  If(Month()=8,212,
>  If(Month()=9,243,
>  If(Month()=10,273,
>  If(Month()=11,304,
>  If(Month()=12,334,
>  -leap)))))))))));
> CurrentDay:=y+m+DayOfMonth()+TZ/24-Offset;
> 
> FM:=Frac(CurrentDay/LunarMonth);
> NM:=Frac(FM+0.5);
> 
> 0;Ref(Alert(FM>Ref(FM,1),Span),Span/2)+
>  -Ref(Alert(NM>Ref(NM,1),Span),Span/2)
> 
> ---8<---------------------------
> 
> jose '-)
> 
> 
> 
> --- In equismetastock@xxxxxxxxxxxxxxx, Claudb <claudb@xxxx> wrote:
> > This may help.
> > 
> > {plots +1 signal on Full Moon & -1 on New Moon}
> > {if FM/NM falls on a holiday or weekend, signal is plotted on the 
> > closest trading day}
> > 
> > Span:=Input("Full/New Moon signal, total span in days",1,9,1);
> > TZ:=
> >  Input("Time Zone (-12 to +12hrs)",-12,12,-10);
> > 
> > LunarMonth:=29.530589;
> > Offset:=7.254621;
> > 
> > leap:=Frac(Year()/4)=0 AND Frac(Year()/100)<>0
> >  OR Frac(Year()/400)=0;
> > y:=Year()*365+Int(Year()/4)
> >  -Int(Year()/100)+Int(Year()/400);
> > m:=
> >  If(Month()=2,31-leap,
> >  If(Month()=3,59,
> >  If(Month()=4,90,
> >  If(Month()=5,120,
> >  If(Month()=6,151,
> >  If(Month()=7,181,
> >  If(Month()=8,212,
> >  If(Month()=9,243,
> >  If(Month()=10,273,
> >  If(Month()=11,304,
> >  If(Month()=12,334,
> >  -leap)))))))))));
> > CurrentDay:=y+m+DayOfMonth()+TZ/24-Offset;
> > 
> > FM:=Frac(CurrentDay/LunarMonth);
> > NM:=Frac(FM+0.5);
> > 
> > 0;Ref(Alert(FM>Ref(FM,1),Span),Span/2)+
> > Ref(Alert(NM>Ref(NM,1),Span),Span/2)*-1
> > 
> > Claud
> > 
> > dcmergers wrote:
> > 
> > > Greetings all.  I am new to this group.
> > > Does anyone happen to know how to code a vertical line
> > > for every full moon?
> > > Thanks in advance, Dave




------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com.  Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/BefplB/TM
---------------------------------------------------------------------~->

 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
     http://groups.yahoo.com/group/equismetastock/

<*> To unsubscribe from this group, send an email to:
     equismetastock-unsubscribe@xxxxxxxxxxxxxxx

<*> Your use of Yahoo! Groups is subject to:
     http://docs.yahoo.com/info/terms/