通达信大黑妈启动（修正源码，重发）

A1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,23))/EMA(CLOSE,23));

A2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),A1);

金线王:=EMA(A2,200)*1.118;

金线王2:=EMA(A2,200)*1.118;

条件:=(C-REF(C,1))/REF(C,1)*100>8;

金K线:=CROSS(C,金线王) AND 条件;

TJ:=1;

AHC1:=CLOSE*VOL;

AHC22:=EMA((EXPMA(AHC1,23)/EXPMA(VOL,23)+EXPMA(AHC1,54)/EXPMA(VOL,54)+EXPMA(AHC1,108)/EXPMA(VOL,108)+EXPMA(AHC1,316)/EXPMA(VOL,316))/4,34);

通道:=1.0668*AHC22;

起爆:=CROSS(C,通道) AND REF(C,1)*1.05-C<0.008 AND C>O*0.5 AND TJ>0;

 

AA05:=MA(C,5);

AA30:=MA(C,30);

MA30:=MA(C,34);

五日乖离率:=(C-AA05)/AA05*100;

三拾日乖离率:=(C-MA30)/MA30*100;

MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30;

买入:=FILTER(MR,10);

 

RRF:=金K线 OR 起爆  OR 买入;

 

黑妈启动:IF(金K线,1,DRAWNULL),COLORYELLOW;

黑妈一号:IF(起爆 ,1,DRAWNULL),COLORGREEN;

黑妈必抓:IF(买入 ,1,DRAWNULL),COLORCYAN;

 

STICKLINE(IF(RRF,-120,0),+12,0,3.0,0),COLOR440055;

STICKLINE(IF(RRF,-120,0),+12,0,2.4,0),COLOR550077;

STICKLINE(IF(RRF,-120,0),+12,0,1.8,0),COLOR660099;

STICKLINE(IF(RRF,-120,0),+12,0,1.2,0),COLOR7700BB;

STICKLINE(IF(RRF,-120,0),+12,0,0.6,0),COLOR8800DD;

STICKLINE(IF(RRF,-120,0),+12,0,0.1,0),COLOR9900FF;

 

STICKLINE(IF(RRF,-120,0),+9,0,3.0,0),COLOR330033;

STICKLINE(IF(RRF,-120,0),+9,0,2.4,0),COLOR550055;

STICKLINE(IF(RRF,-120,0),+9,0,1.8,0),COLOR770077;

STICKLINE(IF(RRF,-120,0),+9,0,1.2,0),COLOR990099;

STICKLINE(IF(RRF,-120,0),+9,0,0.6,0),COLORBB00BB;

STICKLINE(IF(RRF,-120,0),+9,0,0.1,0),COLORDD00DD;

 

STICKLINE(IF(RRF,-120,0),+6,0,3.0,0),COLOR003300;

STICKLINE(IF(RRF,-120,0),+6,0,2.4,0),COLOR005500;

STICKLINE(IF(RRF,-120,0),+6,0,1.8,0),COLOR007700;

STICKLINE(IF(RRF,-120,0),+6,0,1.2,0),COLOR009900;

STICKLINE(IF(RRF,-120,0),+6,0,0.6,0),COLOR00BB00;

STICKLINE(IF(RRF,-120,0),+6,0,0.1,0),COLOR00DD00;

 

STICKLINE(IF(金K线,-120,0),+3,0,3.0,0),COLOR555555;

STICKLINE(IF(金K线,-120,0),+3,0,2.4,0),COLOR777777;

STICKLINE(IF(金K线,-120,0),+3,0,1.8,0),COLOR999999;

STICKLINE(IF(金K线,-120,0),+3,0,1.2,0),COLORBBBBBB;

STICKLINE(IF(金K线,-120,0),+3,0,0.6,0),COLORDDDDDD;

STICKLINE(IF(金K线,-120,0),+3,0,0.1,0),COLORFFFFFF;

 

STICKLINE(IF(起爆,-120,0),+3,0,3.0,0),COLOR005555;

STICKLINE(IF(起爆,-120,0),+3,0,2.4,0),COLOR007777;

STICKLINE(IF(起爆,-120,0),+3,0,1.8,0),COLOR009999;

STICKLINE(IF(起爆,-120,0),+3,0,1.2,0),COLOR00BBBB;

STICKLINE(IF(起爆,-120,0),+3,0,0.6,0),COLOR00DDDD;

STICKLINE(IF(起爆,-120,0),+3,0,0.1,0),COLOR00FFFF;

DRAWTEXT(金K线,8.5,'黑妈启动'),COLORYELLOW;

DRAWTEXT(起爆, 5.5,'黑妈一号'),COLORWHITE;

DRAWTEXT(买入, 2.5,'黑妈必抓'),COLORCYAN;