|
PureBytes Links
Trading Reference Links
|
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 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 }
>>>>>> { ©Copyright 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
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>
>
>
>
>
>
>
> 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
>
>
>
>
>
>
>
|