_SECTION_BEGIN("VKSLline V 1.01");
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);
y=5;
PlotOHLC(y,Y+10,y,y,"",col,styleOwnScale|styleNoLabel|styleCloud,0,200,0,-5);
_SECTION_END();
_SECTION_BEGIN("VK LVB");
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());
Plot(hh,"\nLVhb ",colorYellow,styleDashed);
Plot(ll,"\nLVlb @ ("+hr+" : "+mn+") ",colorWhite,styleDashed);
PlotOHLC(ll,hh,ll,hh,"",colorBlack,styleCloud,0,0,0,-2);
_SECTION_END();