通达信[庒家控盘指标]出现"高度控盘"既粉色柱子时选股

编写要求：

股票网解答：

网友求助：

求老师改通达信《庒家控盘指标》出现“高度控盘”既粉色柱子时选股，万分感谢！
下图红色箭头所指处
{参数：N：1、300、10；}
VAR1:=EMA(EMA(CLOSE,13),13);
控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORFFCCCC,POINTDOT;
STICKLINE(控盘<0,控盘,0,1,0),COLORWHITE;
无庄控盘:控盘<0,COLORWHITE;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,1),COLORRED;
有庄控盘: 控盘>REF(控盘,1) AND 控盘>0,COLORRED;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLOR00FF00;
主力出货: 控盘<REF(控盘,1) AND 控盘>0,COLOR00FF00;
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,1,0),COLORFF00FF;
高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,COLORFF00FF;
A10:=CROSS(控盘,0);
开始控盘:IF(A10,6,0),COLORYELLOW;

VAR3:=AMOUNT/VOL/7;
VAR4:=(3*HIGH+LOW+OPEN+2*CLOSE)/7;
VAR5:=SUM(AMOUNT,N)/VAR3/7;
VAR6:=DMA(VAR4,VOL/VAR5);
准备抄底:(CLOSE-VAR6)/VAR6*100,COLORFF00FF;
DRAWICON(CROSS(-1.65,ZBCD),准备抄底,1);

VAR7:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR8:=SMA(ABS(LOW-VAR7),13,1)/SMA(MAX(LOW-VAR7,0),10,1);
VAR9:=EMA(VAR8,10);
VAR10:=LLV(LOW,33);
VAR11:=EMA(IF(LOW<=VAR10,VAR9,0),3);
进场:IF(VAR11>REF(VAR11,1),VAR11,0),COLORRED,NODRAW;
STICKLINE(VAR11>REF(VAR11,1),0,VAR11,1,0 ),COLORRED;
洗盘:IF(VAR11<REF(VAR11,1),VAR11,0),COLORFFFF00,NODRAW;
STICKLINE(VAR11<REF(VAR11,1),0,VAR11,1,0),COLORFFFF00;

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;
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;

解答如下：

N:=10;
VAR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
VAR2:=100*WINNER(CLOSE*0.95);
高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0;

>