{ Downloaded From https://www.WiseStockTrader.com }


eMonth:=Input("Enter the Month - MM",1,12,1);
eDate:=Input("Enter the Date - DD",1,31,2);
eYear:=Input("Enter the Year - YYYY",1900,2100,2001);
numdays:=BarsSince(DayOfMonth()=eDate AND
Month() =eMonth AND Year()=eYear);

cumtp:=Cum(Typical());
basecumtp:= ValueWhen(1, numdays=1, Ref(cumtp,-1));
avgval:=(cumtp-basecumtp)/numdays;
avgval;