黑码初显

VURH9:=WINNER(C)>0.95 AND HHV(C,13)=C AND 100*(C-MA(C,12))/MA(C,12)>10 ;

STICKLINE(VURH9>0,5,9.2,1,0),COLORFF00FF;

DRAWTEXT(VURH9,9.18,'追'),COLORYELLOW;

日K:="KDJ.K#DAY"(9,3,3);

日D:="KDJ.D#DAY"(9,3,3);

日YDIF:="MACD.DIF#DAY"(12,26,9);

日YDEA:="MACD.DEA#DAY"(12,26,9);

日RSI:="RSI.RSI1#DAY"(9);

周K:="KDJ.K#WEEK"(9,3,3);

周D:="KDJ.D#WEEK"(9,3,3);

周YDIF:="MACD.DIF#WEEK"(12,26,9);

周YDEA:="MACD.DEA#WEEK"(12,26,9);

周RSI:="RSI.RSI1#WEEK"(9);

月K:="KDJ.K#MONTH"(9,3,3);

月D:="KDJ.D#MONTH"(9,3,3);

月YDIF:="MACD.DIF#MONTH"(12,26,9);

月YDEA:="MACD.DEA#MONTH"(12,26,9);

月RSI:="RSI.RSI1#MONTH"(9);

XY1:=日K>日D;

XY2:=日YDIF>日YDEA;

XY3:=日RSI>5;

XY4:=周K>周D;

XY5:=周YDIF>周YDEA;

XY6:=周RSI>5;

XY7:=月K>月D;

XY8:=月YDIF>月YDEA;

XY9:=月RSI>5;

黑码初显:=XY1 AND XY2 AND XY3 AND XY4 AND XY5 AND XY6 AND XY7 AND XY8 AND XY9;

STICKLINE(黑码初显,0.05,5,1,0),COLORBLUE;

STICKLINE(黑码初显 AND C/REF(C,1)>1.05,0.05,5,2,0)COLORYELLOW;

STICKLINE(黑码初显 AND C/REF(C,1)>1.05,0.05,5,1,0),COLORRED;

DRAWTEXT(黑码初显,5,'黑'),COLORWHITE;

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

DEAX:=EMA(DIFX,9);

AAAT:=(DIFX-DEAX)*2*60;

启动:=CROSS(AAAT-REF(AAAT,1),15),COLORRED,LINETHICK2;

DRAWTEXT(启动,2,'↖金牛启动'),COLORYELLOW,LINETHICK2;

DIFK:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEAK:=EMA(DIFK,9);

STICKLINE(DIFK>=DEAK,-10,-13,5,0),COLOR0000BB;

STICKLINE(DIFK<DEAK,-10,-13,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-12,'★MACD日线★'),COLOR00FFFF;

周MD:=MACD.DIF#WEEK;

周MA:=MACD.DEA#WEEK;

STICKLINE(周MD>=周MA,-13.5,-16.5,5,0),COLOR0000BB;

STICKLINE(周MD<周MA,-13.5,-16.5,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-15,'★MACD周线★'),COLOR00FFFF;

月MD:=MACD.DIF#MONTH;

月MA:=MACD.DEA#MONTH;

STICKLINE(月MD>=月MA,-16.5,-19.5,5,0),COLOR0000BB;

STICKLINE(月MD<月MA,-16.5,-19.5,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-18,'★MACD月线★'),COLOR00FFFF;

RSVX:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));

KX:=SMA(RSVX,3,1);

DHX:=SMA(KX,3,1);

JX:=3*KX-2*DHX;

STICKLINE(KX>=DHX,-20.5,-23.5,5,0),COLOR0000FF;

STICKLINE(KX<DHX,-20.5,-23.5,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-22,'★KDJ日线★'),COLORFFFFFF;

周XK:="KDJ.K#WEEK" ;

周XD:="KDJ.D#WEEK" ;

STICKLINE(周XK>=周XD,-24.5,-27.5,5,0),COLOR0000FF;

STICKLINE(周XK<周XD,-24.5,-27.5,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-26,'★KDJ周线★'),COLORWHITE;

月XK:="KDJ.K#MONTH" ;

月XD:="KDJ.D#MONTH" ;

STICKLINE(月XK>=月XD,-28.5,-31.5,5,0),COLOR0000FF;

STICKLINE(月XK<月XD,-28.5,-31.5,5,1),COLOR696969;

DRAWTEXT(CURRBARSCOUNT=13,-30,'★KDJ月线★'),COLORWHITE;

VUR1:=VOL/CAPITAL;

VUR2:=1.1*(MAX(HIGH,REF(CLOSE,1))/MIN(LOW,REF(CLOSE,1))-1);

VUR3:=2.5*MAX(VUR1,VUR2);

