通达信全仓副图源码

全仓 （副图 通达信 源码 贴图 ）

N:=23; M:=6;
TH:=SUM(IF(CLOSE REF(CLOSE,1),VOL,0),N);
TL:=SUM(IF(CLOSE REF(CLOSE,1),VOL,0),N);
TQ:=SUM(IF(CLOSE=REF(CLOSE,1),VOL,0),N);
VAR0:=100*(TH*2+TQ)/(TL*2+TQ),COLOR0000FF,LINETHICK2;
VAR1:=MA(VAR0,M),COLOR00FFFF,LINETHICK2;
{DRAWBAND(VAR0,RGB(255,0,0),VAR1,RGB(0,0,220));}
W:=CROSS(VAR0,VAR1);
WL1:=VAR1
WL2:=VAR1 150 AND VAR1 REF(VAR1,1);
WLT1:=W AND WL1;
WLT2:=W AND WL2;
TJ1:=FILTER(WLT1,5);
TJ2:=FILTER(WLT2,8);
全仓:IF(TJ1,4,0),COLORFFFF99,LINETHICK2;
DRAWTEXT(TJ1,3,' 全仓'),COLOR00FFFF;