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

[EquisMetaStock Group] Re: astrology module



PureBytes Links

Trading Reference Links

I found this indicator formula written by someone else to display 
new moon and full moon cycle.  You can copy and paste the following 
to your MS indicator list.





{ Full/New Moon signals indicator MkV;
  Accurate to within 1 minute per 69 years;
  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)


--- In equismetastock@xxxxxxxxxxxxxxx, elnaseer dina 
<zebra7860@xxxx> wrote:
> Hello,
>  
> Does anybody know if MS can handle an astrology module and an 
ephemeris?  Doubt that it can, unlike TS but I had to ask.
>  
> Thanks,
> Al
> 
> 
> 
> ---------------------------------
> Post your free ad now! Yahoo! Canada Personals



------------------------ Yahoo! Groups Sponsor --------------------~--> 
Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar.
Now with Pop-Up Blocker. Get it for free!
http://us.click.yahoo.com/L5YrjA/eSIIAA/yQLSAA/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/