通达信量变副图源码

N:=21;M:=6;

天:400,POINTDOT,COLORBLUE,LINETHICK4;
海:100,POINTDOT,COLORRED,LINETHICK4;
TH:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,0),N);
TL:=SUM(IF(CLOSE
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<100;
WL2:=VAR1<150 AND VAR1>REF(VAR1,1);
WLT1:=W AND WL1;
WLT2:=W AND WL2;
TJ1:=FILTER(WLT1,5);
TJ2:=FILTER(WLT2,8);
STICKLINE(TJ1,0,80,4,0),COLOR000099;
STICKLINE(TJ1,0,80,2,0),COLOR0000BB;
STICKLINE(TJ1,0,80,1,0),COLOR0000DD;
STICKLINE(TJ1,0,80,0.3,0),COLOR0000FF;
DRAWTEXT(TJ1,83,'全仓'),COLOR00FFFF;
STICKLINE(TJ2,0,50,4,0),COLOR990099;
STICKLINE(TJ2,0,50,2,0),COLORBB00BB;
STICKLINE(TJ2,0,50,1,0),COLORDD00DD;
STICKLINE(TJ2,0,50,0.3,0),COLORFF00FF;
DRAWTEXT(TJ2,53,'追买'),COLOR00FFFF;
SAL1:CROSS(VAR1,VAR0) AND VAR1>250;
SAL2:VAR0>400;
SAL:FILTER(SAL1 OR SAL2,5);
DRAWICON(SAL,VAR0,15);

E1:=BARSCOUNT(C);
AH:=HHV(H,250);
AL:=LLV(L,250);
B0:=(AH-AL)/40;
KB1:=H+B0;
KB2:=L-B0;
STICKLINE((E1+0)/34=FLOOR((E1+0)/34),天,天-20,1,0),COLORYELLOW,LINETHICK3;
DRAWTEXT((E1+0)/34=FLOOR((E1+0)/34),天,'时'),COLORFFFFFF;

AA:=REF(C,1)/REF(O,1)<0.96;
BB:=C/O>1.03;
CC:=C>REF(O,1);
TJ13:=AA AND BB AND CC;
X1:=REF(C,1)/HHV(H,20)<0.82;
DN:=O>C;
X2:=COUNT(DN,7)>=5;
X3:=C=HHV(C,3);
XG1:=TJ13 AND  X1 AND X2;
XG2:=X1 AND X2 AND X3;
XG:=XG1 OR XG2;
STICKLINE(XG ,0,20,3,0),COLOR00FFFF;
DRAWTEXT(XG,50,'反转'),COLOR00FFFF;

X11:=REF(C,1)/HHV(H,20)<0.82;
X22:=(MIN(C,O)-L)/(H-L)>0.67;
X33:=(HIGH-MAX(CLOSE,OPEN))/(HIGH-LOW)<0.33;
X44:=ABS(C-O)/C<0.01;
DOWN:=O>C;
X55:=COUNT(DOWN,7)>=5;
XG11:=X11 AND X22 AND X33 AND X44 AND X55;
STICKLINE(XG11 ,0,30,4,0),COLOR0000FF;
DRAWTEXT(XG11,30,'螺旋'),COLOR0000FF;

VA:=IF(CLOSE>REF(CLOSE,1),VOL,-VOL);
OBV:=SUM(IF(CLOSE=REF(CLOSE,1),0,VA),0),LINETHICK2,COLOR00FF00;
MAOBV:=MA(OBV,30),COLOR0000FF,LINETHICK1;
MAOBV1:=MA(OBV,13),COLORFF00FF,LINETHICK1;
MAOBV2:=MA(OBV,5),COLORFFFFFF,LINETHICK1;
TJ18:=CROSS(OBV,MAOBV2) AND MAOBV2>REF(MAOBV2,1) AND OBV/MAOBV<1.021;
TJ11:=FILTER(TJ18,5);
TJ28:=FILTER(CROSS(MAOBV2,MAOBV1),5);
TJ38:=COUNT(CROSS(OBV,MAOBV2) OR CROSS(OBV,MAOBV1) 
OR CROSS(OBV,MAOBV),5)>2 AND MAOBV>REF(MAOBV,1);
TJ33:=FILTER(TJ38,5);
QC:=FILTER(COUNT(TJ11 OR TJ33 OR TJ28,3)>=2,3);
DRAWTEXT(QC,33,'OBV'),COLORFF00FF;
STICKLINE(QC,0,30,3,0),COLOR0000FF;