通达信捕捉暴涨主图、捉暴涨冰糖版（源码贴图）

{强弱分界线: 50, POINTDOT, LINETHICK2, COLORYELLOW;

 VAR2:=IF(MONTH<12,1,1);

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

 VAR4:=LLV(LOW,34);

 VAR5:=HHV(HIGH,34);

 主力:EMA((VAR3-VAR4)/(VAR5-VAR4)*100,13)*VAR2,LINETHICK4,COLORRED;

 散户:EMA(0.667*REF(主力,1)+0.333*主力,2),LINETHICK2,COLORFF9933;

 DRAWTEXT(CROSS(主力,散户) AND 主力<22,20,'起动'),LINETHICK2,COLOR0099FF;

 DRAWICON(CROSS(主力,散户) AND 主力<22,25,1);

 DRAWTEXT(CROSS(主力,30) AND 散户<主力,40,'上扬 '),LINETHICK2,COLOR00CCFF;

 DRAWICON(CROSS(主力,30) AND 散户<主力,35,1);

 DRAWTEXT(CROSS(主力,65) AND 散户<主力,55,'冲顶 '),LINETHICK2,COLOR9933FF;

 DRAWICON(CROSS(主力,65) AND 散户<主力,70,2);

 DRAWTEXT(CROSS(主力,75) AND 散户<主力,67,'小心被套'),LINETHICK2,COLOR009900;

 DRAWICON(CROSS(主力,75) AND 散户<主力,80,2);

 DRAWTEXT(CROSS(散户,主力) AND 散户>75,80,'头部'),COLORYELLOW;

 DRAWICON(CROSS(散户,主力) AND 散户>75,85,2);

 买入脉冲:IF(CROSS(主力,散户) AND 主力<35,55,5),LINETHICK4,COLORGREEN;

 卖出脉冲:IF(CROSS(散户,主力) AND 散户>75,75,90),LINETHICK4,COLORRED;

 BB1:=WINNER(CLOSE)*100;

 BB2:=100-BB1;

 BB3:=ABS(BB1-BB2);}

 

 

 

 

{捕捉暴涨主图}

M1:MA(CLOSE,13),COLORYELLOW,LINETHICK2;

 M2:MA(CLOSE,34),LINETHICK2,COLORWHITE;

 M3:MA(CLOSE,55),COLORGREEN,LINETHICK2;

 A:MA(C,5)COLORBLUE,LINETHICK3;

 B:=A<REF(A,1);

 IF(B-1,A,DRAWNULL)COLORRED,LINETHICK3;

 DRAWTEXT(LAST(C<O,3,0) AND LAST(VOL<REF(VOL,1),3,0),L*0.975,'三阴\N缩量\N一阳');

 DRAWTEXT(CROSS("DMI.PDI","DMI.MDI") AND CROSS("DMI.PDI","DMI.ADX") AND CROSS("DMI.PDI","DMI.ADXR") AND C>REF(C,1)*1.05 AND VOL>REF(VOL,1),L*0.975,'DMI\N捉暴涨');

 DRAWTEXT(LAST(MA(C,5)<MA(C,10),5,0) AND "CCI.CCI">REF("CCI.CCI",1) AND CROSS("CCI.CCI",-100),L*0.975,'CCI\N背离底');

 DRAWTEXT(LAST((H-L)/REF(C,1)<0.1,5,0) AND VOL>REF(VOL,1)*2 AND C>REF(C,1)*1.05,L*0.975,'一二一\N平台起');

 DRAWTEXT(LAST(MA(C,5)<MA(C,10),5,0) AND C>REF(C,1)*1.098,L*0.975,'山谷\N停板');

 DRAWTEXT((LAST(C<O,6,3) AND LAST(C>O,2,0)) OR (LAST(C<O,6,3) AND C>O AND REF(C,1)<REF(O,1) AND REF(C,2)>REF(O,2)),L*0.975,'拨云\N见日');

 DRAWTEXT(CROSS((CLOSE-MA(CLOSE,5))/MA(CLOSE,5)*100,(CLOSE-MA(CLOSE,11))/MA(CLOSE,11)*100) AND MA(C,40)>REF(MA(C,40),1),L*0.98,'BIAS\N绝密买点');

 DRAWTEXT(C<O AND VOL>REF(VOL,1)*1.5 AND LAST(VOL<REF(VOL,1),5,1),L*0.975,'南天\N一柱');

 DRAWTEXT((C>O AND V>REF(V,1)*2.5 AND CROSS(C,MA(C,5))) OR (C>O AND V>REF(V,1)*10),L*0.975,'顶天\N立地');