提示：点上方↑“吃喝玩乐在线“免费订阅！

不破战法优化，融合多头战法，二为一体，弥补先天不足，通达信主图源码如下：

DRAWTEXT_FIX(ISLASTBAR,0.01,0.01,0,HYBLOCK),COLOR0000FF;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.07,0,DYBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.13,0,GNBLOCK),COLORFF00FF;

DRAWTEXT_FIX(ISLASTBAR,0.01,0.2,0,FGBLOCK),COLOR0080FF;

A:=AMOUNT/V/100;

VARA:=EMA((((A-EMA(A,13))/EMA(A,13))*(0-100)),5);

QQ:=EMA(((VARA/10)+EMA(A,13)),0);

行情线:=MA(A,1);

重心:=(C+0.618*REF(C,1)+0.382*REF(C,1)+0.236*REF(C,3)+0.146*REF(C,4))/2.382;

【趋势线】:EMA(((SLOPE(C,22)*20)+C),55),COLORYELLOW,LINETHICK4;

【波段线】:IF(重心>=【趋势线】,【趋势线】,DRAWNULL),COLORRED,LINETHICK2;

【空仓线】:IF(重心<【趋势线】,【趋势线】,DRAWNULL),COLORCYAN,LINETHICK2;

DRAWTEXT(ISLASTBAR,【趋势线】,’【趋势线】’),COLORRED;

{引:EMA(CLOSE,2),LINETHICK1,COLORMAGENTA;

探:MA(CLOSE,5),LINETHICK1;}

变:EMA(CLOSE,5),LINETHICK1,COLORYELLOW;

金:IF(变>REF(变,1),变,DRAWNULL),COLORRED,LINETHICK1;

空:IF(变<REF(变,1),变,DRAWNULL),COLORGREEN,LINETHICK1;

DRAWTEXT(ISLASTBAR,变,’【波段线】’),COLORRED;

{顶底信号}

DA:=(EMA(H,1)+EMA(L,1)+EMA(H,1)+EMA(H,1))/4;

DB:=EMA(REF(HHV(H,25),1),2),COLORGREEN,LINETHICK1;

{DRAWTEXT(CROSS(DB,DA),DB,’←险’),COLORGREEN,LINETHICK1;}

DRAWTEXT(CROSS(DA,【趋势线】),【趋势线】,’B’),COLORWHITE,LINETHICK1;

{涨跌停显示}

涨停:=IF((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(O,1)),1,0);

STICKLINE(涨停,O,C,1,0),COLORYELLOW;

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

STICKLINE(ZDF<-9.9,O,C,1,0),COLORBLUE;

{主图均线指标2}

VAR3:=LLV(HIGH,240);

VAR4:=100*(CLOSE-VAR3)/VAR3;

VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;

VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;

VAR7:=0;

VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;

VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;

VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);

VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);

VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3);

VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3);

VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3);

VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);

VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3);

VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);

VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3);

VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);

买１:=VAR10;

买２:=(VAR11+VAR13+VAR15+VAR17);

卖１:=(VAR12+VAR14+VAR16+VAR18);

B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;

S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;

VAR100:=(100 – ((90 * (HHV(HIGH,20) – CLOSE)) / (HHV(HIGH,20) – LLV(LOW,20))));

VAR200:=(100 – ((90 * (HHV(HIGH,20) – CLOSE)) / (HHV(HIGH,20) – LLV(LOW,20))));

VAR300:=(100 – MA(((100 * (HHV(HIGH,5) – CLOSE)) / (HHV(HIGH,5) – LLV(LOW,5))),34));

F:IF(CROSS(VAR200,MA(VAR300,5)),LOW * 0.98,DRAWNULL),CROSSDOT,LINETHICK3,COLORFF00FF;

DRAWTEXT(CROSS(S,卖１),S,’←落袋为安’),COLORWHITE,LINETHICK1;

DRAWTEXT(CROSS(B,买１),B,’←不破买入’),COLORRED,LINETHICK1;

{价:}

{JC1:=(REF(C,3)+REF(C,5)+REF(C,7)+REF(C,8)+REF(C,13)+REF(C,21))/6;

参考价1:SMA(JC1,5,1),CIRCLEDOT,COLORGREEN;

IF(C>=参考价1,参考价1,DRAWNULL),CIRCLEDOT,COLOR0000FF;}

PH:=TROUGHBARS(2,5,1);

LL:=HHV(H,PH);

