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

[EquisMetaStock Group] Re: full moon



PureBytes Links

Trading Reference Links

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/