_SECTION_BEGIN("ATP");
B=Volume;
A=Avg;
Value=B*A;
Barsfromtodaybegin = 1 + BarsSince( Day() != Ref(Day(), -1));
Totalvalue=Sum(Value,Barsfromtodaybegin);
Totalvolume=Sum(V,Barsfromtodaybegin);
ATP=(Totalvalue/Totalvolume);
ColorATP=IIf(ATP>Ref(ATP,-1),colorBrightGreen,colorRed);
Plot(ATP,"ATP",colorATP,styleThick);
SetBarFillColor(IIf(C>atp,ParamColor("Candle UP Color", colorGreen),IIf(C<=atp,ParamColor("Candle Down Color", colorRed),colorLightGrey)));
Plot(C,"\nPrice",IIf(C>atp,ParamColor("Wick UP Color", colorBrightGreen),IIf(C<=atp,ParamColor("Wick Down Color", colorRose),colorRose)),64,0,0,0,0);
_SECTION_END();