TJ1:=LL=HIGH AND LL<REF(LL,1);{//=1}

TS:=SUMBARS(TJ1,2);

TJ:=PEAKBARS(2,5,1)=1 AND TS>=PH;

DRAWICON(TJ,HIGH*1.01+0.02,2);

警告灯:IF(TJ,HIGH*1.008,DRAWNULL),CROSSDOT,LINETHICK2,COLORCYAN;

PL:=BARSLAST(TJ);

支撑位:IF(BARSLAST(TJ1),

REF(LOW,BARSLAST(TJ1)),DRAWNULL),COLOREA91B5;

压力位:IF(BARSLAST(TJ),REF(HIGH,PL),DRAWNULL),COLORYELLOW;

TJ_2:=LOW>REF(REF(LOW,TS),PL);

DRAWTEXT(ISLASTBAR,压力位,’压力位’),COLORYELLOW;

DRAWTEXT(ISLASTBAR,支撑位,’支撑位’),COLOREA91B5;

{DRAWICON(COUNT(TJ_2,PL+1)=1,HIGH*1.005,2);{//向下的箭头表示出局点}

{DRAWICON(BARSLAST(TJ1),REF(LOW*0.995,BARSLAST(TJ1)),1);}; 

AZ1:=C>REF(C,4);

NT:=BARSLASTCOUNT(AZ1);

TJ11:=NT=9;

TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);

AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;

DRAWTEXT(AY>0,H*1.002,VAR2STR(AY,0)),COLORFF00FF;

DRAWTEXT(NT=9,H*1.002,’9′),COLORGREEN;

BZ1:=C<REF(C,4);

NT0:=BARSLASTCOUNT(BZ1);

TJ21:=NT0=9 ;

TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);

AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;

DRAWTEXT(AY1>0,L*0.998,VAR2STR(AY1,0)),COLORFF00FF;

DRAWTEXT(NT0=9,L*0.998,’9′),COLORGREEN;

{==============================}

{主图提示公式 – 成本集中度变化监控}

{计算成本集中度}

C95:=COST(95);

C5:=COST(5);

成本集中90:(C95-C5)/CONST(HHV(H,0))*100,NODRAW;

{计算昨日值和变化绝对值（中间变量，不画线）}

昨日成本集中90:=REF(成本集中90,1);

{注意：变化绝对值仅用于内部计算，不输出显示}

VAR_CHANGE:=成本集中90 – 昨日成本集中90;

{判断条件}

派发条件:=VAR_CHANGE >= 2;

承接条件:=VAR_CHANGE <= -5;

高风险条件:=VAR_CHANGE > 8;

{主图标注}

DRAWTEXT(承接条件, H*1.02, ‘承接’), COLORRED;

DRAWTEXT(高风险条件, H*1.05, ‘风险’), COLORGREEN;

{使用图标}

DRAWICON(高风险条件, H*1.1, 1);

DRAWICON(派发条件, L*0.95, 2);

DRAWICON(承接条件, H*1.12, 3);

{柱状线显示}

STICKLINE(派发条件, L*0.97, L*0.93, 1, 0), COLORYELLOW;

STICKLINE(承接条件, H*1.03, H*1.07, 1, 0), COLORRED;

STICKLINE(高风险条件, H*1.06, H*1.1, 1, 0), COLORGREEN;

{显示变化值 – 仅在最后一根K线显示（可选，若不需要可删除下面两行）}

DRAWNUMBER(ISLASTBAR, H*1.08, VAR_CHANGE), COLORWHITE;

DRAWTEXT(ISLASTBAR, H*1.12, ‘变化值:’), COLORWHITE;

X_1:=MA((-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19);

X_2:=(-100)*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));

X_3:=EMA((-100)*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4);

X_4:=X_2+100;

X_5:=IF(CLOSE>REF(CLOSE,1),VOL,0);

X_6:=IF(CLOSE<REF(CLOSE,1),VOL,0);

X_7:=SUM(X_5,13);

X_8:=SUM(X_6,13);

X_9:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);

X_10:=MA(X_9,2);

X_11:=X_4<10 OR REF(X_4,1)<10 OR REF(X_4,2)<10 OR REF(X_4,3)<10;

X_12:=X_4<10 OR REF(X_4,1)<10 OR REF(X_4,2)<10 OR REF(X_4,3)<10 AND (X_10<10 OR REF(X_10,1)<10 OR REF(X_10,2)<10 OR REF(X_10,3)<10);

X_13:=(CLOSE+LOW+HIGH)/1.5;

X_14:=EMA(X_13,3);

X_15:=EMA(X_14,2.5);

DRAWICON(CROSS(X_14,X_15) AND X_11>0.1 AND C>MA(C,60),LOW*0.985,9),COLORRED;

