神奇的波段指标

红绿线表示多空波段

包含了短期支撑压力

提示BS和止损价

还加入了一个单阳不破的提示

会提示用到未来数据，是画线时使用的，不影响其他

{波段线（通达信主图）}

N:=20;N1:=7;N2:=79;

MA7:MA(C,7),COLORMAGENTA,LINETHICK2;

MA89:MA(C,89),COLORBLUE,LINETHICK2;

VAR1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

A1:=(EMA(VAR1,3)+EMA(VAR1,6)+EMA(VAR1,12)+EMA(VAR1,24))/4;

A2:=EMA(A1,2);

A3:=EMA(A2,2);

A4:=EMA(A3,2);

A5:=EMA(A4,2);

A6:=EMA(A5,2);

A7:=EMA(A6,2);

IF(A1>REF(A1,1),A1,DRAWNULL),COLORRED;

IF(A1<REF(A1,1),A1,DRAWNULL),COLORGREEN;

IF(A2>REF(A2,1),A2,DRAWNULL),COLORRED;

IF(A2<REF(A2,1),A2,DRAWNULL),COLORGREEN;

IF(A3>REF(A3,1),A3,DRAWNULL),COLORRED;

IF(A3<REF(A3,1),A3,DRAWNULL),COLORGREEN;

IF(A4>REF(A4,1),A4,DRAWNULL),COLORRED;

IF(A4<REF(A4,1),A4,DRAWNULL),COLORGREEN;

IF(A5>REF(A5,1),A5,DRAWNULL),COLORRED;

IF(A5<REF(A5,1),A5,DRAWNULL),COLORGREEN;

IF(A6>REF(A6,1),A6,DRAWNULL),COLORRED;

IF(A6<REF(A6,1),A6,DRAWNULL),COLORGREEN;

IF(A7>REF(A7,1),A7,DRAWNULL),COLORRED;

IF(A7<REF(A7,1),A7,DRAWNULL),COLORGREEN;

压力:HHV(MA((L+H+C)/3,5),60),COLORCYAN,LINETHICK2;

JJ:=(CLOSE+HIGH+LOW)/3;

A:=EMA(JJ,10);

B:=REF(A,1);

DRAWICON(REF(A<B,1) AND A>B,L*0.98,1);

{DRAWTEXT(REF(A<B,1) AND A>B,L,'--------------B'), COLORYELLOW;}

M3:=EMA(CLOSE,3);

M8:=EMA(CLOSE,8);

M13:=EMA(M8,13);

M55:=EMA(M8,55);

VAR1B:=EMA(M13,55);

M81:=EMA(M55,81);

M6:=EMA(VAR1B,144), COLORRED,LINETHICK2;

VAR2B:=(REF(HIGH,1)+REF(LOW,1))/2;

VAR3B:=MA(CLOSE,N)+2*STD(CLOSE,N);

DRAWICON(CROSS(VAR2B,VAR3B),HIGH+0.1,2);

VAR4B:=REF(CLOSE,1);

VAR5B:=SMA(MAX(CLOSE-VAR4B,0),N1,1)/SMA(ABS(CLOSE-VAR4B),N1,1)*100;

VAR6B:=CROSS(N2,VAR5B);

VAR7B:=FILTER(VAR6B,4);

DRAWICON(VAR7B,HIGH+0.1,2);

ZTJZ:=IF(REF(C,1)*1.1-C<0.01 ,1,0);

STICKLINE(ZTJZ AND COUNT(ZTJZ,13)>=1,C,O,1,0),COLORYELLOW;

DRAWTEXT(ZTJZ AND COUNT(ZTJZ,13)>=1,H*1.015,''),COLORYELLOW,LINETHICK1;

DRAWTEXT(ZTJZ AND COUNT(ZTJZ,13)>=1,H*1.028,''),COLORYELLOW;

YZFZ:=4;

YBLZ:=1.90;

DYKX:=C>O*(1+YZFZ/100) AND VOL>REF(VOL,1)*YBLZ;

LS0:=BARSLAST(DYKX);

BPJZ:=REF(L,LS0);

DRAWTEXT(DYKX,L-L*0.02,'阳'),COLOR00FFFF;

WZX1:=BPJZ *0.998;

WZX2:=BPJZ *0.98;

LS11:=IF(1,LS0=1,DYKX);

LS21:=IF(1,LLV(L,1)>REF(L,1),1);

DYBP:=LS11 AND LS21;

STICKLINE(DYBP,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP,WZX2,'1'),COLORGREEN;

LS12:=IF(2,LS0=2,DYKX);

LS22:=IF(2,LLV(L,2)>REF(L,2),1);

DYBP2:=LS12 AND LS22;

STICKLINE(DYBP2,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP2,WZX2,'2'),COLORGREEN;

LS13:=IF(3,LS0=3,DYKX);

LS23:=IF(3,LLV(L,3)>REF(L,3),1);

DYBP3:=LS13 AND LS23;

STICKLINE(DYBP3,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP3,WZX2,'3'),COLORGREEN;

LS14:=IF(4,LS0=4,DYKX);

LS24:=IF(4,LLV(L,4)>REF(L,4),1);

