|
PureBytes Links
Trading Reference Links
|
Robert, Nice presentation. Interesting to see the turns on or close to the
Full Moon.
Larry
_____
From: amibroker@xxxxxxxxxxxxxxx [mailto:amibroker@xxxxxxxxxxxxxxx] On Behalf
Of rhoemke
Sent: Saturday, September 02, 2006 1:45 PM
To: amibroker@xxxxxxxxxxxxxxx
Subject: [amibroker] Re: Moon Phases
Hope its correct.
/* Full/New Moon signals indicator MkVII
Accurate to within 1 Minute per 69 years.
CCopyright 2001-2006 Jose Silva
for personal use only
http://www.metastoc <http://www.metastocktools.com> ktools.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@xxxxxxxxx <mailto:amibroker%40yahoogroups.com> ps.com,
"vichooo_1999" <vichooo_1999@xxx> wrote:
>
> --- In amibroker@xxxxxxxxx <mailto:amibroker%40yahoogroups.com> ps.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.metastoc <http://www.metastocktools.com/MetaStock/Lunar.txt>
ktools.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
>
|