// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("VWAP");
Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1));
StartBar = ValueWhen(TimeNum() == 090000, BarIndex());
TodayVolume = Sum(V,Bars_so_far_today);
IIf (BarIndex() >= StartBar, VWAP = Sum (C * V, Bars_so_far_today ) /
TodayVolume,0);
Plot (VWAP,"VWAP",colorViolet, styleThick);
_SECTION_END();

_SECTION_BEGIN("ATP");
DayChange = Day() != Ref(Day(), -1);
AvgTradePrice = Null;
CurDayBars = 0;
CurDayCloseSum = 0;
for (i = 0; i < BarCount; i++)
{
if (DayChange[i])
{
CurDayCloseSum = C[i];
CurDayBars = 1;
}
else
{
CurDayCloseSum = CurDayCloseSum + C[i];
CurDayBars++;
}
AvgTradePrice[i] = CurDayCloseSum / CurDayBars;
}
Plot(AvgTradePrice, "AvgTradePrice",colorBlue,styleThick);
ATP=AvgTradePrice; 
_SECTION_END();
PlotOHLC(VWAP,AvgTradePrice,VWAP,AvgTradePrice,"",colorYellow,styleCloud|styleNoRescale|styleNoLabel);
Plot(LinearReg(H,200),"",colorGreen,styleLine|styleThick);
Plot(LinearReg(L,200),"",colorRed,styleLine|styleThick);
Plot(LinearReg(C,200),"",colorYellow,styleLine|styleThick);
PlotOHLC(LinearReg(L,200),LinearReg(H,200),LinearReg(L,200),LinearReg(H,200),"",colorPink,styleCloud|styleNoRescale|styleNoLabel);