N:=3;
M:=8;
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
?òá?:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0,COLORRED;
??á?:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-AA*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORCYAN;
??3?á?:=?òá?+??á?,COLOR00FFFF;
STICKLINE(??3?á?<0,0,??3?á?,1,0),COLORFF6600;
STICKLINE(??3?á?<0,0,??3?á?,1,0),COLORFF9900;
STICKLINE(??3?á?<0,0,??3?á?,1.0,0),COLORFFCC00;
STICKLINE(??3?á?<0,0,??3?á?,0.5,0),COLORGREEN;
STICKLINE(??3?á?>0,0,??3?á?,1,0),COLOR000099;
STICKLINE(??3?á?>0,0,??3?á?,1,0),COLOR0000CC;
STICKLINE(??3?á?>0,0,??3?á?,1.0,0),COLOR0000FF;
STICKLINE(??3?á?>0,0,??3?á?,0.5,0),COLORCC66FF;
íòê?:VOL/10000,LINETHICK0,NODRAW;

BB:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
?÷?ˉ?ò:=IF(CLOSE>OPEN,BB*(HIGH-LOW),IF(CLOSE<OPEN,BB*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));
?÷?ò:?÷?ˉ?ò/10000,COLORRED,NODRAW;
?÷?ˉ??:=IF(CLOSE>OPEN,0-BB*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-BB*(HIGH-LOW),0-VOL/2));
?÷??:-?÷?ˉ??/10000,COLORGREEN,NODRAW;
?÷????:(?÷?ˉ?ò+?÷?ˉ??)/10000,COLORYELLOW,NODRAW;
VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
?ò:=IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED;
??:=IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLOR00FF00;
?ò??2?:=(?ò+??);
?ò??±è:ABS(?ò/??);

Nè??ú??á÷è?:SUM(?ò??2?,N), LINETHICK2,COLORGREEN;
á÷è?:IF (Nè??ú??á÷è?>REF(Nè??ú??á÷è?,1),Nè??ú??á÷è?,DRAWNULL),COLORMAGENTA,LINETHICK2;
Mè??ú·­oìììêy:COUNT(?ò??2?>0,M);
á?oìììêy:BARSLASTCOUNT(?ò??2?>0);
á÷í¨?ì:=CAPITAL/1000000;
???ì±è:?÷????/á÷í¨?ì;