{潜龙勿用}
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,5,0),LINETHICK3,COLORYELLOW;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,1,0),COLORRED;
有庄控盘:IF(控盘>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;
VAR3:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),5);
VAR4:=(CLOSE-LLV(CLOSE,890))/(HHV(CLOSE,890)-LLV(CLOSE,890))*100;
VAR5:=SMA(VAR4,10,1);
VAR6:=SMA(VAR5,10,1);
VAR7:=EMA(CLOSE,10)-EMA(CLOSE,55);
VAR8:=EMA(VAR7,10);
VAR9:=CROSS(VAR7,VAR8);
VARA:=CROSS(VAR8,VAR7);
DRAWTEXT(VAR9 AND VAR3<30 AND VAR6<VAR5,-5,'潜龙'),COLOR00FFFF;
DRAWTEXT(VAR9 AND VAR3<30 AND VAR6<VAR5,-15,'勿用'),COLOR00FFFF;
DRAWTEXT(VARA AND VAR3>70 AND VAR6>VAR5,15,'见龙'),COLORFF00FF;
DRAWTEXT(VARA AND VAR3>70 AND VAR6>VAR5,5,'在田'),COLORFF00FF;
0,COLORWHITE;
