// Downloaded From https://www.WiseStockTrader.com
_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);
_SECTION_END(); 
//plot(c,"",3,64);
//Buy =Cross(C,atp);
//Sell=Cross(atp,C);
//PlotShapes(shapeUpArrow*Buy,5,0,L,-10);
//PlotShapes(shapeDownArrow*Sell,4,0,H,-10);
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);