VAR1:=((close-LLV(low,60))/(HHV(high,60)-LLV(low,60)))*(100);
VAR2:=abs(VAR1);
VAR3:=SMA(VAR2,3,1);
K:SMA(VAR3,5,1),colorwhite;
d:=SMA(K,8,1);
STICKLINE(K>d,K,d,4,0),COLORRED;
STICKLINE(K<d,K,d,4,0),color00ff00;
STICKLINE(K>d,-K,-d,4,0),COLORRED;
STICKLINE(K<d,-K,-d,4,0),color00ff00;
SMA(-VAR3,5,1),colorwhite;
w2:=K<80;
w3:=K>ref(K,1);
w4:=ref(K,1)<ref(K,2);
STICKLINE(w2 and w3 and w4,K,60,1,0),COLORyellow;
STICKLINE(w2 and w3 and w4,0,K,5,0),COLOrff00ff;
STICKLINE(w2 and w3 and w4,-K,-60,1,0),COLORyellow;
STICKLINE(w2 and w3 and w4,0,-K,5,0),COLOrff00ff;
DRAWTEXT(w2 and w3 and w4,30,'K'),COLORyellow;
DRAWTEXT(w2 and w3 and w4,-30,'K'),COLORyellow;
hhv(K,20),colorblue;
llv(K,20),colorblue;
-hhv(K,20),colorblue;
-llv(K,20),colorblue;
s1:=hhv(K,20)>ref(hhv(K,20),1);
s2:=ref(hhv(K,20),1)<ref(hhv(K,20),2);
STICKLINE(s1 and s2,hhv(K,20)+10,hhv(K,20),6,0),color64A0E6;
STICKLINE(s1 and s2,-hhv(K,20),-hhv(K,20)-10,6,0),color64A0E6;