There is no error in the AFL. Which version of AB are you using?
Cheers Prashanth On Wed, Dec 9, 2009 at 2:44 PM, Asis Ghosh <subhamedicals...@yahoo.co.in>wrote: > > > 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 > > >
