Re: [amibroker] AFL FOR FRACTALS/ALLIGATORS:

[Ton Sieverding]

Works fine for me. Nothing wrong ...



Regards, Ton.

  ----- Original Message ----- 
  From: Asis Ghosh 
  To: amibroker@yahoogroups.com 
  Sent: Wednesday, December 09, 2009 10:14 AM
  Subject: [amibroker] AFL FOR FRACTALS/ALLIGATORS:


    
  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


  

<<error.JPG>>