股资源-股票学习站-学炒股-股票课程-炒股教程-分析选股指标-入门基础知识

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
    上一主题 下一主题

    [通达信] 分时t+0做t神器分时主图指标 通达信 贴图


        [-----复制链接-----]

    22万

    主题

    22万

    帖子

    14

    精华

    积分
    11040
    楼主
    2024-1-24 13:16:17
    分时t+0做t神器分时主图指标 通达信 贴图介绍

    分时t+0做t神器分时主图指标 通达信 贴图














    同时希望大神看看这个有没有未来函数,我用沙盘推演检查不出来


    XG:HHV(H,480),DOTLINE,COLORCYAN;


    RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
    JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
    MA1:=REF(C,JY);
    MA2:=REF(MA1,JY);
    MA3:=REF(MA2,JY);
    MA4:=REF(MA3,JY);
    MA5:=REF(MA4,JY);
    MA6:=REF(MA5,JY);
    MA7:=REF(MA6,JY);
    MA8:=REF(MA7,JY);
    MA9:=REF(MA8,JY);
    H1:=MAX(DYNAINFO(3),DYNAINFO(5));
    L1:=MIN(DYNAINFO(3),DYNAINFO(6));
    P1:=H1-L1;
    阻力:L1+P1*8/9,COLORLIRED,DOTLINE;
    支撑:L1+P1*0.5/9,COLORGREEN,DOTLINE;
    均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW,DOTLINE;
    DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3);
    DEA:=EMA(DIF,9);
    MACD1:=10*(DIF-DEA);
    MACD2:=EMA(MACD1,2);
    STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;
    STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLICYAN;
    STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;{www.guziyuan.cn}
    STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGREEN;
    XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
    主力:=EXPMA(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120);
    底:=1;1.022,NODRAW;高:=1.033;
    DRAWTEXT(CROSS(主力,1.02),C*0.999,' 拉'),COLORMAGENTA;
    DRAWICON(CROSS(主力,1.04),C,45);
    DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲'),COLORRED;
    A1:=(VOL/CLOSE)/3;
    A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
    A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
    A4:=SUM((IF(((A1<40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
    A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
    A6:=((A2+A3)+A4)+A5;
    A7:=IF((BARSTATUS=2),((100*A2)/A6),0);
    A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));
    A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));
    A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));

    DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,' 买入'),COLOR0000FF;
    DRAWICON(LONGCROSS(支撑,C,2),C-0.01,1);
    STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;
    DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,' 卖出'),COLORGREEN;
    DRAWICON(LONGCROSS(C,阻力,2),C+0.01,45);
    STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;
    量价:=(VOL/CLOSE)/3;
    B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
    B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
    B6:=B2+B3;DD1:=1;比:=B2/B3;
    D1:=YEAR AND MONTH AND DAY;
    BA1:=STRCAT(CON2STR(YEAR,0),'年');
    BA2:=STRCAT(CON2STR(MONTH,0),'月');
    BA3:=STRCAT(CON2STR(DAY,0),'日');
    BA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日')))))));
    AA:=STRCAT(STRCAT(STRCAT(BA1,BA2),STRCAT(BA3,BA4)),'');
    DRAWTEXT_FIX(D1,0.905,0,0,AA),COLORGRAY;
    WA1:=V*C/100;
    WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
    WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
    WA4:=SUM((IF(((WA1/8<20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
    WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
    WA6:=((A2+A3)+A4)+A5;
    WA7:=IF((ISLASTBAR),((100*WA2)/WA6),0);
    WA8:=IF((ISLASTBAR),((100*WA3)/WA6),0);
    WA9:=IF((ISLASTBAR),((100*WA4)/WA6),0);
    WA10:=IF((ISLASTBAR),((100*WA5)/WA6),0);
    机构买盘:=(WA2);
    机构卖盘:=(WA3);
    散户买盘:=(WA4);
    散户卖盘:=(WA5);
    DRAWTEXT_FIX(1,0.752,1-0.088,0,STRCAT(STRCAT('【机构买盘】',CON2STR(机构买盘,2)),' 万')),COLORRED;
    DRAWTEXT_FIX(1,0.752,1-0.001,0,STRCAT(STRCAT('【机构卖盘】',CON2STR(机构卖盘,2)),' 万')),COLORGREEN;
    DRAWTEXT_FIX(1,0.883,1-0.088,0,STRCAT(STRCAT('【散户买盘】',CON2STR(散户买盘,2)),' 万')),COLORMAGENTA;
    DRAWTEXT_FIX(1,0.883,1-0.001,0,STRCAT(STRCAT('【散户卖盘】',CON2STR(散户卖盘,2)),' 万')),COLORCYAN;



    gd54502





    上一篇:通达信导航家之金牌短线战法主图指标 源码
    下一篇:通达信止赢止损提示主图指标 源码
    回复

    举报

    QQ|

    GMT+8, 2024-11-15 06:27

    快速回复 返回顶部 返回列表