__ZBT
_COMM
_PAR
_VAR V1, U4, U2, U1
_ZB CLOSE, IF
_LOCAL
_RES V2, V1,U4
_DEF 0.000
_CODE
V1=(CLOSE-MA(CLOSE,20))/MA(CLOSE,20)*100;
IF V1>0 THEN V2=V1;
ELSE V2=0;
ENDIF;
TITLE( "[", V1, "]", clrYellow);
COLUMN(clt2Dir,V1,0,clrRed,V1<0);
COLUMN(clt2Dir,V1,0,clrgreen,V1>0);
CURVELINE(V1,clryellow);
U4=EMA(U1,EMA(U2,V1,30),3)*2;
CURVELINE(U4,clrWhite);
__END