通达信主图终极黄金升级(附源码）

板块:=STRCAT(STRCAT(STRCAT(HYBLOCK,' '),STRCAT(DYBLOCK,' ')),GNBLOCK);

股票:=CODELIKE('600') OR CODELIKE('601') OR CODELIKE('603') OR CODELIKE('000') OR CODELIKE('002') OR CODELIKE('300');

DRAWTEXT_FIX(ISLASTBAR AND 股票,0,1,0,STRCAT(板块,STRCAT(STRCAT(' 廿换手:',CON2STR(SUM(DYNAINFO(37),20)*100,2)),'％'))),COLORYELLOW;

{趋势买卖 参数:N:=20; M:=32; P1:=80; P2:=100;}

N:=20; M:=32; P1:=80; P2:=100;

卖出:XMA((C+H+O+L)/4,N)*(1+P1/1000),COLORGREEN,POINTDOT;

买入:XMA((C+H+O+L)/4,M)*(1-P2/1000),COLORMAGENTA,POINTDOT;

生命线:=EMA(CLOSE,8), COLORGREEN;

EMA13:=EMA(生命线,13), COLORRED;

VAR1:=EMA(EMA13,62);

VAR2:=(2*CLOSE+HIGH+LOW)/4;

VAR3:=EMA(VAR2,10);

VAR4:=REF(VAR3,1);

STICKLINE(VAR3>VAR4,VAR3,VAR4,3,0), COLORYELLOW;

STICKLINE(VAR3

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

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

DRAWTEXT(CROSS(VAR5,VAR6),HIGH*1.02,'高位'), , COLORGREEN;

VAR7:=REF(CLOSE,1);

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

VAR9:=CROSS(N2,VAR8);

VARA:=FILTER(VAR9,4);

DRAWTEXT(VARA,HIGH*1.02,'调'), COLORWHITE;

VARB:=(2*CLOSE+HIGH+LOW)/4;

VARC:=LLV(LOW,34);

VARD:=HHV(HIGH,34);

VARE:=EMA((VARB-VAR1)/(VAR5-VAR1)*100,7);

VARF:=EMA(0.667*REF(VARE,1)+0.333*VARE,5);

DRAWTEXT(IF(COUNT(CLOSE0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(VARE>=VARF,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'进');

DRAWTEXT(IF(COUNT(CLOSE0.6 AND COUNT(VARE>VARF,6) AND REF(LOW,5)=LLV(LOW,120) AND REF(CLOSE>=OPEN,4) AND REF(CLOSE>OPEN,3) AND REF(CLOSE>OPEN,2) AND REF(OPEN>CLOSE,1) AND OPEN>REF(CLOSE,1),1,0),LOW,'进'), , COLORYELLOW;

DRAWTEXT(IF(CLOSEMA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE

{操盘手}

买线:=EMA(C,4);

卖线:=EMA(SLOPE(C,20)*10+C,35);

DRAWTEXT(CROSS(买线,卖线),LOW*0.98,'买'),COLORRED,LINETHICK2;

DRAWTEXT(CROSS(卖线,买线),HIGH*1.02,'卖'),COLORGREEN;

{短线高手}

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),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),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),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),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;

{机构控盘度}

JGKP1:=EMA(EMA(CLOSE,9),9);

控盘:=(JGKP1-REF(JGKP1,1))/REF(JGKP1,1)*1000,COLORWHITE,NODRAW;

POSITION_X2:=0.75; POSITION_Y2:=0.01;

无庄控盘:=控盘<0;

DRAWTEXT_FIX(无庄控盘 AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('无庄控盘:',CON2STR(控盘,2))),COLORWHITE;

开始控盘:=CROSS(控盘,0);

DRAWTEXT_FIX(开始控盘 AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('开始控盘:',CON2STR(控盘,2))),COLORYELLOW;

有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;

DRAWTEXT_FIX(有庄控盘 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('有庄控盘:',CON2STR(控盘,2))),COLORRED;

JGKP2:=100*WINNER(CLOSE*0.95);

高度控盘:=JGKP2>50 AND COST(85)0;

DRAWTEXT_FIX(高度控盘 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('高度控盘:',CON2STR(控盘,2))),COLORFF00FF;

主力出货:=控盘0;

DRAWTEXT_FIX(主力出货 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('主力出货:',CON2STR(控盘,2))),COLOR00FF00;

{以下是增加的K线文字解盘，可以删去不要}

A74:=MA(CLOSE,20);

A75:=(CLOSE > MA(CLOSE,5));

A76:=(MA(CLOSE,5) > MA(CLOSE,10));

A77:=(CLOSE > MA(CLOSE,10));

A78:=(MA(CLOSE,5) > MA(CLOSE,20));

A79:=(CLOSE > MA(CLOSE,20));

A710:=REF(A74,1);

A711:=(A74 > A710);

AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10)))

+ IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));

DSLX:=(CLOSE / INDEXC);

DSLX1:=MA(DSLX,5);

DSLX2:=MA(DSLX,10);

V1:=MA(VOL,5);

V2:=MA(VOL,10);

T1:=C<200 AND CROSS(AVX,1) AND (V1 >= V2) AND (DSLX >= DSLX1);

T2:=C<200 AND CROSS(AVX,1) AND (V1 < V2) AND (DSLX >= DSLX1);

T3:=C<200 AND CROSS(AVX,1) AND (V1 > V2) AND (DSLX < DSLX1);

T4:=C<200 AND CROSS(AVX,1) AND (V1 <= V2) AND (DSLX < DSLX1);