DRAWICON(CROSS(X_14,X_15) AND X_12>0.1 AND C>MA(C,60),LOW*0.9398,1),COLORRED;

H1:EMA(CLOSE,8),COLORWHITE;

H2:EMA(H1,20),COLORYELLOW;

X_16:=(HHV(HIGH,36)-CLOSE)/(HHV(HIGH,36)-LLV(LOW,36))*100;

X_17:=SMA(X_16,5,1);

X_18:=SMA(X_17,8,1);

X_19:=CROSS(X_17,X_18) AND X_18<20;

X_20:=CLOSE>LLV(CLOSE,60)*1.13 AND X_19;

X_21:=IF(CLOSE>200,X_19,X_20);

STICKLINE(H1>H2,H1,H2,0,1),COLORRED;

STICKLINE(H1<H2,H1,H2,0,1),COLORGREEN;

MA3:MA(C,60),LINETHICK2,COLORFF00FF;

MA5:=MA(CLOSE,5),COLOR00FFFF;

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

开拓线:EMA(JJ,10),COLORRED,LINETHICK3;

IF(开拓线<REF(开拓线,1),开拓线,DRAWNULL),COLOR08FF16,LINETHICK3;

MA2:=MA(CLOSE,20),COLORFFFF80,LINETHICK1;

MA12:=MA(CLOSE,120),COLORFF00FF;

GQ := LOW>REF(HIGH,1);

DQR := DATE-1000000;

SV := -1;

EV := IF(WEEKDAY=1,3,2);

YGS := FINVALUE(285);

YGX := FINVALUE(286);

YGZ := (YGS+YGX)/2;

YGR := FINVALUE(313);

YGRC := (DQR-YGR>SV) AND (DQR-YGR<EV);

YGDC := (YGZ>0) AND GQ AND YGRC;

BJLR := FINVALUE(287);

KBRQ := FINVALUE(315);

KBRQC := (DQR-KBRQ>SV) AND (DQR-KBRQ<EV);

KBDC := (BJLR>0) AND GQ AND KBRQC;

CBJLR := FINVALUE(95);

EPSRATE := FINVALUE(184);

CBRQ := FINVALUE(314);

CBRQC := (DQR-CBRQ>SV) AND (DQR-CBRQ<EV);

CBDC := CBJLR > 0 AND EPSRATE  > 0 AND GQ AND CBRQC;

ZJRQDC := YGDC OR KBDC OR CBDC;

ZDRQ1 := 1;

YGS1 := FINONE(285,0,ZDRQ1);

YGX1 := FINONE(286,0,ZDRQ1);

YGZ1 := (YGS1+YGX1)/2;

YGRQ1 := FINONE(313,0,ZDRQ1);

YGRQC1 := (DQR-YGRQ1>SV) AND (DQR-YGRQ1<EV);

YGDC1 := (YGZ1>0) AND GQ AND YGRQC1;

KBJL1 := FINONE(287,0,ZDRQ1);

KBRQ1 := FINONE(315,0,ZDRQ1);

KBRQC1 := (DQR-KBRQ1>SV) AND (DQR-KBRQ1<EV);

KBDC1 := (KBJL1>0) AND GQ AND KBRQC1;

CBJL1 := FINONE(95,0,ZDRQ1);

指EPSRATE1 := FINONE(184,0,ZDRQ1);

CBRQ1 := FINONE(314,0,ZDRQ1);

CBRQC1 := (DQR-CBRQ1>SV) AND (DQR-CBRQ1<EV);

CBDC1 := CBJL1 > 0 AND 指EPSRATE1  > 0 AND GQ AND CBRQC1;

ZDRQDC1 := YGDC1 OR KBDC1 OR CBDC1;

ZDRQ2 := 2;

YGS2 := FINONE(285,0,ZDRQ2);

YGX2 := FINONE(286,0,ZDRQ2);

YGZ2 := (YGS2+YGX2)/2;

YGRQ2 := FINONE(313,0,ZDRQ2);

YGRQC2 := (DQR-YGRQ2>SV) AND (DQR-YGRQ2<EV);

YGDC2 := (YGZ2>0) AND GQ AND YGRQC2;

KBJL2 := FINONE(287,0,ZDRQ2);

KBRQ2 := FINONE(315,0,ZDRQ2);

KBRQC2 := (DQR-KBRQ2>SV) AND (DQR-KBRQ2<EV);

KBDC2 := (KBJL2>0) AND GQ AND KBRQC2;

CBJL2 := FINONE(95,0,ZDRQ2);

