通达信分时有庄控盘指标公式

ABC1:=EMA(EMA(CLOSE,13),13);
控盘:=(ABC1-REF(ABC1,1))/REF(ABC1,1)*1000;
STICKLINE(控盘< 0,控盘,0,1,1),COLOR00FF00;
STICKLINE(控盘>REF(控盘,1) AND 控盘< 0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘< 0;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLOR0000FF;
有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;
ABC2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘< REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORFFFF00;
主力出货:=控盘< REF(控盘,1) AND 控盘>0;
STICKLINE(ABC2>50 AND COST(85)< CLOSE AND 控盘>0,控盘,0,1,1),COLOR00FFFF;
高度控盘: ABC2>50 AND COST(85)< CLOSE AND 控盘>0,COLOR00FFFF,LINETHICK2;
A10:=crOSS(控盘,0);
控盘B:=FILTER(IF(A10,1,0),5);
JJ:=DYNAINFO(11);
P:=55;
S:=8;
M1:=3;
VAR1:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10,COLORRED,LINETHICK2;
VAR2:=EMA(VAR1,M1),COLORGREEN,LINETHICK1;
DRAWBAND(VAR1,RGB(255,0,0),VAR2,RGB(0,100,50));
ACB1:=(C-JJ)/JJ< -0.005;
ACB11:=(C-JJ)/JJ< -0.03;
ACB12:=LAST(JJ>=REF(JJ,1),5,1) AND (C-JJ)/JJ< 0.005;
ACC1:=(C-JJ)/JJ>0.005;
ACC01:=控盘< REF(控盘,1) AND 控盘>0.5;
ACC02:=控盘>0;
ACB2:=控盘>REF(控盘,1) AND 控盘< -0.2;
ACB22:=控盘>REF(控盘,1) AND 控盘< 0 ;
ACB3:=CROSS(VAR1,VAR2) AND VAR1< -0.3;
ACB32:=CROSS(VAR1,VAR2) AND VAR1< -0.1;
ACC31:=CROSS(VAR2,VAR1);
ACC32:=CROSS(VAR2,VAR1) AND VAR1>1.618;
ACB81:=FILTER(ACB1 AND ACB2 AND ACB3,13);
ACB811:=FILTER(ACB11 AND ACB2 AND ACB3,13);
ACB82:=FILTER(ACB12 AND ACB22 AND ACB32,13);
DRAWICON(ACB81 AND TIME>10,VAR2,9);
DRAWICON(ACB811 AND TIME>10,VAR2,9);
DRAWTEXT(ACB811 OR ACB81,高度控盘,'★有庄'),COLORWHITE;