通达信主力进场副图大资金出场、大资金洗盘源码

{主力}大资金进场红:0,COLORRED;
 {主力}主力资金进场黄:0,COLORYELLOW;
 {主力}主力金洗盘蓝:0,COLORBLUE;
 {主力}主力资金出场绿:0,COLORGREEN;
 ZLCM:=EMA(WINNER(CLOSE)*70,3);
 SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
 ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
 ZZLJJ:=EMA(ZZLKP,89);
 ZJLRQD:=ZZLKP-ZZLJJ;
 AA:=EMA(ZJLRQD,3);
 BB:=EMA(AA,5);
 CC:=AA-BB;
 STICKLINE(CC<REF(CC,2),CC,0,1.5,1),COLORGREEN;
 STICKLINE(CC>REF(CC,2),CC,0,1.5,1), COLORRED;
大资金出场:IF(CROSS(AA,BB),5,0),STICK,LINETHICK4,COLORMAGENTA;
大资金洗盘:IF(CROSS(BB,AA),-5,0),STICK,LINETHICK3,COLORLIBLUE;
 VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
 VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
 VAR3:=EMA(VAR2,10);
 VAR4:=LLV(LOW,33);
 VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),5);
大资金进场:STICKLINE(VAR5>REF(VAR5,1),0,VAR5,2,0 ),COLORRED;
洗盘:STICKLINE(VAR5<REF(VAR5,1),0,VAR5,2,0),COLORGREEN;{绿}
主力进场阳:STICKLINE(VAR5>REF(VAR5,1) AND C>O,0,VAR5,2,0 ),COLORYELLOW;
洗盘阴:STICKLINE(VAR5<REF(VAR5,1) AND C<O,0,VAR5,2,0),COLORBLUE;

MA3:=MA(CLOSE,M3);
 MA5:=MA(CLOSE,M5);
均启:CROSS(MA3,MA5)STICK;
 DRAWTEXT(均启,H*0.1,'均线启动'),COLORWHITE;

反:DRAWTEXT(CROSS(AA,BB)AND AA<-3,20,'反'),COLORRED;