DYBP4:=LS14 AND LS24;

STICKLINE(DYBP4,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP4,WZX2,'4'),COLORGREEN;

LS15:=IF(5,LS0=5,DYKX);

LS25:=IF(5,LLV(L,5)>REF(L,5),1);

DYBP5:=LS15 AND LS25;

STICKLINE(DYBP5,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP5,WZX2,'5'),COLORGREEN;

LS16:=IF(6,LS0=6,DYKX);

LS26:=IF(6,LLV(L,6)>REF(L,6),1);

DYBP6:=LS16 AND LS26;

STICKLINE(DYBP6,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP6,WZX2,'6'),COLORGREEN;

LS17:=IF(7,LS0=7,DYKX);

LS27:=IF(7,LLV(L,7)>REF(L,7),1);

DYBP7:=LS17 AND LS27;

STICKLINE(DYBP7,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP7,WZX2,'7'),COLORGREEN;

LS18:=IF(8,LS0=8,DYKX);

LS28:=IF(8,LLV(L,8)>REF(L,8),1);

DYBP8:=LS18 AND LS28;

STICKLINE(DYBP8,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP8,WZX2,'8'),COLORGREEN;

LS19:=IF(9,LS0=9,DYKX);

LS29:=IF(9,LLV(L,9)>REF(L,9),1);

DYBP9:=LS19 AND LS29;

STICKLINE(DYBP9,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP9,WZX2,'9'),COLORGREEN;

LS110:=IF(10,LS0=10,DYKX);

LS210:=IF(10,LLV(L,10)>REF(L,10),1);

DYBP10:=LS110 AND LS210;

STICKLINE(DYBP10,WZX1,BPJZ,4,0),COLORMAGENTA;

DRAWTEXT(DYBP10,WZX2,'10'),COLORGREEN;

DIF:=EMA(CLOSE,8)-EMA(CLOSE,13);

DEA:=EMA(DIF,6);

TCMACD:=2*(DIF-DEA);

GD1:=EVERY(DIF>REF(DIF,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;

GD2:=EVERY(TCMACD>REF(TCMACD,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;

GD:=MAX(GD1,GD2);

GDWZ1:=REF(MAX(C,O),BARSLAST(GD1)+1);

GDWZ2:=REF(MAX(C,O),BARSLAST(GD2)+1);

GDWZ:=IF(GDWZ2>=GDWZ1,GDWZ2,GDWZ1);

AA:=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(GDWZ)+1)=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(BBI>REF(BBI,1)AND C>BBI));

AA1:=REF(CLOSE,1);

压力2:DRAWLINE(BARSLAST(AA)=0,IF(C>O,C,MAX(C,O)),BARSNEXT(AA),REF(IF(C>O,C,MAX(C,O)),BARSLAST(AA)),1),DOTLINE,COLORYELLOW;

LD1:=EVERY(DIF<REF(DIF,1),BARSLASTCOUNT(DIF<DEA))AND DIF<DEA;

LD2:=EVERY(TCMACD<REF(TCMACD,1),BARSLASTCOUNT(DIF<DEA))AND DIF<DEA;

LD:=MIN(LD1,LD2);

DDWZ1:=REF(MIN(C,O),BARSLAST(LD1)+1);

DDWZ2:=REF(MIN(C,O),BARSLAST(LD2)+1);

DDWZ:=IF(DDWZ2<=DDWZ1,DDWZ1,DDWZ2);

BB:=LLV(IF(C<O,C,MIN(C,O)),BARSLASTCOUNT(LD)+1)=LLV(IF(C<O,C,MIN(C,O)),BARSLASTCOUNT(DIF<REF(DIF,1) AND BBI<REF(BBI,1)}AND L<BBI));

ZCWZ:DRAWLINE(BARSLAST(BB)=0,IF(C<O,C,MIN(C,O)),BARSNEXT(BB),REF(IF(C<O,C,MIN(C,O)),BARSLAST(BB)),1),DOTLINE,COLORGREEN;

DRAWNUMBER(ISLASTBAR,HHV(C,5)*0.95*1.015,HHV(C,5)*0.95),COLORWHITE;

STICKLINE(ISLASTBAR,HHV(C,5)*0.95-0.01,HHV(C,5)*0.95,50,0),COLORWHITE;

DRAWTEXT(ISLASTBAR,HHV(C,5)*0.95*0.99,'止损价位'),COLORWHITE;

MA60:=MA(C,60);

GLV60:=(C-MA60)/MA60*100;

DRAWTEXT_FIX(1,0.05,0.1,0,STRCAT('乖离率: ',CON2STR(GLV60,2))),COLORYELLOW;

DRAWTEXT_FIX(1,0.15,0.1,0,STRCAT(DYBLOCK,STRCAT('--',STRCAT(HYBLOCK,STRCAT('--',GNBLOCK))))),COLORYELLOW;

DRAWTEXT_FIX(1,0.05,0.15,0,STRCAT('市盈率:',CON2STR(DYNAINFO(39),2))),COLORRED;

DRAWTEXT_FIX(1,0.15,0.15,0,STRCAT('市净率:',CON2STR(C/FINANCE(34),2))),COLORRED;