Another nice one: /* Full/New Moon signals indicator MkVII Accurate to within 1 Minute per 69 years.
©Copyright 2001-2006 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 next trading Day. Warning: will NOT Plot last FM/NM Signal until it is confirmed on next trade Day.*/ // Input your local time zone TZ=Param("Your local Time Zone? [-12 to +12hrs]",1, -12,12,1); // 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= IIf(Month()==2,31-leap, IIf(Month()==3,59, IIf(Month()==4,90, IIf(Month()==5,120, IIf(Month()==6,151, IIf(Month()==7,181, IIf(Month()==8,212, IIf(Month()==9,243, IIf(Month()==10,273, IIf(Month()==11,304, IIf(Month()==12,334, -leap))))))))))); CurrentDay=y+m+Day()-TZ/24-Offset; // Full Moon } FM=frac(CurrentDay/LunarMonth); FM=PeakBars(FM, 1, 1)==0; // New Moon } NM=frac((CurrentDay+LunarMonth/2)/LunarMonth); NM=PeakBars(NM, 1,1)==0; //Plot Moon signals in own window } Plot(fm-nm, "Moon", colorWhite, styleHistogram); PlotShapes(IIf((FM-NM)>0,shapeCircle, IIf((FM-NM)<0, shapeHollowCircle, shapeNone)), colorBlack, 0,0); --- In amibroker@yahoogroups.com, "rhoemke" <[EMAIL PROTECTED]> wrote: > > Hope its correct. > > /* Full/New Moon signals indicator MkVII > Accurate to within 1 Minute per 69 years. > > ©Copyright 2001-2006 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 next trading Day. > Warning: will NOT Plot last FM/NM Signal > until it is confirmed on next trade Day.*/ > > // Input your local time zone > TZ=Param("Your local Time Zone? [-12 to +12hrs]",1, -12,12,1); > > // 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= > IIf(Month()==2,31-leap, > IIf(Month()==3,59, > IIf(Month()==4,90, > IIf(Month()==5,120, > IIf(Month()==6,151, > IIf(Month()==7,181, > IIf(Month()==8,212, > IIf(Month()==9,243, > IIf(Month()==10,273, > IIf(Month()==11,304, > IIf(Month()==12,334, -leap))))))))))); > CurrentDay=y+m+Day()-TZ/24-Offset; > > // Full Moon } > FM=frac(CurrentDay/LunarMonth); > FM=PeakBars(FM, 1, 1)==0; > > // New Moon } > NM=frac((CurrentDay+LunarMonth/2)/LunarMonth); > NM=PeakBars(NM, 1,1)==0; > > //Plot Moon signals in own window } > Plot(FM-NM, "Moonphase", colorBlack, styleHistogram); > > Regards > Robert > > --- In amibroker@yahoogroups.com, "vichooo_1999" <vichooo_1999@> wrote: > > > > --- In amibroker@yahoogroups.com, "Richard Dale" <richard@> wrote: > > > > > > For anyone who is genuinely interested, Jose Silva has developed > > such an > > > indicator for Metastock (for free) and the code is here: > > > > > > http://www.metastocktools.com/MetaStock/Lunar.txt > > > > > > > > > > > > It should be pretty easily portable to AmiBroker. > > > > > > > > > > > > Best regards, > > > Richard Dale. > > > Norgate Investor Services > > > - Premium quality Stock, Futures and Foreign Exchange Data for > > > markets in Australia, Asia, Canada, Europe, UK & USA - > > > www.premiumdata.net > > > > > > > > > Please add a vertical line for Full Moon and New moon in the afl. > > thanks > > > Please note that this group is for discussion between users only. To get support from AmiBroker please send an e-mail directly to SUPPORT {at} amibroker.com For other support material please check also: http://www.amibroker.com/support.html Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/amibroker/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
