1、【机构控盘度】

{开始控盘-无庄控盘-高度控盘}
VARA:=(2*CLOSE+HIGH+LOW)/4;
VARB:=EXPMA(EXPMA(EXPMA(VARA,4),4),4);
J: (VARB-REF(VARB,1))/REF(VARB,1)*1200, COLORSTICK;
STICKLINE(J<0,0 ,J,0,0),COLORLIGREEN;
VAR1:=EMA(EMA(CLOSE,9),9);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,1,0),COLORWHITE;
A10:=CROSS(控盘,0);
无庄控盘:IF(控盘<0,控盘,0),COLORWHITE,NODRAW;
开始控盘:IF(A10,1,0),LINETHICK1,COLORYELLOW;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLORRED;
有庄控盘:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,0),COLORRED,NODRAW;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,0),COLORFF00FF;
高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0),COLORFF00FF,NODRAW;
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR00FF00;
主力出货:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,0),COLOR00FF00,NODRAW;
D: MA(J,3),COLORGREEN,LINETHICK1;
K: MA(J,1),COLORCYAN,LINETHICK1;
IF(D>REF(D,1),D,DRAWNULL),COLORYELLOW,LINETHICK2;
IF(J>REF(J,1),J,DRAWNULL),COLORRED,LINETHICK2;

2、【机构控盘力度】

V1:=EMA(EMA(CLOSE,20),20);   
V2:=100*WINNER(CLOSE*0.95);   
控盘力度:(V1-REF(V1,1))/REF(V1,1)*1000,COLORWHITE,LINETHICK2;   
无庄控盘:IF(控盘力度<0,控盘力度,0),LINETHICK2,COLOR00FF00;   
有庄控盘:IF(控盘力度>REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,STICK,COLORFF00FF;   
主力减仓:IF(控盘力度< REF(控盘力度,1) AND 控盘力度>0,控盘力度,0),LINETHICK2,COLORBLUE;   
高度控盘:IF(V2>50 AND COST(85)< CLOSE AND 控盘力度>0,控盘力度,0),LINETHICK2,STICK,COLORRED;   
开始控盘:IF(CROSS(控盘力度,0),4,0),LINETHICK2,COLORYELLOW;