通达信庄控盘指标(源码)

VAR1:=EMA(EMA(CLOSE,13),13);
控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORFFCCCC,POINTDOT;
STICKLINE(控盘 0,控盘,0,2,0),COLORWHITE;
无庄控盘:控盘 0,COLORWHITE;
STICKLINE(控盘 REF(控盘,1) AND 控盘 0,控盘,0,2,1),COLORRED;
有庄控盘: 控盘 REF(控盘,1) AND 控盘 0,COLORRED;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘 REF(控盘,1) AND 控盘 0,控盘,0,2,0),COLOR00FF00;
主力出货: 控盘 REF(控盘,1) AND 控盘 0,COLOR00FF00;
STICKLINE(VAR2 50 AND COST(85) CLOSE AND 控盘 0,控盘,0,2,0),COLORFF00FF;
高度控盘: VAR2 50 AND COST(85) CLOSE AND 控盘 0,COLORFF00FF;
A10:=CROSS(控盘,0);
开始控盘:IF(A10,6,0),COLORYELLOW;
控盘天数:BARSLASTCOUNT(有庄控盘 OR 高度控盘 ),LINETHICK0,COLORWHITE;
出货天数:BARSLASTCOUNT(主力出货),LINETHICK0,COLORWHITE;
WY1001:=(2*CLOSE+HIGH+LOW)/4;
WY1002:=EMA(WY1001,4);
WY1003:=EMA(WY1002,4);
WY1004:=EMA(WY1003,4);
X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000;
X1:=IF(X REF(X,1),X,DRAWNULL),COLORWHITE,LINETHICK2;
XO:=MA(X,2),COLOR9932CD;
SI:=REF(X,1);
DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
DEA1:=EMA(DIF1,9);