{黑马启动必抓副图源码如下}
拉升量:WINNER(C/1.3)*100,LINETHICK0,COLORMAGENTA;
STICKLINE(((C/1.3)*100),拉升量,0,2,0),COLORMAGENTA;
STICKLINE(((C/1.3)*100),拉升量,0,0.7,0),COLORMAGENTA;
STICKLINE(((C/1.3)*100),拉升量,0,0.2,0),COLORMAGENTA;
{1号线以下不发动}
准备: SMA(HIGH,21,2)*1.05,COLORGREEN,LINETHICK1,NODRAW;
启动:EMA(CLOSE,1){,DOTLIN},COLORMAGENTA,LINETHICK1,NODRAW;
理想: SMA(CLOSE,2,1),COLORYELLOW,LINETHICK1,NODRAW;
STICKLINE(启动>准备,0,5,8,0),{COLORRED}COLORCFB53B,LINETHICK2;
STICKLINE(启动<理想,0,5,8,0),COLORCFB53B,LINETHICK1;
STICKLINE(启动<准备,0,5,8,0),COLORCFB53B,LINETHICK1;
{打首板寻妖副S}
去ST:=NAMELIKE('ST')=0 AND NAMELIKE('*ST')=0 AND NAMELIKE('SST')=0 AND NAMELIKE('S*ST')=0;
去除停牌:=DYNAINFO(4)>0;
去除创业板:=IF(CODELIKE('300') OR CODELIKE('301') ,0,1) ;
去除科创板:=IF(CODELIKE('688'),0,1);
去:=去ST AND 去除停牌 AND 去除创业板 AND 去除科创板;
涨停1:=C/REF(C,1)>1.093 AND C=H;
涨停2:=COUNT(REF(涨停1,1),4)=0;
均价:=(2*C+(C+H+L+O)/4+O)/4;
JJR1:=(2*L+3*均价)/5;
JJR2:=(2*H+3*均价)/5;
JJR3:=ABS(均价-MA((JJR1+JJR2)/2,20))/MA((JJR1+JJR2)/2,20);
JJR4:=DMA(均价,JJR3);
JJR5:=(1+7/100)*JJR4,COLORCYAN;
打首板1:= 去 AND 涨停2 AND CROSS(C,JJR5) AND CROSS(C,EMA(REF(HHV(C,10),1),3)) AND C/REF(C,1)>1.095 AND O/REF(C,1)<1.05 AND C>O AND REF(C,1)/REF(C,2)<1.05,COLORCYAN;
打首板2:= 去 AND 涨停2 AND C>(LLV(REF(LOW,1),2) + ((HHV(REF(HIGH,1),2) - LLV(REF(LOW,1),2)) / 2)) AND C/REF(C,1)>1.095 AND CROSS(C,EMA(REF(HHV(C,40),1),3)) AND O/REF(C,1)<1.05 AND C>O AND REF(C,1)/REF(C,2)<1.05;
HJHJK1:=(MA(CLOSE,25) + ((MA(CLOSE,25) * 6) / 100));
HJHJK2:=((((MA(CLOSE,3) + MA(CLOSE,6)) + MA(CLOSE,12)) + MA(CLOSE,24)) / 4);
HJHJK3:=(LLV(REF(LOW,1),2) + ((HHV(REF(HIGH,1),2) - LLV(REF(LOW,1),2)) / 2));
HJHJK4:=(((C > HJHJK1) AND (C >HJHJK2)) AND (C >HJHJK3)) AND REF(C,1)/REF(C,2)<1.04;
HJHJK5:=EMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*4,5)*100;
HJHJK6:=REF(HJHJK5,1)>50 AND HJHJK5-REF(HJHJK5,1)>40;
HJHJK7:=REF(HJHJK4,1)=0 AND HJHJK4 AND REF(HJHJK6,1)=0 AND HJHJK6;
打首板:=打首板1 OR 打首板2;
启动打板:打首板 AND HJHJK7,COLORRED,LINETHICK2;
{黑马必抓}
X_1:=CLOSE*VOL;
X_2:=EMA((EXPMA(X_1,23)/EXPMA(VOL,23)+EXPMA(X_1,54)/EXPMA(VOL,54)+EXPMA(X_1,108)/EXPMA(VOL,108)+EXPMA(X_1,316)/EXPMA(VOL,316))/4,34);
X_3:=1.0668*X_2;
X_4:=CROSS(CLOSE,X_3) AND REF(CLOSE,1)*1.05-CLOSE<0.008 AND CLOSE>OPEN*0.5;
X_5:=X_4;
STICKLINE(IF(X_5,(-120),0),12,0,2,0),COLORMAGENTA;
STICKLINE(IF(X_5,(-120),0),8,0,2,0),COLORYELLOW;
STICKLINE(X_5,0,4,2,0),COLORGREEN;
DRAWTEXT(X_5,10,'大黑马'),COLORYELLOW;
X_6:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,23))/EMA(CLOSE,23));
X_7:=DMA((2.15*CLOSE+LOW+HIGH)/4,X_6);
X_8:=EMA(X_7,200)*1.118;
X_9:=EMA(X_7,200)*1.118;
X_10:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>8;
X_11:=CROSS(CLOSE,X_8) AND X_10;
STICKLINE(X_11,8,0,2,0),COLORRED;
DRAWTEXT(X_11,6,'黑马启动'),COLORYELLOW;
X_12:=MA(CLOSE,5);
X_13:=MA(CLOSE,30);
X_14:=MA(CLOSE,5);
X_15:=MA(CLOSE,13);
X_16:=MA(CLOSE,34);
X_17:=SMA(EMA((X_14-REF(X_14,1))/REF(X_14,1),3)*100,3,1);
X_18:=EMA(X_17-REF(X_17,1),3);
X_19:=(CLOSE-X_12)/X_12*100;
X_20:=(CLOSE-X_16)/X_16*100;
X_21:=COUNT(CROSS(X_19,0),3)>=1 AND X_20>REF(X_20,1) AND X_12>REF(X_12,1) AND (CLOSE/REF(CLOSE,1)-1)*100>5 AND REF(CLOSE,1)<X_13;
X_22:=FILTER(X_21,10);
STICKLINE(X_22,4,0,2,0),COLORMAGENTA;
DRAWTEXT(X_22,2,'黑马必抓'),COLORYELLOW;
{黑马启动必抓主图源码如下}
{JH5大黑马主图改版}
ZT:=C/REF(C,1)>1.0982 AND C=H;
STICKLINE(ZT,O,C,2,0),COLORRED;
DT:=C/REF(C,1)<0.913 AND C=L;
STICKLINE(DT,O,C,2,0),COLORLIGREEN;
MA5:=MA(C,5);MA10:=MA(C,10);MA20:=MA(C,20);MA30:=MA(C,30);
G5:=(C-MA5)/MA5*100;BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;
EW:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);GY:=EMA((EW-REF(EW,1)),3);
G3:=(C-MA30)/MA30*100;BB30:=ATAN((MA30/REF(MA30,1)-1)*100)*180/3.1416;
TTBV:=MAX(ABS(HIGH-AMOUNT/VOL/100),ABS(AMOUNT/VOL/100-LOW));
TTYH:=ABS((OPEN+CLOSE)/2-AMOUNT/VOL/100);MV:=(TTBV+TTYH)/AMOUNT*VOL*100*50;
黄海线:MA(REF(HHV(C,30),1),2),COLORYELLOW,LINETHICK2;
大黑马线:MA(C,250),LINETHICK1,COLORWHITE,DOTLINE;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
JZX1:=CROSS(DIF,DEA);
JZX2:=CROSS(DEA,DIF);
前高:IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDHIGHBARS(DIF,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDHIGH(H,BARSLAST(JZX2),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL),COLORMAGENTA,DOTLINE;
前低:IF(CONST(SUMBARS(JZX1,2)-BARSLAST(JZX2))>2,IF(CURRBARSCOUNT<=CONST(FINDLOWBARS(DIF,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1))+1,CONST(FINDLOW(L,BARSLAST(JZX1),SUMBARS(JZX1,2)-BARSLAST(JZX2),1)),DRAWNULL),DRAWNULL),COLORGREEN,DOTLINE;
