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

多头战法主图，通达信源码，无私分享！由于时间关系，选股通达信源码，明天有时间再写，期待大家喜欢和关注，感恩大家支持！源码如下：

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;

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;

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;

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;

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

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

{计算成本集中度}

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;

本文只作为知识分享，仅供学习交流，不构成任何投资建议，禁止作为买卖依据，请勿用于股票交易。股市有风险，入市需谨慎。