_SECTION_BEGIN("VKSLline V 1.00");
n=Day() != Ref(Day(), -1);
a=LowestSince(n,V);
hh=ValueWhen(V==a,H);
ll=ValueWhen(V==a,L);
hr = ValueWhen(V==a,Hour());
mn = ValueWhen(V==a,Minute());
e36 = EMA(C,36);
res=max(e36,hh);
sup=min(e36,ll);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
tsl=IIf(avn==1,sup,res);
col = IIf(avn==1,colorGreen,colorRed);
plot(tsl,"\nVKSL ",col,stylethick);
_SECTION_END();