Hi ....
I have Commented two lines of code.... Now the Afl shall give the desired
result...
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Fibonacci");
//Date: 12-January 2002 by Thomas Zmuck
//[EMAIL PROTECTED]
Offset = 5; //use two sheets: one with 5 and another with 7, or maybe other
offset value
Avgmov = Offset*MA(abs(ROC(*C*,1)),20);
per = LastValue(Avgmov);
x=Cum(1); Range = 0.01;
PS = TroughBars(*L*,per,1) == 0;
xa = LastValue(ValueWhen(PS,x,1));//x from last trough
Ya = LastValue(ValueWhen(PS,*L*,1));//y (Low) last trough
PR = PeakBars(*H*,per,1) == 0;
xb = LastValue(ValueWhen(PR,x,1));//x from last peak
Yb = LastValue(ValueWhen(PR,*H*,1));//y (High) last peak
Trough_ReTest = abs((*L*/ya)-1)<Range;
Peak_ReTest = abs((*H*/yb)-1)<Range;
Trough_Cross = Cross(ya,*C*);
Peak_Cross = Cross(*C*,yb);
//UP = upSwing DN = downSwing
UP = xb>xa;//upSwing
DN = xa>xb;//DownSwing
RT23_6 = IIf(UP,yb-(yb-ya)*0.236,IIf(DN,ya+(yb-ya)*0.236,-1e10));
RT38_2 = IIf(UP,yb-(yb-ya)*0.382,IIf(DN,ya+(yb-ya)*0.382,-1e10));
RT50_0 = IIf(UP,yb-(yb-ya)*0.500,IIf(DN,ya+(yb-ya)*0.500,-1e10));
RT61_8 = IIf(UP,yb-(yb-ya)*0.618,IIf(DN,ya+(yb-ya)*0.618,-1e10));
RT78_6 = IIf(UP,yb-(yb-ya)*0.786,IIf(DN,ya+(yb-ya)*0.786,-1e10));
RT=
IIf(UP,-100*(yb-*L*)/(yb-ya),
100*(*H*-ya)/(yb-ya));//Retracement_Value
InZone = *C*<yb & *C*>ya;//use it for filter to receive only signals that
are in in the Retracement zone.
*
Buy* = Trough_ReTest *OR* peak_Cross;
*
Sell* = Peak_ReTest *OR* trough_Cross;
*
Filter* = 1;
AddColumn(RT,"RT%");
AddColumn(Trough_ReTest,"TR-Test",1.0);
AddColumn(Peak_ReTest,"PK-Test",1.0);
AddColumn(Trough_Cross,"TR-Cross",1.0);
AddColumn(Peak_Cross,"PK-Cross",1.0);
//AddColumn(CdDoji()OR CHammer(),"Candle",1.0);
Plot(*C*,"C",1,64);
Plot(IIf(x>xa,ya,-1e10),"Bottom",*colorBrown*,1+8);
Plot(IIf(x>xb,yb,-1e10),"Top",*colorBrown*,1+8);
xab = IIf(xb>xa,xb,xa);
//Retracements
Plot(IIf(x>=xab+1,RT23_6,-1e10),"23,6% Retr.",5,1);
Plot(IIf(x>=xab+1,RT38_2,-1e10),"38,2% Retr.",5,1);
Plot(IIf(x>=xab+1,RT50_0,-1e10),"50,0% Retr.",*colorBlue*,1);
Plot(IIf(x>=xab+1,RT61_8,-1e10),"61,8% Retr.",*colorYellow*,1);
Plot(IIf(x>=xab+1,RT78_6,-1e10),"78,6% Retr.",*colorYellow*,1);
*
GraphXSpace* = 0.5;
//Plot(Gauss2ord(C,5),"M5",4,1);
*
GraphXSpace* = 1.5;
*
Title* = Name()+" per = "+WriteVal(per,1.0) +" Close = "+WriteVal(*C*,1.2)+ "
("+WriteVal(ROC(*C*,1),1.2)+"%)"+" Current Correction = "+WriteVal(RT,1.0)+
"%";
_SECTION_END();
Best Regards,
pondy
On Mon, Aug 4, 2008 at 11:20 PM, Ara Kaloustian <[EMAIL PROTECTED]> wrote:
> Hi Pondy,
>
> Thanks for the response .....
>
> I was asking what else do you need to run the code, because this code calls
> a couple of functions that are external ... so there is either a DLL or an
> include file associated with this ...
>
> any idea?
>
> A
>
> ----- Original Message -----
> *From:* pondy <[EMAIL PROTECTED]>
> *To:* [email protected]
> *Sent:* Thursday, July 31, 2008 1:26 AM
> *Subject:* Re: [amibroker] Fibonacci
>
> Hi Ara Kaloustian,
>
> Fibonacci code written by Thomas Zmuck in 2002
>
>
> /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
>
> _SECTION_BEGIN("Fibonacci");
> //Date: 12-January 2002 by Thomas Zmuck
> //[EMAIL PROTECTED]
> Offset = 5; //use two sheets: one with 5 and another with 7, or maybe other
> offset value
> Avgmov = Offset*MA(abs(ROC(C,1)),20);
> per = LastValue(Avgmov);
> x=Cum(1); Range = 0.01;
> PS = TroughBars(L,per,1) == 0;
> xa = LastValue(ValueWhen(PS,x,1));//x from last trough
> Ya = LastValue(ValueWhen(PS,L,1));//y (Low) last trough
> PR = PeakBars(H,per,1) == 0;
> xb = LastValue(ValueWhen(PR,x,1));//x from last peak
> Yb = LastValue(ValueWhen(PR,H,1));//y (High) last peak
> Trough_ReTest = abs((L/ya)-1)<Range;
> Peak_ReTest = abs((H/yb)-1)<Range;
> Trough_Cross = Cross(ya,C);
> Peak_Cross = Cross(C,yb);
> //UP = upSwing DN = downSwing
> UP = xb>xa;//upSwing
> DN = xa>xb;//DownSwing
> RT23_6 = IIf(UP,yb-(yb-ya)*0.236,IIf(DN,ya+(yb-ya)*0.236,-1e10));
> RT38_2 = IIf(UP,yb-(yb-ya)*0.382,IIf(DN,ya+(yb-ya)*0.382,-1e10));
> RT50_0 = IIf(UP,yb-(yb-ya)*0.500,IIf(DN,ya+(yb-ya)*0.500,-1e10));
> RT61_8 = IIf(UP,yb-(yb-ya)*0.618,IIf(DN,ya+(yb-ya)*0.618,-1e10));
> RT78_6 = IIf(UP,yb-(yb-ya)*0.786,IIf(DN,ya+(yb-ya)*0.786,-1e10));
> RT=
> IIf(UP,-100*(yb-L)/(yb-ya),
> 100*(H-ya)/(yb-ya));//Retracement_Value
> InZone = C<yb & C>ya;//use it for filter to receive only signals that are
> in in the Retracement zone.
> Buy = Trough_ReTest OR peak_Cross;
> Sell = Peak_ReTest OR trough_Cross;
> Filter = 1;
> AddColumn(RT,"RT%");
> AddColumn(Trough_ReTest,"TR-Test",1.0);
> AddColumn(Peak_ReTest,"PK-Test",1.0);
> AddColumn(Trough_Cross,"TR-Cross",1.0);
> AddColumn(Peak_Cross,"PK-Cross",1.0);
> AddColumn(CdDoji()OR CHammer(),"Candle",1.0);
> Plot(C,"C",1,64);
> Plot(IIf(x>xa,ya,-1e10),"Bottom",colorBrown,1+8);
> Plot(IIf(x>xb,yb,-1e10),"Top",colorBrown,1+8);
> xab = IIf(xb>xa,xb,xa);
> //Retracements
> Plot(IIf(x>=xab+1,RT23_6,-1e10),"23,6% Retr.",5,1);
> Plot(IIf(x>=xab+1,RT38_2,-1e10),"38,2% Retr.",5,1);
> Plot(IIf(x>=xab+1,RT50_0,-1e10),"50,0% Retr.",colorBlue,1);
> Plot(IIf(x>=xab+1,RT61_8,-1e10),"61,8% Retr.",colorYellow,1);
> Plot(IIf(x>=xab+1,RT78_6,-1e10),"78,6% Retr.",colorYellow,1);
> GraphXSpace = 0.5;
> Plot(Gauss2ord(C,5),"M5",4,1);
> GraphXSpace = 1.5;
> Title = Name()+" per = "+WriteVal(per,1.0) +" Close =
> "+WriteVal(C,1.2)+ " ("+WriteVal(ROC(C,1),1.2)+"%)"+" Current
> Correction = "+WriteVal(RT,1.0)+"%";
> _SECTION_END();
>
>
> ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
>
> Best Regards,
>
> pondy
>
>
>
>
> On Thu, Jul 31, 2008 at 9:15 AM, Ara Kaloustian <[EMAIL PROTECTED]> wrote:
>
>> I amlooking at some Fibonacci code written by Thomas Zmuck in 2002.
>>
>> File name is "INX - NASDAQ Fibonacci" .... ( I think that is the original
>> name, but not sure)
>>
>> It seems to use some functions that are not part of AB. Anyone familiar
>> with what is needed to run the code?
>>
>> Tx
>>
>> Ara
>>
>>
>
>
> --
> Best Regards,
>
> pondy
>
>
>
--
Best Regards,
pondy
