A股小妖女 发表于 2024-5-9 00:20:15

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

<p data-first-child >通达信主图终极黄金升级(附源码)</p><p >板块:=STRCAT(STRCAT(STRCAT(HYBLOCK,' '),STRCAT(DYBLOCK,' ')),GNBLOCK);</p><p >股票:=CODELIKE('600') OR CODELIKE('601') OR CODELIKE('603') OR CODELIKE('000') OR CODELIKE('002') OR CODELIKE('300');</p><p >DRAWTEXT_FIX(ISLASTBAR AND 股票,0,1,0,STRCAT(板块,STRCAT(STRCAT(' 廿换手:',CON2STR(SUM(DYNAINFO(37),20)*100,2)),'%'))),COLORYELLOW;</p><p >{趋势买卖 参数:N:=20; M:=32; P1:=80;P2:=100;}</p><p >N:=20; M:=32; P1:=80;P2:=100;</p><p >卖出:XMA((C+H+O+L)/4,N)*(1+P1/1000),COLORGREEN,POINTDOT;</p><p >买入:XMA((C+H+O+L)/4,M)*(1-P2/1000),COLORMAGENTA,POINTDOT;</p><p >生命线:=EMA(CLOSE,8), COLORGREEN;</p><p >EMA13:=EMA(生命线,13), COLORRED;</p><p >VAR1:=EMA(EMA13,62);</p><p >VAR2:=(2*CLOSE+HIGH+LOW)/4;</p><p >VAR3:=EMA(VAR2,10);</p><p >VAR4:=REF(VAR3,1);</p><p >STICKLINE(VAR3>VAR4,VAR3,VAR4,3,0), COLORYELLOW;</p><p >STICKLINE(VAR3<VAR4,VAR3,VAR4,3,0), COLORBLUE;</p><p >VAR5:=(REF(HIGH,1)+REF(LOW,1))/2;</p><p >VAR6:=MA(CLOSE,N)+2*STD(CLOSE,N);</p><p >DRAWTEXT(CROSS(VAR5,VAR6),HIGH*1.02,'高位'), , COLORGREEN;</p><p >VAR7:=REF(CLOSE,1);</p><p >VAR8:=SMA(MAX(CLOSE-VAR7,0),N1,1)/SMA(ABS(CLOSE-VAR7),N1,1)*100;</p><p >VAR9:=CROSS(N2,VAR8);</p><p >VARA:=FILTER(VAR9,4);</p><p >DRAWTEXT(VARA,HIGH*1.02,'调'), COLORWHITE;</p><p >VARB:=(2*CLOSE+HIGH+LOW)/4;</p><p >VARC:=LLV(LOW,34);</p><p >VARD:=HHV(HIGH,34);</p><p >VARE:=EMA((VARB-VAR1)/(VAR5-VAR1)*100,7);</p><p >VARF:=EMA(0.667*REF(VARE,1)+0.333*VARE,5);</p><p >DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.6 AND VOL>=1.5*MA(VOL,5) AND COUNT(VARE>=VARF,3) AND REF(LOW,1)=LLV(LOW,120),1,0),LOW,'进');</p><p >DRAWTEXT(IF(COUNT(CLOSE<REF(CLOSE,1),13)/13>0.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;</p><p >DRAWTEXT(IF(CLOSE<MA(CLOSE,80)-MA(CLOSE,10)/3 AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0),LOW,'底'), , COLORRED;</p><p >{操盘手}</p><p >买线:=EMA(C,4); </p><p >卖线:=EMA(SLOPE(C,20)*10+C,35); </p><p >DRAWTEXT(CROSS(买线,卖线),LOW*0.98,'买'),COLORRED,LINETHICK2;</p><p >DRAWTEXT(CROSS(卖线,买线),HIGH*1.02,'卖'),COLORGREEN;</p><p >{短线高手}</p><p >VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);</p><p >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);</p><p >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);</p><p >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);</p><p >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);</p><p >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);</p><p >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);</p><p >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);</p><p >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);</p><p >VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);</p><p >买1:=VAR10;</p><p >买2:=(VAR11+VAR13+VAR15+VAR17);</p><p >卖1:=(VAR12+VAR14+VAR16+VAR18);</p><p >B:IF(买1>0 OR 买2>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;</p><p >S:IF(卖1>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORGREEN;</p><p >{机构控盘度}</p><p >JGKP1:=EMA(EMA(CLOSE,9),9);</p><p >控盘:=(JGKP1-REF(JGKP1,1))/REF(JGKP1,1)*1000,COLORWHITE,NODRAW;</p><p >POSITION_X2:=0.75;   POSITION_Y2:=0.01;</p><p >无庄控盘:=控盘<0;</p><p >DRAWTEXT_FIX(无庄控盘 AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('无庄控盘:',CON2STR(控盘,2))),COLORWHITE;</p><p >开始控盘:=CROSS(控盘,0);</p><p >DRAWTEXT_FIX(开始控盘 AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('开始控盘:',CON2STR(控盘,2))),COLORYELLOW;</p><p >有庄控盘:=控盘>REF(控盘,1) AND 控盘>0;</p><p >DRAWTEXT_FIX(有庄控盘 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('有庄控盘:',CON2STR(控盘,2))),COLORRED;</p><p >JGKP2:=100*WINNER(CLOSE*0.95);</p><p >高度控盘:=JGKP2>50 AND COST(85)<CLOSE AND 控盘>0;</p><p >DRAWTEXT_FIX(高度控盘 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('高度控盘:',CON2STR(控盘,2))),COLORFF00FF;</p><p >主力出货:=控盘<REF(控盘,1) AND 控盘>0;</p><p >DRAWTEXT_FIX(主力出货 AND NOT(开始控盘) AND CURRBARSCOUNT=1,POSITION_X2,POSITION_Y2,0,STRCAT('主力出货:',CON2STR(控盘,2))),COLOR00FF00;</p><p >{以下是增加的K线文字解盘,可以删去不要}</p><p >A74:=MA(CLOSE,20);</p><p >A75:=(CLOSE > MA(CLOSE,5));</p><p >A76:=(MA(CLOSE,5) > MA(CLOSE,10));</p><p >A77:=(CLOSE > MA(CLOSE,10));</p><p >A78:=(MA(CLOSE,5) > MA(CLOSE,20));</p><p >A79:=(CLOSE > MA(CLOSE,20));</p><p >A710:=REF(A74,1);</p><p >A711:=(A74 > A710);</p><p >AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10)))</p><p >+ IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));</p><p >DSLX:=(CLOSE / INDEXC);</p><p >DSLX1:=MA(DSLX,5);</p><p >DSLX2:=MA(DSLX,10);</p><p >V1:=MA(VOL,5);</p><p >V2:=MA(VOL,10);</p><p >T1:=C<200 AND CROSS(AVX,1) AND (V1 >= V2) AND (DSLX >= DSLX1); </p><p >T2:=C<200 AND CROSS(AVX,1) AND (V1 < V2) AND (DSLX >= DSLX1);</p><p >T3:=C<200 AND CROSS(AVX,1) AND (V1 > V2) AND (DSLX < DSLX1); </p><p >T4:=C<200 AND CROSS(AVX,1) AND (V1 <= V2) AND (DSLX < DSLX1);</p><p >T5:=C<200 AND CROSS(1,AVX) AND (V1 >= V2) AND (DSLX >= DSLX1);</p><p >T6:=C<200 AND CROSS(1,AVX) AND (V1 < V2) AND (DSLX >= DSLX1);</p><p >T7:=C<200 AND CROSS(1,AVX) AND (V1 >= V2) AND (DSLX < DSLX1); </p><p >T8:=C<200 AND CROSS(1,AVX) AND (V1 < V2) AND (DSLX < DSLX1);</p><p >T9:=C<200 AND(AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 >= V2) AND (DSLX >= DSLX1); </p><p >T10:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 < V2) AND (DSLX >= DSLX1); </p><p >T11:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 >= V2) AND (DSLX < DSLX1); </p><p >T12:=C<200 AND (AVX >= 1) AND (REF(AVX,1) > 0) AND (V1 < V2) AND (DSLX < DSLX1); </p><p >T13:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2) AND (DSLX >= DSLX1); </p><p >T14:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2) AND (DSLX >= DSLX1);</p><p >T15:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2) AND (DSLX < DSLX1); </p><p >T16:=C<200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2) AND (DSLX < DSLX1);</p><p >T17:=C>200 AND CROSS(AVX,1) AND (V1 >= V2); </p><p >T18:=C>200 AND CROSS(AVX,1) AND (V1 >= V2); </p><p >T19:=C>200 AND CROSS(AVX,1) AND (V1 < V2);</p><p >T20:=C>200 AND CROSS(1,AVX) AND (V1 >= V2);</p><p >T21:=C>200 AND CROSS(1,AVX) AND (V1 < V2); </p><p >T22:=C>200 AND (AVX >= 1) AND (REF(AVX,1)> 0) AND (V1 >= V2);</p><p >T23:=C>200 AND (AVX >= 1) AND (REF(AVX,1)> 0) AND (V1 < V2);</p><p >T24:=C>200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 >= V2);</p><p >T25:=C>200 AND (AVX < 1) AND (REF(AVX,1) < 0) AND (V1 < V2);</p><p >POSITION_X:=0.68;    POSITION_Y:=0.01;</p><p >DRAWTEXT_FIX(T1=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'量能理想,明显走强,中线参与,仓位在2/3左右'),COLORFF00FF;</p><p >DRAWTEXT_FIX(T2=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'走势趋强,还显不足,短线进场,仓位在1/2左右'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T3=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'量价良好,没有明显走强,短线进场,仓位1/2左右'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T4=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'形态尚可,量能不足,未完全走强,短线参与,仓位1/3左右'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T5=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'形态变坏,重仓者减持大半,清仓者观望'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T6=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'随大盘一起下跌,明显缩量走势,考虑到风险,减持或清仓'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T7=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股放量下跌,走势明显偏弱,离场观望'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T8=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股缩量下跌,走势偏弱,离场观望'),COLORFF00FF;</p><p >DRAWTEXT_FIX(T9=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股形态良好,强势明显,量能充足,可以继续持有'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T10=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'上行趋势不变,强势依然,量能开始转弱,注意风险'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T11=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股仍然具备上涨潜力,但股性偏弱,可考虑减仓'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T12=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股走势趋弱,量能不足,减持大部分筹码'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T13=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股形态不佳,注意成交量的变化,目前不适合参与'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T14=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'趋势不明,股价偏弱,注意量能变化,目前不宜参与。'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T15=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'有走强迹象,但量能不足,趋势不明,不适合操作'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T16=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'该股走势太弱,没有参与价值'),COLORFF00FF;</p><p >DRAWTEXT_FIX(T17=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘理想,有明显走强迹象,中线参与,仓位在2/3左右'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T18=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'如前期经过一轮下跌,最佳买点,前期有过一段涨幅需谨慎'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T19=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'考虑短线进场,仓位在1/2左右,一旦量能放大,加仓买入'),COLORFFFFFF;</p><p >DRAWTEXT_FIX(T0=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘形态走坏,重仓者可以减去大部分仓位'),COLORFF0000;</p><p >DRAWTEXT_FIX(T21=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘缩量调整,注意风险,短线清仓观望'),COLORFF0000;</p><p >DRAWTEXT_FIX(T22=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘走势良好,量能理想,可以继续持有强势股'),COLORFF0000;</p><p >DRAWTEXT_FIX(T23=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘形态良好,但量能稍显不足,随时准备减仓'),COLORFF0000;</p><p >DRAWTEXT_FIX(T24=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘趋势不明,注意成交量变化,目前不适宜进场'),COLORFF0000;</p><p >DRAWTEXT_FIX(T25=1 AND ISLASTBAR,POSITION_X,POSITION_Y,1,'大盘趋势向下,量能萎缩,不适合进场'),COLORFF0000;</p><p >DRAWTEXT(PERIOD=6 AND VOL>2*REF(VO,1) AND CLOSE>REF(HIGH,1), (3*LOW-HIGH)/2,'量突');</p><p >注:平台目前更新的有关公式源码,(会有收费,捡漏勿扰,该主图99元可得)(全部支持电脑手机),使用过程中,若有不懂,可以及时联系我们这边,帮忙处理,,喜欢加关注,感谢点赞支持,后市若有可期,希望越来越好!</p><p></p>
页: [1]
查看完整版本: 通达信主图终极黄金升级(附源码)