VAR1:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
VAR2:=10;
VAR3:=EMA(VAR1,VAR2);
VAR4:=EMA(VAR3,5);
VAR5:=VAR3-VAR4;
VESSS1:=VAR3+VAR5;
PR:100-Abs(VESSS1) COLORRED LINETHICK1;
VESSS2:MA(PR,5) COLORWHITE LINETHICK1;
K:=15;
VESSS3:=(K/100)*STD(PR-REF(PR,1),10);
XA:=IF(PR<REF(PR,1),PR,0);
XN:=BARSLAST(XA>0 );
VESSS4:=REF(PR,XN);
YA:=IF(PR>REF(PR,1),PR,0);
YN:=BARSLAST(YA>0) ;
VESSS5 :=REF(PR,YN);
RR:=IF( VESSS5-PR>VESSS3,-1,0) ;
TT:=IF( PR- VESSS4>VESSS3,1,RR) ;
IF(TT=1,PR,DRAWNULL), COLORRED , LINETHICK4;
IF(TT=-1,PR,DRAWNULL), COLORGREEN , LINETHICK2;
IF(TT=0,PR,DRAWNULL), COLORWHITE , LINETHICK2;
80 COLORBROWN LINETHICK1;
20 COLORBROWN LINETHICK1;
