所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.005,0.05,0,所属板块),COLOR00C0C0;
K2:=1;
A:=EMA((EMA(C,29)+EMA(C,31)+EMA(C,33))/3,3);
A1:=EMA((EMA(C,1)+EMA(C,3)+EMA(C,5))/3,3),COLOR1010FF;
A3:=IF(K2!=2,EMA((EMA(C,5)+EMA(C,6)+EMA( C,7))/3,3),DRAWNULL),COLORCYAN,LINETHICK3;{COLOR1030FF;}
A4:=IF(K2!=2, EMA((EMA(C,7)+EMA(C,9)+EMA( C,11))/3,3),DRAWNULL),COLOR1040FF;
A5:=IF(K2!=2, EMA((EMA(C,9)+EMA(C,11)+EMA( C,13))/3,3),DRAWNULL)COLOR1050FF;
A6:=IF(K2!=2, EMA((EMA(C,11)+EMA(C,13)+EMA( C,15))/3,3),DRAWNULL)COLOR1060FF;
A7:=IF(K2!=2, EMA((EMA(C,13)+EMA(C,15)+EMA( C,17))/3,3),DRAWNULL)COLOR1070FF;
A8:=IF(K2!=2, EMA((EMA(C,15)+EMA(C,17)+EMA( C,19))/3,3),DRAWNULL)COLOR1080FF;
A9:=IF(K2!=2, EMA((EMA(C,17)+EMA(C,19)+EMA( C,21))/3,3),DRAWNULL),COLORLIMAGENTA;{COLOR1080EF;}
A10D:=IF(K2!=2, EMA((EMA(C,19)+EMA(C,21)+EMA( C,23))/3,3),DRAWNULL),COLORLIMAGENTA;{COLOR10C0FF;}
A11D:=IF(K2!=2, EMA((EMA(C,21)+EMA(C,23)+EMA( C,25))/3,3),DRAWNULL),COLORWHITE,LINETHICK2;
A15D:IF(K2!=2, A-(A1-A*0.977),DRAWNULL),COLORBLUE,LINETHICK3;{COLORFF0000;原997}
A24D:=IF(K2!=2, A-(A10D-A),DRAWNULL)COLORF6D030;
A25D:=IF(K2!=2, A-(A11D-A*0.987),DRAWNULL)COLORF5F030;{原997}
AK2:=IF(K2=2,EMA((EMA(C,5)+EMA(C,7)+EMA( C,9))/3,3),DRAWNULL);
AK1:=IF(K2=2,A-(A1-A*0.987),DRAWNULL);{原997}
{5日变色线}
越过成仙M240:=MA(C,240),COLORGRAY,LINETHICK1;
M144:=MA(C,144),COLORWHITE,LINETHICK1;
M88:=MA(C,88),COLORLIGRAY,LINETHICK1;
越过有道M120:=MA(C,120),COLORMAGENTA,LINETHICK1;
{越过强势M60:MA(C,60),COLORGREEN,LINETHICK3;}
M30:=MA(C,27),COLORGREEN,LINETHICK2;
M20:=MA(C,17),COLORMAGENTA,LINETHICK2;
M10:=MA(C,10),COLORWHITE,LINETHICK1;
M5:MA(C,3),COLORRED,LINETHICK3;
BB55:=ATAN((M5/REF(M5,1)-1)*100)*180/3.1416;
IF(BB55>30 AND M5>REF(M5,1), M5,DRAWNULL),COLORRED,LINETHICK3;
BB100:=ATAN((M10/REF(M10,1)-1)*100)*180/3.1416;
IF(BB55<0 AND M5<REF(M5,1), M5,DRAWNULL),COLORCYAN,LINETHICK2;
V1:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);
V2:=(1-7/100)*(DMA(CLOSE,V1));
{变色下插支撑线}
{YM:=EMA(SLOPE((CLOSE+HIGH+LOW)/3,24)*20+(CLOSE+HIGH+LOW)/3,40);
YM1:=EMA(YM,1),NODRAW;
YM2:=EMA(YM1,2),NODRAW;
DRAWBAND(YM1,RGB(240,120,80),YM2,RGB(40,240,50));{变色条。如喜欢可以去掉括号}
{下插操作线}
{6、绿色新中操作线，无未来}
BR:=MA(CLOSE,13)+MA(CLOSE,13)-REF(MA(CLOSE,13),1);
分水岭R:=IF(MA(CLOSE,17)<BR,BR,MA(CLOSE,17)),COLORFF00FF,NODRAW;
YR:=分水岭R-(EMA(C,3)-分水岭R),COLORGREEN,LINETHICK2;
{多方上穿Y1变红色}
{IF(M5>REF(YR,1),YR,DRAWNULL),COLORYELLOW,LINETHICK2;}
OUTF:=CROSS(M5,YR);
{DRAWICON(OUTF,L*1.2,19);}
越过强势M60:=MA(C,60),COLORWHITE,LINETHICK2;{60日均线};
B55:=ATAN((A15D/REF(A15D,1)-1)*100)*180/3.1416;
IF(55>30 AND A15D>REF(A15D,1), A15D,DRAWNULL),COLORCYAN,LINETHICK3;
B100:=ATAN((M5/REF(M5,1)-1)*100)*180/3.1416;
IF(B55<0 AND A15D<REF(A15D,1), A15D,DRAWNULL),COLORRED,LINETHICK3;
OUT1:=CROSS(M5,A15D);
IF(M5>REF(A3,1),A3,DRAWNULL),COLORYELLOW,LINETHICK5;{黄金支撑线}
DRAWICON(OUT1,L*0.98,13);
DRAWICON(OUTF,L*1.1,19);
DRAWTEXT(ISLASTBAR, M5,' M5'),COLORYELLOW ;
DRAWTEXT(ISLASTBAR, A15D,' A15D'),COLORRED ;
涨停:=BETWEEN(CLOSE/REF(CLOSE,1),1.0984,1.110) AND C=H AND C>O;
R1:=(C>REF(C,1) AND C>REF(C,2));
R2:=(REF(R1,1) AND C<=REF(C,1) AND C>=REF(C,2));
R3:=(REF(R2,1) AND C>=REF(C,1) AND C<=REF(C,2));
R4:=(REF(R3,1) AND C<=REF(C,1) AND C>=REF(C,2));
R5:=(REF(R4,1) AND C>=REF(C,1) AND C<=REF(C,2));
R6:=(REF(R5,1) AND C<=REF(C,1) AND C>=REF(C,2));
R7:=(REF(R6,1) AND C>=REF(C,1) AND C<=REF(C,2));
R8:=(REF(R7,1) AND C<=REF(C,1) AND C>=REF(C,2));
R9:=(REF(R8,1) AND C>=REF(C,1) AND C<=REF(C,2));
RA:=(REF(R9,1) AND C<=REF(C,1) AND C>=REF(C,2));
RB:=(REF(RA,1) AND C>=REF(C,1) AND C<=REF(C,2));
RC:=(REF(RB,1) AND C<=REF(C,1) AND C>=REF(C,2));
RD:=(C<REF(C,1) AND C<REF(C,2));
RE:=(REF(RD,1) AND C>=REF(C,1) AND C<=REF(C,2));
RF:=(REF(RE,1) AND C<=REF(C,1) AND C>=REF(C,2));
R10:=(REF(RF,1) AND C>=REF(C,1) AND C<=REF(C,2));
R11:=(REF(R10,1) AND C<=REF(C,1) AND C>=REF(C,2));
R12:=(REF(R11,1) AND C>=REF(C,1) AND C<=REF(C,2));
R13:=(REF(R12,1) AND C<=REF(C,1) AND C>=REF(C,2));
R14:=(REF(R13,1) AND C>=REF(C,1) AND C<=REF(C,2));
R15:=(REF(R14,1) AND C<=REF(C,1) AND C>=REF(C,2));
R16:=(REF(R15,1) AND C>=REF(C,1) AND C<=REF(C,2));
R17:=(REF(R16,1) AND C<=REF(C,1) AND C>=REF(C,2));
R18:=(REF(R17,1) AND C>=REF(C,1) AND C<=REF(C,2));
R19:=((REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1)) AND R1);
R1A:=((REF(R1 OR R2 OR R3 OR R4 OR R5 OR R6 OR R7 OR R8 OR R9 OR RA OR RB OR RC,1)) AND RD);
蓝心板:=REF(RD OR RE OR RF OR R10 OR R11 OR R12 OR R13 OR R14 OR R15 OR R16 OR R17 OR R18,1);
RSV9:=(C-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K1:=SMA(RSV9,3,1);
DK1:=K1-REF(K1,1);
出手就赢:=IF(DK1>7 AND REF(DK1,1)<0 AND (DK1-REF(DK1,1))>9,50,0);
绿心板:=(出手就赢=50 OR REF("KDJ.J",1)<0) AND "KDJ.J">0;
红心板:=蓝心板 AND 绿心板;
绿心过滤:=IF((蓝心板),DRAWNULL,绿心板);
蓝心过滤:=IF((绿心板),DRAWNULL,蓝心板);
{STICKLINE(涨停,O,C,3.6,1),COLORYELLOW;
STICKLINE(涨停 AND 蓝心过滤,O,C,0.4,0),COLORBLUE;
STICKLINE(涨停 AND 绿心过滤,O,C,0.4,0),COLORGREEN;
STICKLINE(涨停 AND 红心板,O,C,0.4,0),COLORRED;};
VAR11A:=DMA(AMOUNT/VOL/100,VOL/CAPITAL);
VAR4AA:=CLOSE/(REF(CLOSE,1))>1.05 AND (HIGH/CLOSE<1.01);{1.05;1.01}
游资进场:=(FILTER(VAR4AA>0,34)AND DYNAINFO(4)>0)*8,COLORYELLOW;
LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12));
拉升:=FILTER(LS,28);
DRAWTEXT(游资进场=8,L*0.90,'---飓风口'),COLORCYAN;
STICKLINE(游资进场,L*0.91,L*0.98,2,0),COLORBLUE;
VARR1:=(C+H+O+L)/4;
AA1:=XMA(VARR1,20)*(1+80/1000);
BB1:=XMA(VARR1,32)*(1-100/1000);
SJXZ:=IF(DATE<1931128,1,0);
通道上轨:=AA1*SJXZ,COLORYELLOW,LINETHICK2;
通道下轨:=BB1*SJXZ,COLORRED,LINETHICK2;
STICKLINE(BB1>LOW AND BB1<HIGH AND A15D>M5,BB1,MIN(MIN(OPEN,CLOSE),BB1),3,0),COLORF00FF0;
STICKLINE(BB1>MIN(C,O) AND BB1<MAX(C,O) AND A15D>M5,BB1,MIN(OPEN,CLOSE),3,0),COLORF00FF0;
STICKLINE(BB1>HIGH AND A15D>M5,OPEN,CLOSE,3,0),COLORF00FF0;
STICKLINE(BB1>HIGH AND A15D>M5,HIGH,LOW,0,0),COLORF00FF0;
坑后上涨:=CROSS(BB1>HIGH AND C<M5 AND C< A15D AND A15D>M5,0.99);
DRAWTEXT(坑后上涨,H*1.09,'★坑后上涨'),COLORCYAN;
STICKLINE(坑后上涨,H*1.0055,H*1.0855,1,0),COLORWHITE;
买点柱:=CROSS(M5>REF(A3,1) AND A15D>M5,0.99);
DRAWTEXT(买点柱,H*1.09,'★买点柱'),COLORYELLOW;
STICKLINE(买点柱,H*1.0055,H*1.0855,2,0),COLORRED;
VAR1C:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
VAR2C:=REF(VAR1C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR3C:=REF(VAR2C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR4C:=REF(VAR3C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR5C:=REF(VAR4C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR6C:=REF(VAR5C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR7C:=REF(VAR6C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR8C:=REF(VAR7C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR9C:=REF(VAR8C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARAC:=REF(VAR9C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARBC:=REF(VARAC,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARCC:=REF(VARBC,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VARDC:=CLOSE<REF(CLOSE,1) AND CLOSE<REF(CLOSE,2);
VAREC:=REF(VARDC,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VARFC:=REF(VAREC,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR10C:=REF(VARFC,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR11C:=REF(VAR10C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR12C:=REF(VAR11C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR13C:=REF(VAR12C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR14C:=REF(VAR13C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR15C:=REF(VAR14C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR16C:=REF(VAR15C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR17C:=REF(VAR16C,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
VAR18C:=REF(VAR17C,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
VAR19C:=REF(VARDC OR VAREC OR VARFC OR VAR10C OR VAR11C OR VAR12C OR VAR13C OR VAR14C OR VAR15C OR VAR16C OR VAR17C OR VAR18C,1) AND VAR1C;
STICKLINE(VAR19C AND A15D>M5,L*0.960,L*0.990,5,0),COLORGREEN;
DRAWTEXT(VAR19C AND A15D>M5,L*0.94,'---潜伏'),COLORWHITE;
