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

Re: [EquisMetaStock Group] full Moon/New Moon indicator



PureBytes Links

Trading Reference Links

Claud, I would be grateful if you would kindly *not remove* the 
copyright header from any of my published MS code.

As for the indicator's accuracy, one only has to plot its signals below any 
complete chart, and take a look out the window to verify if they match.  
Seeing is believing. ;)


jose '-)
http://www.metastocktools.com



Original Lunar cycle indicator:

MetaStock -> Tools -> Indicator Builder -> New
Copy and paste formula below.

===========
Lunar cycle
===========
---8<---------------------------

{ Full/New Moon signals indicator MkVI }
{ Accurate to within 1 minute per 69 years }
{ ©Copyright 2002-2004 jose silva }
{ For personal use only }
{ http://www.metastocktools.com }

{ 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 }
{ Warning: will not plot last FM/NM signal
   until it is confirmed on next trade day }

{ Input your world time zone }
TZ:=Input("Your Time Zone?  (-12 to +12hrs)",
 -12,12,10);

{ Lunar cycle }
LunarMonth:=29.530589;
Offset:=7.254621;

{ Calendar }
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;

{ Full/New Moon }
FM:=Frac(CurrentDay/LunarMonth);
NM:=Frac(FM+0.5);

{ Plot in own window below chart }
(PeakBars(1,FM,.01)=0)-(PeakBars(1,NM,.01)=0)

---8<---------------------------




--- In equismetastock@xxxxxxxxxxxxxxx, Claud Baruch <claudb@xxxx> 
wrote:
> {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
> 
>
> Al Dina wrote:
> 
> Hello,
>  
> A while ago, I believe that Jose or someone else posted the code for 
> the Full Moon/New Moon.  Does anybody have that code and do they
> know if it is accurate? 
>  
> Any help would be appreciated.
>  
> Thanks,
> Al






 
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/