T5:=C<200 AND CROSS(1,AVX) AND (V1 >= V2) AND (DSLX >= DSLX1);

T6:=C<200 AND CROSS(1,AVX) AND (V1 < V2) AND (DSLX >= DSLX1);

T7:=C<200 AND CROSS(1,AVX) AND (V1 >= V2) AND (DSLX < DSLX1);

T8:=C<200 AND CROSS(1,AVX) AND (V1 < V2) AND (DSLX < DSLX1);

T9:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 >= V2) AND (DSLX >= DSLX1);

T10:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 < V2) AND (DSLX >= DSLX1);

T11:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 >= V2) AND (DSLX < DSLX1);

T12:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 < V2) AND (DSLX < DSLX1);

T13:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2) AND (DSLX >= DSLX1);

T14:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2) AND (DSLX >= DSLX1);

T15:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2) AND (DSLX < DSLX1);

T16:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2) AND (DSLX < DSLX1);

T17:=C>200 AND CROSS(AVX,1) AND (V1 >= V2);

T18:=C>200 AND CROSS(AVX,1) AND (V1 >= V2);

T19:=C>200 AND CROSS(AVX,1) AND (V1 < V2);

T20:=C>200 AND CROSS(1,AVX) AND (V1 >= V2);

T21:=C>200 AND CROSS(1,AVX) AND (V1 < V2);

T22:=C>200 AND (AVX >= 1) AND (REF(AVX,1)> 0) AND (V1 >= V2);

T23:=C>200 AND (AVX >= 1) AND (REF(AVX,1)> 0) AND (V1 < V2);

T24:=C>200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2);

T25:=C>200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2);

POSITION_X:=0.68; POSITION_Y:=0.01;

DRAWTEXT_FIX(T1=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'量能理想,明显走强,中线参与，仓位在2/3左右'),COLORFF00FF ;

DRAWTEXT_FIX(T2=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'走势趋强,还显不足,短线进场，仓位在1/2左右'),COLORFFFFFF ;

DRAWTEXT_FIX(T3=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'量价良好,没有明显走强，短线进场，仓位1/2左右'),COLORFFFFFF ;

DRAWTEXT_FIX(T4=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'形态尚可，量能不足，未完全走强，短线参与，仓位1/3左右'),COLORFFFFFF ;

DRAWTEXT_FIX(T5=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'形态变坏，重仓者减持大半，清仓者观望'),COLORFFFFFF ;

DRAWTEXT_FIX(T6=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'随大盘一起下跌，明显缩量走势，考虑到风险，减持或清仓'),COLORFFFFFF ;

DRAWTEXT_FIX(T7=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股放量下跌，走势明显偏弱，离场观望'),COLORFFFFFF ;

DRAWTEXT_FIX(T8=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股缩量下跌，走势偏弱，离场观望'),COLORFF00FF ;

DRAWTEXT_FIX(T9=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股形态良好，强势明显，量能充足，可以继续持有'),COLORFFFFFF ;

DRAWTEXT_FIX(T10=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'上行趋势不变，强势依然，量能开始转弱，注意风险'),COLORFFFFFF ;

DRAWTEXT_FIX(T11=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓'),COLORFFFFFF ;

DRAWTEXT_FIX(T12=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股走势趋弱，量能不足，减持大部分筹码'),COLORFFFFFF ;

DRAWTEXT_FIX(T13=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股形态不佳，注意成交量的变化，目前不适合参与'),COLORFFFFFF ;

DRAWTEXT_FIX(T14=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'趋势不明，股价偏弱，注意量能变化，目前不宜参与。'),COLORFFFFFF ;

DRAWTEXT_FIX(T15=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'有走强迹象，但量能不足，趋势不明，不适合操作'),COLORFFFFFF ;

DRAWTEXT_FIX(T16=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股走势太弱，没有参与价值'),COLORFF00FF ;

DRAWTEXT_FIX(T17=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘理想，有明显走强迹象，中线参与，仓位在2/3左右'),COLORFFFFFF ;

DRAWTEXT_FIX(T18=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'如前期经过一轮下跌，最佳买点，前期有过一段涨幅需谨慎'),COLORFFFFFF ;

DRAWTEXT_FIX(T19=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'考虑短线进场，仓位在1/2左右，一旦量能放大,加仓买入'),COLORFFFFFF ;

DRAWTEXT_FIX(T0=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘形态走坏，重仓者可以减去大部分仓位'),COLORFF0000 ;

DRAWTEXT_FIX(T21=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘缩量调整，注意风险，短线清仓观望'),COLORFF0000 ;

DRAWTEXT_FIX(T22=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘走势良好，量能理想，可以继续持有强势股'),COLORFF0000 ;

DRAWTEXT_FIX(T23=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘形态良好，但量能稍显不足，随时准备减仓'),COLORFF0000 ;

DRAWTEXT_FIX(T24=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘趋势不明，注意成交量变化，目前不适宜进场'),COLORFF0000 ;

DRAWTEXT_FIX(T25=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘趋势向下，量能萎缩，不适合进场'),COLORFF0000 ;

DRAWTEXT(PERIOD=6 AND VOL>2*REF(VO,1) AND CLOSE>REF(HIGH,1), (3*LOW-HIGH)/2,'量突');

注：平台目前更新的有关公式源码，(会有收费，捡漏勿扰，该主图99元可得）（全部支持电脑手机），使用过程中，若有不懂，可以及时联系我们这边，帮忙处理，，喜欢加关注，感谢点赞支持，后市若有可期，希望越来越好！