TB:=IF(HIGH REF(CLOSE,1),HIGH-REF(CLOSE,1)+CLOSE-LOW,CLOSE-LOW);
TS:=IF(REF(CLOSE,1) LOW,REF(CLOSE,1)-LOW+HIGH-CLOSE,HIGH-CLOSE);
VOL_:=(TB-TS)*VOL/(TB+TS)/10000;
VOL_0:=DMA(VOL_,0.1);
VOL_1:=DMA(VOL_,0.05);
RES1:=VOL_0-VOL_1;
LON:=SUM(RES1,0);
MA1:=MA(LON,N),LINETHICK3,COLOR0000FF;
{QB:IF(MA1,LON,0),COLORFF00FF,LINETHICK3;}
QB:MA1,COLOR0000FF,LINETHICK3;
QC:=BACKSET(MA1 REF(MA1,1),1);
{RB:IF(E,B,0),COLOR00FF00,LINETHICK3;}
PARTLINE(QC,MA1),COLOR00FF00,LINETHICK3;