|
通达信主图终极黄金升级(附源码） 板块:=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(VAR3VAR5:=(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元可得）（全部支持电脑手机），使用过程中，若有不懂，可以及时联系我们这边，帮忙处理，，喜欢加关注，感谢点赞支持，后市若有可期，希望越来越好！ |
发表于 2024-5-9 00:20:15