VUR4:=DMA(CLOSE,VUR3);

VUR5:=20*(VUR4/REF(VUR4,1)-1)*38;

VUR6:=EMA(VUR5,2);

VUR7:=EMA(VUR5,2);

VUR8:=EMA(VUR7,3);

VURS:=EMA(VUR7,8);

VUR9:=1.1*(MAX(INDEXH,REF(INDEXC,1))/MIN(INDEXL,REF(INDEXC,1))-1);

VURA:=2.5*MAX(VUR1,VUR9);

VURB:=DMA(INDEXC,VURA);

VURC:=EMA(20*(VURB/REF(VURB,1)-1),1)*38;

VURD:=EMA(VURC,2);

VURE:=EMA(VURC,2);

D强:STICKLINE(VURD>0,0,VURD,3.3,1),COLORMAGENTA;

D弱:STICKLINE(VURD<0,0,VURD,3.3,1),COLORCYAN;

极强:STICKLINE(VUR5>0,0,VUR5,3.3,0),COLORYELLOW;

STICKLINE(VUR5>0,0,VUR5,2.5,0),COLOR00BBBB;

STICKLINE(VUR5>0,0,VUR5,1.5,0),COLOR00FFFF;

强势:STICKLINE(VUR6>0,0,VUR6,3.3,0),COLOR0000AA;

STICKLINE(VUR6>0,0,VUR6,2.5,0),COLOR0000BB;

STICKLINE(VUR6>0,0,VUR6,1.5,0),COLOR0000FF;

极弱:STICKLINE(VUR5<0,0,VUR5,3.3,0),COLOR00AA00;

STICKLINE(VUR5<0,0,VUR5,2.5,0),COLOR00BB00;

STICKLINE(VUR5<0,0,VUR5,1.5,0),COLOR00FF00;

弱势:STICKLINE(VUR6<0,0,VUR6,3.3,0),COLOR005AAA;

STICKLINE(VUR6<0,0,VUR6,2.5,0),COLOR007BBB;

STICKLINE(VUR6<0,0,VUR6,1.5,0),COLOR009FFF;

DX:=VURE,LINETHICK2,COLOR1088FF;

界:=VURS,LINETHICK2,COLOR6CBC10;

控:=VUR8,LINETHICK2,COLORFF10FF;

零:0,COLORCCCCCC;

额:AMOUNT/100000000,NODRAW;

VAR1:=AMOUNT/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

流入亿:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),AMOUNT/2))/100000000,COLORRED,NODRAW;

流出亿:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN- LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-AMOUNT/2))/100000000,COLOR00FF00,NODRAW;

差:(流入亿+流出亿),NODRAW;

强:=EMA((CLOSE-REF(CLOSE,1))/CLOSE*10,2);

主力:=EMA(差,1),COLORFF00FF,LINETHICK5;

差A:3*EMA(EMA(EMA(EMA(强,2),2),2),2),NODRAW;

净流:3*EMA(EMA(EMA(EMA(差A,1),2),2),2), COLORRED,NODRAW;

MID:= MA(CLOSE,26);

AB:= EMA((EMA(CLOSE,3)+EMA(CLOSE,5)+EMA(CLOSE,8)+EMA(CLOSE,13))/4,2)LINETHICK2;

UPPER:= IF(DATE<1090501,MID+2*STD(CLOSE,26),0);

AUPPER:= IF(DATE<1090501,MID+1.7*2*STD(CLOSE,26),0);

LOWER:= IF(DATE<1090501,MID-2*STD(CLOSE,26),0);

ALOWER:= IF(DATE<1090501,MID-1.7*2*STD(CLOSE,26),0);

DRAWTEXT(CROSS(AB,MID),0,'追击');

K30:=SMA(((CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100),3,1);

MD1:=K30-REF(K30,1)>9 ;

MD2:=V/REF(V,1)>2.4 OR REF(COUNT(ABS((C-REF(C,1))/REF(C,1))*100<2,6)=6,1) OR REF(V/REF(V,1)>2.4,1) ;

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

暴张:IF(MD1 AND MD2 AND DIFF>DEA,6,0),COLORYELLOW;

DRAWTEXT(暴张,5,暴张),COLORYELLOW;

STICKLINE(MD1 AND MD2,0,5,2.5,0),COLORFF00FF,LINETHICK2;

DRAWTEXT(MD1 AND MD2 ,暴张,'暴张'),COLORWHITE;

A0:=((L+H+C*2)/4);

中:=EMA(A0,13)*1.0618,COLORWHITE,LINETHICK2;

下:=EMA(A0,13),COLORRED,LINETHICK2;

多空:=EMA((EMA(CLOSE,29)+EMA(CLOSE,31)+EMA(CLOSE,33))/3,3),COLORYELLOW,LINETHICK3;

{动能节奏}

AA:=EMA((2*C+H+L)/4,3);

A1:=SLOPE(AA*5-REF(AA,5),5)+C;

DIF:=EMA(A1,3) - EMA(A1,13);

DEA1:=EMA(DIF,3);

动能线:IF(C>中 AND C>下 AND C>多空 AND (DIF-DEA1)>0,(DIF-DEA1),0),COLORYELLOW;

{龙头阻击}

龙:=CLOSE/REF(CLOSE,1)>1.048 AND CLOSE=HIGH AND BETWEEN(FORCAST(VOL,4),0.2*FORCAST(VOL,12),2.1*FORCAST(VOL,12));

龙头阻击:(动能线>0 AND FILTER(龙,19));

DRAWICON(龙头阻击,动能线*1.1,25);

涨幅:=(C/REF(C,1)-1)*100;

去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);

