Thanks again, to all who helped with special thanks to Dave and raintree. --- In [email protected], e <[EMAIL PROTECTED]> wrote: > > TZ == Time Zone in relation to GMT. > -10 Hawaii > -5 NY > +3 Baghdad > etc. > > thorstef2003 wrote: > > Thank you, raintree! > > TZ = Param("Time Zone",-5,-12,12); > > Can you provide an example of "Time Zone"? If a number then is it with > > reference to GMT? > > > > --- In [email protected], e <e.winters1@> wrote: > >> Translated: > >> // Full/New Moon signals indicator > >> // Accurate to within 1 Minute per 69 years } > >> > >> // 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 = Param("Time Zone",-5,-12,12); > >> > >> // Lunar cycle > >> LunarMonth = 29.530589; > >> Offset = 7.254621; > >> > >> // Calendar > >> // leap = frac(Year()/4)=0 AND frac(Year()/100)<0 OR frac(Year()/ > > 400)=0; > >> leap1 = IIf(frac(Year()/4)==0,1,0); > >> leap2 = IIf(frac(Year()/100)<0,1,0); > >> leap3 = IIf(frac(Year()/400)==0,1,0); > >> leap = Leap1 AND Leap2 AND Leap3; > >> > >> 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/New Moon } > >> FM = frac(CurrentDay/LunarMonth); > >> NM = frac(FM+0.5); > >> > >> // Plot in own window below chart } > >> Plot(fm,"Full Moon",colorBlue,styleLine); > >> Plot(nm,"New Moon",colorRed,styleLine); > >> // (PeakBars(1,FM,.01)=0)-(PeakBars(1,NM,.01)=0) > >> Filter=1; > >> > >> thorstef2003 wrote: > >>> Thank you, Dave. > >>> Was hoping someone had the AFL, but this link is a good step > > forward. > >>> Very surprising, that after so many years of AB, nobody programmed > > a > >>> moon phase AFL!? > >>> > >>>>>> { Full/New Moon signals indicator MkVI } > >>>>>> { Accurate to within 1 minute per 69 years } > >>>>>> { ©Copyright 2002-2004 jose silva } > >>>>>> { For personal use only } > >>>>>> { [EMAIL PROTECTED] } > >>>>>> > >>>>>> { 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) > >>>>>> > >>> Anyone able to translate this? > >>> > >>> --- In [email protected], "MarketMonk777" <dlittner@> > >>> wrote: > >>>> Hi Stef, > >>>> > >>>> Check out this link: > >>>> http://www.purebytes.com/archives/metastock/2004/msg05973.html > >>>> > >>>> The code is for MetaStock but am fairly certain it can be > > converted. > >>>> And here is a long winded conversation about planet's and the > >>> markets: > >>>> http://www.purebytes.com/archives/omega/2003/msg05801.html > >>>> > >>>> And finally, code for Omega Tradestation, which is a little bit > >>> tougher in > >>>> some cases to convert: > >>>> http://www.purebytes.com/archives/omega/2002/msg00476.html > >>>> > >>>> Regards, > >>>> > >>>> Dave > >>>> MarketMonk > >>>> > >>>> -----Original Message----- > >>>> From: [email protected] [mailto:[EMAIL PROTECTED] > > com] > >>> On Behalf > >>>> Of thorstef2003 > >>>> Sent: Sunday, July 09, 2006 9:31 AM > >>>> To: [email protected] > >>>> Subject: [amibroker] Moon Phase Indicator > >>>> > >>>> Hi, > >>>> I've gone through all the archives and nobody seems to have > >>> programmed an > >>>> indicator to overlay moon pases on the price charts. > >>>> Can somebody please provide a link or the AFL of a moon phase > >>> indicator? > >>>> Thanks. > >>>> Stef > >>>> > >>>> > >>>> > >>>> > >>>> > >>>> 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 > >>>> > >>> > >>> > >>> > >>> > >>> > >>> > >>> 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 > >>> > >>> > >>> > >>> > >>> > >>> > >>> > >>> > > > > > > > > > > > > > > > > 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 > > > > > > > > > > > > > > >
------------------------ Yahoo! Groups Sponsor --------------------~--> Check out the new improvements in Yahoo! Groups email. http://us.click.yahoo.com/6pRQfA/fOaOAA/yQLSAA/GHeqlB/TM --------------------------------------------------------------------~-> 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/
