|
PureBytes Links
Trading Reference Links
|
http://aa.usno.navy.mil/faq/docs/UT.html
d
> -----Original Message-----
> From: amibroker@xxxxxxxxxxxxxxx
> [mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf Of thorstef2003
> Sent: Monday, July 10, 2006 3:39 AM
> To: amibroker@xxxxxxxxxxxxxxx
> Subject: [amibroker] Re: Moon Phase Indicator
>
> 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 amibroker@xxxxxxxxxxxxxxx, e <e.winters1@xxx> 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 } { CCopyright 2002-2004 jose
> silva } { For
> > >>>> personal use only } { josesilva22@xxxx }
> > >>>>
> > >>>> { 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 amibroker@xxxxxxxxxxxxxxx, "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: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxx.
> com]
> > > On Behalf
> > >> Of thorstef2003
> > >> Sent: Sunday, July 09, 2006 9:31 AM
> > >> To: amibroker@xxxxxxxxxxxxxxx
> > >> 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
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> >
>
>
>
>
>
>
> ------------------------ Yahoo! Groups Sponsor
> --------------------~--> Yahoo! Groups gets a make over. See
> the new email design.
> http://us.click.yahoo.com/XISQkA/lOaOAA/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
>
>
>
>
>
>
|