通达信波段线主图源码 贴图

神奇的波段指标
红绿线表示多空波段
包含了短期支撑压力
提示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;