Re: [amibroker] AFL FOR FRACTALS/ALLIGATORS:

[K.Munnecke]

which must in a row
|
//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Up Fractal", ParamColor("Up Fractal
Color",colorRed), ParamStyle("Up Fractal Style", styleDashed)); |




Asis Ghosh schrieb:

This AFL has some error (ERROR-30: SYNTAX ERROR)--can anyone of our experienced member fix it ?

|/*
   Bill William's Alligator System II

   Reference Website:
   ==================

http://www.alpari-idc.com/en/market-analysis-guide/chaos-theory/alligator-and-gator.html

Modified from http://www.amibroker.com/library/detail.php?id=100, by Steve

Wiser - slwis...@erols.com
   Modified by TohMz  on June 9th, 2008
*/
SetChartOptions( 0, *chartShowArrows*|*chartShowDates* );

_SECTION_BEGIN("Price Chart");

_N(*Title* = StrFormat("{{NAME}}- {{INTERVAL}} {{DATE}} O= %g, H= %g, L= %g, C= %g (%.1f%%) *V*= " +WriteVal( V, 1.0 ) +"\n{{VALUES}}", O, H, L, C, SelectedValue(

ROC( *C*, 1 )) ));
PriceStyle = GetPriceStyle();
PriceStyleOpt = ParamStyle("Price Style")|PriceStyle;

*if* (PriceStyle==*styleCandle*)
   Plot( *C*, "", *colorBlack*,  PriceStyleOpt);
*else*

Plot( *C*, "", IIf( *Close* >= Ref(*C*, -1), *colorBlue*, *colorRed* ),

PriceStyleOpt);
_SECTION_END();

_SECTION_BEGIN("BW Alligator");
/*** The trend indicators ***/

P= ParamList("Price", "Close|(H+L)/2|(H+C+L)/3",1);

*if* (P=="Close")
   A = *C*;

*else*

*if* (P=="(H+C+L)/3")
   A = (*H*+*C*+*L*)/3;
*else*
  A = (*H*+*L*)/2;

AlligatorJaw   = Ref(Wilders(A,13),-8);
AlligatorTeeth = Ref(Wilders(A,8), -5);
AlligatorLips  = Ref(Wilders(A,5), -3);

Plot(AlligatorJaw,  "Jaw", ParamColor("Jaw's Color",*colorBlue*),
ParamStyle("Jaw's Style", *styleThick*));
Plot(AlligatorTeeth,"Teeth", ParamColor("Teeth's Color",*colorRed*),
ParamStyle("Teeth's Style", *styleThick*));
Plot(AlligatorLips, "Lips", ParamColor("Lips's Color",*colorGreen*),
ParamStyle("Lips's Style", *styleThick*));

_SECTION_END();


_SECTION_BEGIN("BW Fractal");

UpFractal= ValueWhen(
  (Ref(*H*,-2) > Ref(*H*, -4)) *AND*
  (Ref(*H*,-2) > Ref(*H*, -3)) *AND*
  (Ref(*H*,-2) > Ref(*H*, -1)) *AND*
  (Ref(*H*,-2) > *H*), Ref(*H*,-2));

DownFractal= ValueWhen(
  (Ref(*L*,-2) <= Ref(*L*, -4)) *AND*
  (Ref(*L*,-2) <=  Ref(*L*, -3)) *AND*
  (Ref(*L*,-2) <=  Ref(*L*, -1)) *AND*
  (Ref(*L*,-2) <=  *L*), Ref(*L*,-2));



//== Added Crash  crashandburn59 [at] hotmail.com solution

Plot(Ref(UpFractal,2), "Up Fractal", ParamColor("Up Fractal Color",*colorRed*),

ParamStyle("Up Fractal Style", *styleDashed*));
Plot(Ref(DownFractal,2), "Down Fractal",ParamColor("Down Fractal
Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed));

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Up Fractal", ParamColor("Up Fractal

Color",colorRed), ParamStyle("Up Fractal Style", styleDashed));

//Plot(Max(HHV(H,3),Ref(UpFractal,2)), "Down Fractal",ParamColor("Down Fractal

Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed));

_SECTION_END();
|

Cheers,

Asis