指EPSRATE2 := FINONE(184,0,ZDRQ2);

CBRQ2 := FINONE(314,0,ZDRQ2);

CBRQC2 := (DQR-CBRQ2>SV) AND (DQR-CBRQ2<EV);

CBDC2 := CBJL2 > 0 AND 指EPSRATE2  > 0 AND GQ AND CBRQC2;

ZDRQDC2 := YGDC2 OR KBDC2 OR CBDC2;

ZDRQ3 := 3;

YGS3 := FINONE(285,0,ZDRQ3);

YGX3 := FINONE(286,0,ZDRQ3);

YGZ3 := (YGS3+YGX3)/2;

YGRQ3 := FINONE(313,0,ZDRQ3);

YGRQC3 := (DQR-YGRQ3>SV) AND (DQR-YGRQ3<EV);

YGDC3 := (YGZ3>0) AND GQ AND YGRQC3;

KBJL3 := FINONE(287,0,ZDRQ3);

KBRQ3 := FINONE(315,0,ZDRQ3);

KBRQC3 := (DQR-KBRQ3>SV) AND (DQR-KBRQ3<EV);

KBDC3 := (KBJL3>0) AND GQ AND KBRQC3;

CBJL3 := FINONE(95,0,ZDRQ3);

指EPSRATE3 := FINONE(184,0,ZDRQ3);

CBRQ3 := FINONE(314,0,ZDRQ3);

CBRQC3 := (DQR-CBRQ3>SV) AND (DQR-CBRQ3<EV);

CBDC3 := CBJL3 > 0 AND 指EPSRATE3  > 0 AND GQ AND CBRQC3;

ZDRQDC3 := YGDC3 OR KBDC3 OR CBDC3;

ZDRQ4 := 4;

YGS4 := FINONE(285,0,ZDRQ4);

YGX4 := FINONE(286,0,ZDRQ4);

YGZ4 := (YGS4+YGX4)/2;

YGRQ4 := FINONE(313,0,ZDRQ4);

YGRQC4 := (DQR-YGRQ4>SV) AND (DQR-YGRQ4<EV);

YGDC4 := (YGZ4>0) AND GQ AND YGRQC4;

KBJL4 := FINONE(287,0,ZDRQ4);

KBRQ4 := FINONE(315,0,ZDRQ4);

KBRQC4 := (DQR-KBRQ4>SV) AND (DQR-KBRQ4<EV);

KBDC4 := (KBJL4>0) AND GQ AND KBRQC4;

CBJL4 := FINONE(95,0,ZDRQ4);

指EPSRATE4 := FINONE(184,0,ZDRQ4);

CBRQ4 := FINONE(314,0,ZDRQ4);

CBRQC4 := (DQR-CBRQ4>SV) AND (DQR-CBRQ4<EV);

CBDC4 := CBJL4 > 0 AND 指EPSRATE4  > 0 AND GQ AND CBRQC4;

ZDRQDC4 := YGDC4 OR KBDC4 OR CBDC4;

TKQK :=ZJRQDC OR ZDRQDC1 OR ZDRQDC2 OR ZDRQDC3 OR ZDRQDC4;

DRAWICON(BARSSINCEN(TKQK,5)=0 AND DATE<=1501218,L,11);

PSY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;

PSYMA:=MA(PSY,5);

     T1:=REF(TKQK,2) AND REF(L,1)>REF(H,3) AND L>REF(H,3);

        R1:=BARSLAST(T1);

  T2:=COUNT(T1,R1+1)>0 AND COUNT(L<=REF(H,R1+3),R1)=0 AND L<REF(L,R1+2)*1.05;

     T3:=REF(TKQK,2) AND REF(L,1)>REF(H,2) AND L>REF(H,2);

        R2:=BARSLAST(T3);

  T4:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+2),R2)=0 AND L<REF(L,R2+1)*1.03;

  T5:=COUNT(T3,R2+1)>0 AND COUNT(L<=REF(H,R2+3),R2)=0 AND L<REF(L,R2+2)*1.05;

 T6:=(T2 AND R1>=0 AND R1<125) OR ((T4 OR T5) AND R2>=0 AND R2<125);

T:=PSY<=50 AND C>开拓线 AND (开拓线>REF(开拓线,1) OR MA2>REF(MA2,1)) AND DATE<=1501218 AND C>O;

    DRAWICON(T AND T6,L*0.96,5); {笑脸} 

十大股东占比:(FINVALUE(244)/FINVALUE(239))*100,NODRAW,COLORYELLOW;

筹码衰减系数:100/(100-十大股东占比),NODRAW,COLORCYAN;