通达信综合分时主图指标

[复制链接]
查看94 | 回复0 | 2021-8-20 08:16:46 | 显示全部楼层 |阅读模式

以下是通达信综合分时主图指标(无源码的请下载附件导入)

MA30:=EMA(CLOSE,30);
强弱:EMA(CLOSE,900);
 STICKLINE((MA30>强弱),MA30,强弱,1,0),COLOR0000FF;
 STICKLINE((MA30<强弱),MA30,强弱,1,0),COLOR00FF00;
 H1:=MAX(DYNAINFO(3),DYNAINFO(5));
 L1:=MIN(DYNAINFO(3),DYNAINFO(6));
 P1:=H1-L1;
阻力:L1+P1*7/8,COLOR00DD00;
支撑:L1+P1*0.5/8,COLOR00DD00;
现价:CLOSE,COLORWHITE,LINETHICK1;
 STICKLINE(CROSS(支撑,现价),支撑,阻力,1,0),COLORYELLOW;
 DRAWTEXT(LONGCROSS(支撑,现价,2),支撑*1.001,'★B'),COLORYELLOW;{吸}
DRAWTEXT(LONGCROSS(现价,阻力,2),现价,'★'),COLORRED;{抛};
 
 XG:HHV(H,480),DOTLINE,COLORRED;
 STICKLINE(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,C,8,0),COLORGREEN;
 DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.99,'突破'),COLORYELLOW;
 RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
 JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;

{年月日}
DA:=YEAR AND MONTH AND DAY;
 AA1:=STRCAT(CON2STR(YEAR,0),'年');
AA2:=STRCAT(CON2STR(MONTH,0),'月');
AA3:=STRCAT(CON2STR(DAY,0),'日');
AA4:=STRCAT('【',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF
 (WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'】');
DRAWTEXT_FIX(DA AND FROMOPEN<=120,0.88,0,0,AA),COLORBLUE;
 DRAWTEXT_FIX(DA AND FROMOPEN>120,0,0,0,AA),COLORBLUE;
 {分时MACD}
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=2*(DIF-DEA);
 X:=CONST(HHV(ABS(C-DYNAINFO(3)),FROMOPEN))/CONST(HHV(ABS(DIF),FROMOPEN))*0.6;
 DI:DIF*X+DYNAINFO(3),COLORCC00CC;
 DE:DEA*X+DYNAINFO(3),COLOR00DD00;
 MAC:=MACD*X;
 STICKLINE(MAC>0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORRED;
 STICKLINE(MAC<0,DYNAINFO( 3),MAC+DYNAINFO( 3),0,1),COLORCYAN;
 {高点直线}
V1:=TIME;
 T:=IF(V1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000)),
 (FLOOR(V1/10000)-11)*60+(FLOOR(V1/100)-100*FLOOR(V1/10000))),NODRAW;
 KP30:=T<240;
 KPGD:=H=HHV(H,0) AND KP30;
 GDSJ:=BARSLAST(KPGD);
 HHHH:REF(H,GDSJ),COLORYELLOW,POINTDOT,LINETHICK1;
 {低点直线}
VQ1:=TIME;
 TQ:=IF(VQ1<130000,(FLOOR(V1/10000)-9.5)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000)),
 (FLOOR(VQ1/10000)-11)*60+(FLOOR(VQ1/100)-100*FLOOR(VQ1/10000))),NODRAW;
 KPQ30:=TQ<240;
 KPGDQ:=L=LLV(L,0) AND KPQ30;
 GDSJQ:=BARSLAST(KPGDQ);
 HHHHQ:REF(L,GDSJQ),COLORCC00CC,POINTDOT,LINETHICK1;
 {分时均价线和分时线}
最新:CLOSE,COLORWHITE;
 AQA:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));
 DRAWTEXT( ISLASTBAR AND 最新>REF(最新,1),最新,STRCAT(' 涨▲',CON2STR(最新,2))),COLORMAGENTA;
 DRAWTEXT( ISLASTBAR AND 最新<REF(最新,1),最新,STRCAT(' 跌▼',CON2STR(最新,2))),COLOR00FF00;
均价:SUM(V*C,0)/SUM(V,0),COLORGREEN,LINETHICK1;
 IF(均价<=REF(均价,1),均价,DRAWNULL),COLORGREEN,LINETHICK3;
 IF(均价>=REF(均价,1),均价,DRAWNULL),COLORYELLOW,LINETHICK3;
 DRAWTEXT(CURRBARSCOUNT=8,均价,'均'),COLORYELLOW,LINETHICK3;
 DRAWNUMBER(CURRBARSCOUNT=1,均价,均价),COLORYELLOW,LINETHICK3;
 {板块概念}
DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.5,0,0,DYBLOCK),COLORWHITE;
 DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.55,0,0,HYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1 AND FROMOPEN<=120,0.6,0,0,GNBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1 AND FROMOPEN>120,0.12,0,0,DYBLOCK),COLORWHITE;
 DRAWTEXT_FIX(1 AND FROMOPEN>120,0.17,0,0,HYBLOCK),COLORYELLOW;
 DRAWTEXT_FIX(1 AND FROMOPEN>120,0.21,0,0,GNBLOCK),COLORYELLOW;

80499357.jpg

80499357.jpg

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则