【通达信免费源码】有庄控盘指标副图 波段 短线 买卖点

A1AA:=9;

A2AA:=(REF(CLOSE,A1AA+1)<CLOSE);

DRAWTEXT(FILTER((A2AA>-0.5),84),(HIGH)*(1.05),'小心变盘'),COLORFFFFFF;

VAR6:=REF(C,1);

VAR7:=SMA(MAX(C-VAR6,0),6,1)/SMA(ABS(C-VAR6),6,1)*100;

DRAWTEXT(CROSS(82,VAR7),H*1.01,'逃顶'),COLORYELLOW;VAR1:=EMA(EMA(CLOSE,13),13);

控盘:= (VAR1-REF(VAR1,1))/REF(VAR1,1)*1000,COLORFFCCCC,POINTDOT;

STICKLINE(控盘<0,控盘,0,2,0),COLORWHITE;

无庄控盘:控盘<0,COLORWHITE;

STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘,0,2,1),COLORRED;

有庄控盘: 控盘>REF(控盘,1) AND 控盘>0,COLORRED;

VAR2:=100WINNER(CLOSE0.95);

STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘,0,2,0),COLOR00FF00;

主力出货: 控盘<REF(控盘,1) AND 控盘>0,COLOR00FF00;

STICKLINE(VAR2>50 AND COST(85)<CLOSE AND 控盘>0,控盘,0,2,0),COLORFF00FF;

高度控盘: VAR2>50 AND COST(85)<CLOSE AND 控盘>0,COLORFF00FF;

A10:=CROSS(控盘,0);

开始控盘:IF(A10,6,0),COLORYELLOW;

控盘天数:BARSLASTCOUNT(有庄控盘 OR 高度控盘 ),LINETHICK0,COLORWHITE;

出货天数:BARSLASTCOUNT(主力出货),LINETHICK0,COLORWHITE;

WY1001:=(2*CLOSE+HIGH+LOW)/4;

WY1002:=EMA(WY1001,4);

WY1003:=EMA(WY1002,4);

WY1004:=EMA(WY1003,4);

X:=(WY1004-REF(WY1004,1))/REF(WY1004,1)*2000;

X1:=IF(X<REF(X,1),X,DRAWNULL),COLORWHITE,LINETHICK2;

XO:=MA(X,2),COLOR9932CD;

SI:=REF(X,1);

{柱状线}

DIF1:=EMA(DCLOSE,12)-EMA(DCLOSE,26);

DEA1:=EMA(DIF1,9);

MACD1:=(DIF1-DEA1)260;

MACD上:IF(MACD1>REF(MACD1,1),MACD1,DRAWNULL),

STICK,COLORRED,LINETHICK1;

MACD下:IF(MACD1<REF(MACD1,1),MACD1,DRAWNULL),

STICK,COLORFF9900,LINETHICK1;

低位金叉:=CROSS(DIF1,DEA1) AND DIF1<-0.1;

DRAWTEXT(低位金叉,-8,' 低位金叉'),COLORRED;

JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BARSLAST(DEA1>=0));

二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1;

DRAWICON(二次金叉,DEA1*1.04,13) ;

DRAWTEXT(二次金叉,-3,' 二次金叉'),COLORFF00FF;

A101:=BARSLAST(REF(CROSS(DIF1,DEA1),1));

底背离:=REF(CLOSE,A101+1)>CLOSE AND DIF1>REF(DIF1,A101+1) AND CROSS(DIF1,DEA1);

DRAWICON(底背离,-5,1);

DRAWTEXT(底背离,-0.50,' 底背离'),COLORYELLOW;

A20:=BARSLAST(REF(CROSS(DEA1,DIF1),1));

顶背离:=REF(CLOSE,A20+1)<CLOSE AND REF(DIF1,A20+1)>DIF1 AND CROSS(DEA1,DIF1);

DRAWTEXT(顶背离,30,' 顶背离'),COLORGREEN;

DRAWICON(顶背离,30,2);

SG:=EMA(HHV(HIGH,1),8);

XA1:=EMA(CLOSE,8);

X30:=((XA1 < REF(XA1,1)) AND (CLOSE < XA1));

X31:=IF(((SG < REF(SG,1)) OR X30),1,0);

全仓出击:=((((COUNT((X31 = 1),4) = 3) AND (X31 = 0)) AND (((CLOSE - REF(CLOSE,1)) / REF(CLOSE,1)) > 0.085)) * 89);

STICKLINE(全仓出击,18,0,3,0),COLORFF00FF;

DRAWICON((全仓出击 >= 89),18,1);

DRAWTEXT((全仓出击 >= 89),18,'*大胆杀入');