XG:=去ST AND 去除停牌 AND 去除科创板;

MA10:=MA(CLOSE,10);

MA54:=MA(CLOSE,54);

HJ_8:=(REF(CLOSE,3)-CLOSE)/REF(CLOSE,3)*100>5;

HJ_9:=FILTER(HJ_8,10);

HJ_10:=BARSLAST(HJ_9);

HJ_11:=REF(HIGH,HJ_10+2);

HJ_12:=REF(HIGH,HJ_10+1);

HJ_13:=REF(HIGH,HJ_10);

HJ_14:=MAX(HJ_11,HJ_12);

HJ_15:=MAX(HJ_14,HJ_13);

HJ_16:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>3.5;

HJ_17:=HJ_10<150;

HJ_18:=(OPEN-HJ_15)/HJ_15*100<30;

HJ_19:=(CLOSE-LLV(LOW,HJ_10))/LLV(LOW,HJ_10)*100<50;

HJ_20:=(CLOSE-REF(OPEN,5))/REF(OPEN,5)*100<30;

HJ_21:=VOL/MA(VOL,5)<3.5;

HJ_22:=(CLOSE-REF(CLOSE,89))/REF(CLOSE,89)*100<80;

HJ_25:=HJ_16 AND HJ_17 AND HJ_18 AND HJ_19 AND HJ_20 AND HJ_21 AND HJ_22;

BOLL:=MA(CLOSE,20);

UPPER1:=BOLL+2*STD(CLOSE,20);

PER:=CROSS(C,UPPER1);

TPZ1:=MA((L+H+C)/3,5);

TPZ2:=HHV(TPZ1,60);

TPZ3:=CROSS(C,TPZ2*0.95) OR CROSS(C,TPZ2*0.98) ;

TPZ4:=PER AND HJ_25 AND TPZ3;

TPZ5:=MA(CLOSE,25)+MA(CLOSE,25)*20/100*0.35;

TPZ6:=(MA(MA(H,25),25)-MA(MA(L,25),25))*1+MA(MA(H,25),25);

TPZ7:=REF(C<TPZ6 OR C<TPZ5,1) AND C>TPZ6 AND C>TPZ5 ;

TPZ8:=TPZ4 OR TPZ7;

龙头趋势:动能线>0 AND ((涨幅>8 AND C=H) OR 涨幅>12)AND TPZ8 AND XG AND C/REF(C,1)>1.05 AND REF(C,1)/REF(C,2)<1.04 AND REF(C>3.7,1) AND REF(C<19,1) AND (CAPITAL/100)/10000<=15 AND O/REF(C,1)<1.05 AND C>O,COLORRED;

VAR36:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;

VAR38:=SMA(VAR36,3,1);

散户:=SMA(VAR38,3,1) ;

新庄:=SMA(散户,3,1);

GHYX:=FILTER(CROSS(散户,新庄) AND 散户<20,25)=1;

操盘底线:=0.812*MA(FORCAST(CLOSE,2),34)*1.05;

触及底线:=(LOW<操盘底线 OR LOW=操盘底线);

建仓区间:=(CLOSE<操盘底线 OR CLOSE=操盘底线);

最佳买点:=CROSS(CLOSE,操盘底线);

千年:=触及底线&&GHYX OR 建仓区间&&GHYX OR 最佳买点&&GHYX;

金剑:IF(千年,20,0),COLORMAGENTA;

VAR2N:=LLV(LOW,3)<=LLV(LOW,60);

VAR3N:= C>O AND (C/O>1.03 OR C>1.03*REF(C,1));

绝地反击:=IF(VAR2N AND VAR3N,90,0);

银剑:IF(绝地反击,20,0),COLORFF4242;

DIFA:=EMA(CLOSE,6)-EMA(CLOSE,13);

DEAA:=EMA(DIFA,5);

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

