通达信机构控盘度改良 源码分享

AA:=EMA(EMA(CLOSE,8)-EMA(CLOSE,13),3);
BB:=(AA-REF(AA,1))*10;
CC:=IF(BB REF(BB,1),BB,REF(BB,1));
STICKLINE(BB 0,0,BB,2,0),COLORRED;
STICKLINE(BB 0,0,BB,2,0),COLORGREEN;
STICKLINE(CC=BB AND REF(CC,1) REF(BB,1) AND BB 0,0,BB,1,0),COLORMAGENTA;
STICKLINE(CROSS(BB,0),0,BB,1,0),COLORYELLOW;
DRAWTEXT(CROSS(BB,0),BB*1.3,'买入'),COLORGREEN;
DRAWTEXT(CROSS(0,BB),BB,'撤离'),COLORYELLOW;
DRAWTEXT(CC=BB AND REF(CC,1) REF(BB,1) AND BB 0,BB*1.3,'准备'),COLORMAGENTA;
DRAWTEXT(CC=BB AND REF(CC,1) REF(BB,1) AND BB 0,BB*1.4,'加仓'),COLORMAGENTA;
DRAWTEXT(BB CC AND REF(CC,1)=REF(BB,1) AND BB 0,BB*1.3,'卖出'),COLORRED;