通达信启动黑马源码主图

　　VASS1:=HHV(H,20);

　　VASS2:=LLV(L,20);

　　VASS3:=REF((VASS1/VASS2-1)*100<=30,1);

　　VAR6:=REF(CLOSE,1);

　　VAR7:=SMA(maX(CLOSE-VAR6,0),6,1)/SMA(Abs(CLOSE-VAR6),6,1)*100;

　　stICKLINE(crOSS(84,VAR7),CLOSE,OPEN,2.8,0),COLORGREEN;

　　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,LINETHICK2,COLORYELLOW;

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

　　{金线王3:EMA(A2,20)*1.108,LINETHICK1,COLORRED;}

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

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

　　DRAWTEXT(金K线,L*0.98,'↖金K线'),COLORRED;

　　DRAWTEXT(金K线,L*0.98,' K '),COLORYELLOW ;

　　STICKLINE(金K线,CLOSE,OPEN,3.2,0),COLOR0077FF;

　　STICKLINE(金K线,CLOSE,OPEN,2.5,0),COLOR0099FF;

　　STICKLINE(金K线,CLOSE,OPEN,1.9,0),COLOR00BBFF;

　　STICKLINE(金K线,CLOSE,OPEN,1.2,0),COLOR00ddfF;

　　STICKLINE(金K线,CLOSE,OPEN,0.3,0),COLOR00FFFF;

　　MA1:MA(CLOSE,5);

　　{黑马一号}

　　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,COLOR9F5F9F,LINETHICK3;

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

　　VARR1:=V;

　　VARR2:=VARR1>MA(V,89);

　　VARR3:=EXPMA(C,5);

　　VARR4:=EXPMA(C,29);

　　VARR5:=VARR3>VARR4;

　　LC:=REF(CLOSE,1);

　　rsi1:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

　　RSI2:=SMA(MAX(CLOSE-LC,0),56,1)/SMA(ABS(CLOSE-LC),56,1)*100;

　　VARR6:=RSI1>RSI2 AND VARR5 AND VARR2 AND C>REF(HHV(H,40),1);

　　DRAWTEXT(起爆 AND VARR6 AND VASS3,L*0.97,'↖黑马一号'),COLORYELLOW;

　　{红}

　　STICKLINE(起爆 AND VARR6 AND VASS3,CLOSE,OPEN,3,0),COLOR000099;

　　STICKLINE(起爆 AND VARR6 AND VASS3,CLOSE,OPEN,2.2,0),COLOR0000CC;

　　STICKLINE(起爆 AND VARR6 AND VASS3,CLOSE,OPEN,1.5,0),COLOR0000FF;

　　STICKLINE(起爆 AND VARR6 AND VASS3,CLOSE,OPEN,0.5,0),COLORCC66FF;

　　STICKLINE(起爆 AND VARR6 AND VASS3,OPEN,CLOSE,0.5,0),COLORYELLOW;

　　{黑马启动}

　　DRAWTEXT(金K线 AND VARR6 AND VASS3,L*0.94,'↖黑马启动'),COLORRED;

　　STICKLINE(金K线 AND VARR6 AND VASS3,CLOSE,OPEN,3,0),COLOR000099;

　　STICKLINE(金K线 AND VARR6 AND VASS3,CLOSE,OPEN,2.2,0),COLOR0000CC;

　　STICKLINE(金K线 AND VARR6 AND VASS3,CLOSE,OPEN,1.5,0),COLOR0000FF;

　　STICKLINE(金K线 AND VARR6 AND VASS3,CLOSE,OPEN,0.5,0),COLORCC66FF;

　　STICKLINE(金K线 AND VARR6 AND VASS3,OPEN,CLOSE,0.5,0),COLORYELLOW;

　　{涨停板K线加色}

　　C3:=REF(C,1);

　　涨停:=IF((C-C3)*100/C3>=(10-0.01*100/C3),1,0);

　　STICKLINE(涨停,OPEN,CLOSE,2,0),COLORYELLOW;

　　{机构持有}

　　AA1:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE

　　VOL/CAPITAL*100,0)),0);

　　成交额:=V*C/100,NODRAW;{万元}

　　AA2:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

　　AA3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

　　AA4:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

　　AA5:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

　　AA6:=((AA2+AA3)+AA4)+AA5;

　　DD1:=1;

　　AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2)/AA6,0)),'%');

　　AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3)/AA6,0)),'%');

　　DRAWTEXT_FIX(DD1=1,0.9,0.9,0,AAA1),COLORRED;

　　DRAWTEXT_FIX(DD1=1,0.9,0.99,0,AAA2),COLORGREEN;

　　{一阳线上穿五条平均线}

　　MA5:=MA(C,5);

　　MA10:=MA(C,10);

　　MA20:=MA(C,20);

　　MA30:=MA(C,30);

　　MA55:=MA(C,55);

　　低:=O

　　高:=C>MA5 AND C>MA10 AND H>MA20 AND H>MA30 AND H>MA55;

　　选股:=低 AND 高;

　　STICKLINE(选股,CLOSE,OPEN,3,0),COLOR000099;

　　STICKLINE(选股,CLOSE,OPEN,2.2,0),COLOR0000CC;

　　STICKLINE(选股,CLOSE,OPEN,1.5,0),COLOR0000FF;

　　STICKLINE(选股,CLOSE,OPEN,0.5,0),COLORCC66FF;

　　STICKLINE(选股,OPEN,CLOSE,0.5,0),COLORYELLOW;

　　DRAWTEXT(选股,L*0.94,'↖一穿五'),COLORYELLOW;