通达信机构控盘度改良 源码分享
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;
