Manoj, Could you please post the AFL for ATP? Thanks
Source: Extremist
_SECTION_BEGIN("ATP");
Type = ParamList("Type", "ID,EOD,Wk");
if( Type == "ID" ) newday=Day() != Ref(Day(), -1);
if( Type == "EOD" ) newday=Month() != Ref(Month(), -1);
if( Type == "Wk" ) newday=DayOfWeek() < Ref( DayOfWeek(), -1 );
Bars_so_far_today = 1 + BarsSince( newday );
StartBar = ValueWhen(TimeNum() == 091500, BarIndex());
TodayVolume = Sum(V,Bars_so_far_today);
P=ParamField("Field");
x= Param( "O-ATP Time", 091500, 091500, 153000, 100 );
IIf (BarIndex() >= StartBar, VWAP = Sum (P * V, Bars_so_far_today ) /TodayVolume,0);
a=ValueWhen(TimeNum()==x,VWAP );
Plot (VWAP,"\n ATP",ParamColor( "ATP Color", colorViolet ), ParamStyle("ATP Style",styleLine),0,0,0,2);
if( ParamToggle("Plot Open ATP ", "No|Yes", 1))
Plot (a,"\n O atp : ",ParamColor("O-ATP color",34), styleDashed,0,0,0,2);
_SECTION_END();