// Downloaded From https://www.WiseStockTrader.com
SetChartOptions( 0, chartShowArrows|chartShowDates );

_SECTION_BEGIN("Acceleration / Deceleration (AC) Bill Williams");
/*** 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;

AO=MA(A,5)-MA(A,34);
AOcolor=IIf(AO>Ref(AO,-1),colorGreen,colorRed);

AC=AO-MA(AO,5);
ACcolor=IIf(AC>Ref(AC,-1),colorGreen,colorRed);

Plot(AC,"AC",ACcolor,styleHistogram|styleThick);

_SECTION_END();