MK日金叉:=CROSS(DIFA,DEAA) AND CROSS(K,D);

铁剑:IF(MK日金叉,20,0),LINETHICK1,COLORYELLOW;

X1:=C<=REF(C,1) AND C<=O;

X2:=C<=REF(C,1) AND C>=O;

X3:=X1>0 OR X2>0;

XT0:=BARSLAST(X3);

X4:=MAX(REF(C,XT0),REF(O,XT0));

X5:=REF(V,XT0);

YT:=XT0>0 AND C>X4 AND V>X4*1.1;YS:=IF(YT>0 AND REF(YT,1)=0,10,0);

YSJ:=YS>0;

XA1:=(CLOSE/REF(CLOSE,1)>1.098 OR C/O>1.098) AND V<HHV(V,21);

X0:=NOT(NAMELIKE('S') OR NAMELIKE('*S')) AND VOL>1;

XA2:=BARSLAST(XA1);

XA31:=(L>=REF(L,XA2) AND (L-REF(L,XA2))<=0.03);

XA32:=(L>=REF(C,XA2)*0.99 AND (L-REF(C,XA2))<=0.03) ;

XA33:=(0>=REF(C,XA2)*0.99 AND (0-REF(C,XA2))<=0.03);

XA3:=XA31 OR XA32 OR XA33;

龙吟1:=YSJ AND C>O AND C>REF(C,1) AND XA3 AND (XA2<21 OR COUNT(REF(XA2,1),21)>=1) AND X0,COLORYELLOW;

龙吟:IF(龙吟1,30,0),LINETHICK1,COLORYELLOW;

YB:=(C-REF(C,1))*100/REF(C,1)>=9.9 AND L=H;

XA4:=(ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.14115926);

XA5:=MA(XA4,5);

XA6:=PLOYLINE(CROSS(XA4,XA5),XA5);

XA7:=PLOYLINE(CROSS(XA5,XA4),XA4);

XA8:=COUNT(CROSS(XA4,XA5),XA6<REF(XA6,5) AND XA7>REF(XA7,5));

XA9:=CROSS(EMA(C,3),EMA(C,21));

XA10:=CROSS(MA(C,3),MA(C,21));

XA11:=((MAX(C,O)-MIN(C,O))/MIN(C,O))*100;

XA12:=(CLOSE/REF(CLOSE,1)<=0.96 OR CLOSE/OPEN<=0.96) AND (V/HHV(V,20)<=0.618 OR VOL/REF(VOL,1)<=0.5 OR VOL<HHV(VOL,5));

XA13:=(CLOSE/REF(CLOSE,1)>=1.04 OR CLOSE/OPEN>=1.04) AND (V/HHV(V,20)<=0.618 OR VOL/REF(VOL,1)<=0.5 OR VOL<HHV(VOL,5))

AND C>REF(C,1) AND HIGH>LOW;

XA14:=O>REF(C,1) AND C>REF(C,1) AND H>(H,1);

XA15:=(REF(C<REF(C,1) AND V/REF(V,1)<0.67,2) OR REF(XA12,2) OR REF(XA13,2)) AND REF(XA11<3,1) AND REF(V,1)<REF(V,2) AND XA14;

XA16:=O>REF(CLOSE,1) AND CLOSE>OPEN AND CLOSE>REF(O,1);

XA17:=(REF(XA12,1) AND XA16 AND XA13) OR XA15;

XA18:=(CROSS(C,MA(C,5)) AND CROSS(C,MA(C,13)) AND CROSS(C,MA(C,21)) OR CROSS(C,MA(C,34)))

AND MA(C,5)>REF(MA(C,5),1);

XA19:=MA(C,5)>REF(MA(C,5),1) AND MA(C,5)>MA(C,10) AND MA(C,10)>=MA(C,20);

XA20:=XA18 AND 龙吟 AND NOT(YB) AND (XA8 OR XA10 OR XA9 OR CROSS(C,MA(C,20)));

XA21:=龙吟 AND (V/REF(V,1)>1.5 OR REF(V,1)/REF(V,2)<0.67) AND (XA8 OR XA10 OR XA9 OR CROSS(C,MA(C,20))) AND NOT(O/REF(C,1)>1.06)

AND NOT(YB) AND X0,COLORMAGENTA;

XA22:=C>O AND C>REF(C,1) {AND V>REF(V,1)} AND XA17 AND (COUNT(龙吟,8)=1 OR XA18) AND NOT(YB)

AND (XA8 OR XA10 OR XA9 OR CROSS(C,MA(C,20))) AND X0,COLORGREEN;

龙跃1:=(XA20 OR XA21 OR XA22),COLORCYAN;

龙跃:IF(龙跃1,30,0),LINETHICK1,COLORCYAN;