通达信不后悔做多公式源码

VAR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘<0,控盘,0,2,0),COLORWHITE;
STICKLINE(控盘<0 AND 控盘>REF(控盘,1),控盘,0,2,0),COLOR8888EE;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR0000DD;
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR00FF00;
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,2,0),COLORFF00FF;
A10:=CROSS(控盘,0);
离场:IF(控盘<0,控盘,DRAWNULL),COLORWHITE,NODRAW;
拉升:IF(控盘>REF(控盘,1) AND 控盘>0,控盘,DRAWNULL),COLORRED,NODRAW;
派发:IF(控盘<REF(控盘,1) AND 控盘>0,控盘,DRAWNULL),COLOR00FF00,NODRAW;
吸筹:IF(控盘>REF(控盘,1) AND 控盘<0,控盘,DRAWNULL),COLOR8888EE,NODRAW;
高度控盘:IF(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,DRAWNULL),COLORFF00FF,NODRAW;