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

 找回密码
 注册昵称

QQ登录

只需一步,快速开始

搜索
    上一主题 下一主题

    [通达信] 「指标」通达信资金博弈成交量副图源码 说明

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

    22万

    主题

    22万

    帖子

    14

    精华

    积分
    11040
    楼主
    2024-2-17 15:26:01
    【资料名称】:通达信资金博弈成交量副图源码 说明介绍
    【资料描述】:

    通达信资金博弈成交量副图源码 说明

    {整理_SHUHONG}

    {60天均量线}
    DRAWBAND(MA(VOL,60),RGB(80,64,64),0,RGB(0,0,0));

    {太极成交量TJCJL}
    ZZ:=IF(REF(C,1)>REF(O,1) AND O>REF(C,1)*1.014 AND C<O*1.02,1,3);
    V5:=MA(V,5);
    V12:=MA(V,12);
    V34:=MA(V,34);
    C6:=MA(C,6);
    STICKLINE(CROSS(C,C6) AND V>V5*1.2 AND V>V12*1.2 AND ZZ>2 AND C>H*0.975,0,VOL*1.05,5,0),COLORC000C0;{吸货洋红}
    STICKLINE(CROSS(C6,C) AND V>V5*1.2 AND V>V12*1.2,0,VOL*1.05,5,0),COLOR008080;{出货棕}
    STICKLINE(VOL>MA(VOL,5)*2 AND V>V34*3 AND C<REF(C,1)*1.05,0,VOL*1.05,5,0),COLORFFC000;{天量蓝色}
    STICKLINE(VOL<MA(VOL,5)/2 AND V<V12/2,0,VOL*1.05,5,0),COLORBLUE;{地量深蓝}
    DRAWTEXT_FIX(ISLASTBAR,0.45,0.10,0,'柱底色: 洋红吸货量,棕色出货量,天蓝色天量,深蓝色地量;'),COLORWHITE;

    {沪深_上涨_下跌_具体数据}
    上涨家数:=STRCAT('▇沪深上涨家数:',CON2STR(DYNAINFO(60),0));
    下跌家数:=STRCAT('▇沪深下跌家数:',CON2STR(DYNAINFO(61),0));
    上涨百分比:=DYNAINFO(60)/(DYNAINFO(60)+DYNAINFO(61))*100;
    下跌百分比:=DYNAINFO(61)/(DYNAINFO(60)+DYNAINFO(61))*100;
    DRAWTEXT_FIX(1,0.45,0,0,上涨家数),COLORRED;
    DRAWTEXT_FIX(1,0.54,0,0,STRCAT(STRCAT('(',VAR2STR(上涨百分比,2)),'%)')),COLORRED;
    DRAWTEXT_FIX(1,0.60,0,0,下跌家数),COLORGREEN;
    DRAWTEXT_FIX(1,0.69,0,0,STRCAT(STRCAT('(',VAR2STR(下跌百分比,2)),'%)')),COLORGREEN;

    {盘中虚拟}
    盘中虚拟:IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),COLORWHITE,NODRAW;
    STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,盘中虚拟,0,-1,-1),COLORGRAY;

    {成交量}
    VOLUME:VOL,VOLSTICK,COLORYELLOW;

    {主动买卖成交量}
    VAR1:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
    主动买盘:IF(CLOSE>OPEN,VAR1*(HIGH-LOW),IF(CLOSE<OPEN,VAR1*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2)),COLORRED,NODRAW;
    主动卖盘:IF(CLOSE>OPEN,0-VAR1*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0-VAR1*(HIGH-LOW),0-VOL/2)),COLORGREEN,NODRAW;
    STICKLINE(主动买盘>0,0,主动买盘,1.5,0),COLOR0080FF;
    STICKLINE(主动卖盘<0,VOL,主动买盘,1.5,0),COLORB46E00;

    {均线}
    MA5:MA(VOLUME,5)COLORWHITE;
    MA10:MA(VOLUME,10)COLORYELLOW;
    MA60:MA(VOLUME,60)COLORC08080,NODRAW;
    {DRAWTEXT(ISLASTBAR,MA60,' ←60均线')COLORC08080;}
    MA120:MA(VOLUME,120)COLORLIGREEN,NODRAW;

    {量能提示 BY 冷妞妞}
    基准量:=(MA(VOL,5)+MA(VOL,10))/2;
    危险量:=基准量*1.5;
    破坏量:=基准量*1.15;
    弱压量:=基准量*0.8;
    超大量:=基准量*1.5;
    攻击量:=基准量*1.15;
    防守量:=基准量*0.8;
    YL:=C>O OR (C=O AND C>=REF(C,1));
    DL:=C<O OR (C=O AND C<REF(C,1));
    TJ1:=DL AND VOL>=弱压量 AND VOL<破坏量;
    TJ2:=DL AND VOL>=破坏量 AND VOL<危险量;
    TJ3:=DL AND VOL>=危险量;
    TJA:=YL AND VOL>=防守量 AND VOL<攻击量;
    TJB:=YL AND VOL>=攻击量 AND VOL<超大量;
    TJC:=YL AND VOL>超大量;
    DRAWTEXT_FIX(ISLASTBAR AND TJ1,0.998,0.0,1.0,'[ 弱压量 ]'),COLORWHITE;
    DRAWTEXT_FIX(ISLASTBAR AND TJ2,0.998,0.0,1.0,'[ 破坏量 ]'),COLORCYAN;
    DRAWTEXT_FIX(ISLASTBAR AND TJ3,0.998,0.0,1.0,'[ 危险量 ]'),COLORGREEN;
    DRAWTEXT_FIX(ISLASTBAR AND TJA,0.998,0.0,1.0,'[ 防守量 ]'),COLORYELLOW;
    DRAWTEXT_FIX(ISLASTBAR AND TJB,0.998,0.0,1.0,'[ 攻击量 ]'),COLORMAGENTA;
    DRAWTEXT_FIX(ISLASTBAR AND TJC,0.998,0.0,1.0,'[ 超大量 ]'),COLORRED;

    {换手率}
    换手率:VOL/CAPITAL*100,COLORFF80FF,NODRAW;
    {DRAWTEXT_FIX(ISLASTBAR,0.86,0.01,0,STRCAT('今日换手率: ', CON2STR(DYNAINFO(37)*100,2))),COLORLIGRAY;}
    DRAWTEXT_FIX(ISLASTBAR,0.88,0.0,0,STRCAT('5换手: ', CON2STR(SUM(DYNAINFO(37)*100,5),2))),COLORLIGRAY;
    DRAWTEXT_FIX(ISLASTBAR,0.81,0.0,0,STRCAT('10换手: ', CON2STR(SUM(DYNAINFO(37)*100,10),2))),COLORLIGRAY;
    DRAWTEXT_FIX(ISLASTBAR,0.74,0.0,0,STRCAT('20换手: ', CON2STR(SUM(DYNAINFO(37)*100,20),2))),COLORLIGRAY;

    {量比}
    量比:DYNAINFO(17),COLORFF8000;


    {----------------------------- 以 下 资 金 博 弈 -----------------------------}

    {资金博弈今日持仓}
    DRAWRECTREL(0,0,350,400,IF(120,RGB(36,36,36),0))NOFRAME;
    超B:=L2_AMO(0,2)/10000.0;
    大B:=L2_AMO(1,2)/10000.0;
    中B:=L2_AMO(2,2)/10000.0;
    小B:=L2_AMO(3,2)/10000.0;
    超S:=L2_AMO(0,3)/10000.0;
    大S:=L2_AMO(1,3)/10000.0;
    中S:=L2_AMO(2,3)/10000.0;
    小S:=L2_AMO(3,3)/10000.0;
    TESTSKIP(NOT(超B OR 大B OR 中B OR 小B OR 超S OR 大S OR 中S OR 小S)!=0);
    总流入比:=(超B+大B+中B+小B)/(超B+大B+中B+小B+超S+大S+中S+小S)*100,NODRAW,COLORWHITE;
    大单流入:=(超B+大B)/(超B+大B+超S+大S)*100,NODRAW,COLORWHITE;
    大单流入限制:=IF((超B+大B+超S+大S)=0,0,大单流入);
    成交总量:=(超B+大B+中B+小B+超S+大S+中S+小S),NODRAW,COLORWHITE;
    机构参与度:=(超B+超S+大B+大S)/成交总量*100,NODRAW,COLORWHITE;
    主买A:=ACTINVOL,COLORRED,NODRAW;
    主卖A:=ACTOUTVOL,COLORGREEN,NODRAW;
    主买C:=主买A*100/(主买A+主卖A),NODRAW,COLORRED;
    {资金流入比}
    DRAWRECTREL(100,125,340,75,RGB(51,185,84))NOFRAME;{绿色}
    DRAWRECTREL(100,125,220,75,RGB(51,153,204))NOFRAME;{青色}
    DRAWRECTREL(100,125,100+240*CONST(总流入比/100),75,RGB(243,83,81))NOFRAME;{红色}
    {大单流入比}
    DRAWRECTREL(100,200,340,150,RGB(50,185,84))NOFRAME;{绿色}
    DRAWRECTREL(100,200,220,150,RGB(51,153,204))NOFRAME;{青色}
    DRAWRECTREL(100,200,100+240*CONST(大单流入限制/100),150,RGB(243,83,81))NOFRAME;{红色}
    {机构参与度}
    DRAWRECTREL(100,275,340,225,RGB(50,185,84))NOFRAME;{绿色}
    DRAWRECTREL(100,275,220,225,RGB(51,153,204))NOFRAME;{青色}
    DRAWRECTREL(100,275,100+240*CONST(机构参与度/100),225,RGB(243,83,81))NOFRAME;{红色}
    {主动买卖比}
    DRAWRECTREL(100,350,340,300,RGB(50,185,84))NOFRAME;{绿色}
    DRAWRECTREL(100,350,220,300,RGB(51,153,204))NOFRAME;{青色}
    DRAWRECTREL(100,350,100+240*CONST(主买C/100),300,RGB(243,83,81))NOFRAME;{红色}
    {文字}
    {DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,'资金博弈今日持仓'),COLORLIBLUE;}
    DRAWTEXT_FIX(1,0.00,0.070,0,STRCAT(STRCAT('资金流入比: ',CON2STR(总流入比,2)),' %')),COLORWHITE;
    DRAWTEXT_FIX(1,0.00,0.142,0,STRCAT(STRCAT('大单流入比: ',CON2STR(大单流入限制,2)),' %买')),COLORWHITE;
    DRAWTEXT_FIX(1,0.00,0.215,0,STRCAT(STRCAT('机构参与度: ',CON2STR(机构参与度,2)),' %')),COLORWHITE;
    DRAWTEXT_FIX(1,0.00,0.290,0,STRCAT(STRCAT('主动买卖比: ',CON2STR(主买C,2)),' %')),COLORWHITE;

    {L2资金博弈}
    DRAWRECTREL(0,400,188,999,IF(120,RGB(50,50,50),0))NOFRAME;
    {超B:=L2_AMO(0,2)/10000.0;
    大B:=L2_AMO(1,2)/10000.0;
    中B:=L2_AMO(2,2)/10000.0;
    小B:=L2_AMO(3,2)/10000.0;
    超S:=L2_AMO(0,3)/10000.0;
    大S:=L2_AMO(1,3)/10000.0;
    中S:=L2_AMO(2,3)/10000.0;
    小S:=L2_AMO(3,3)/10000.0;}
    净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S),NODRAW;
    超大单:=(超B)-(超S),NODRAW;
    大单:=(大B)-(大S),NODRAW;
    中单:=(中B)-(中S),NODRAW;
    小单:=(小B)-(小S),NODRAW;
    DAZHI:=CONST(MAX(ABS(净流入),MAX(ABS(超大单),MAX(ABS(大单),MAX(ABS(中单),ABS(小单)))))),NODRAW;
    DRAWRECTREL(5,CONST(950-(ABS(净流入)*500/DAZHI)),33,950,IF(CONST(净流入)>0,RGB(236,48,129),RGB(51,153,204)))NOFRAME;
    DRAWRECTREL(41,CONST(950-(ABS(超大单)*500/DAZHI)),69,950,IF(CONST(超大单)>0,RGB(243,83,81),RGB(50,185,84)))NOFRAME;
    DRAWRECTREL(77,CONST(950-(ABS(大单)*500/DAZHI)),105,950,IF(CONST(大单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
    DRAWRECTREL(113,CONST(950-(ABS(中单)*500/DAZHI)),141,950,IF(CONST(中单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
    DRAWRECTREL(149,CONST(950-(ABS(小单)*500/DAZHI)),177,950,IF(CONST(小单)>0,RGB(243,83,81),RGB(50,185,87)))NOFRAME;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.041,0.40,0,'今日资金 单位:万元'),COLORCYAN;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.006,0.51,0,INTPART(净流入)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.043,0.58,0,INTPART(超大单)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.078,0.65,0,INTPART(大单)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.115,0.72,0,INTPART(中单)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.152,0.79,0,INTPART(小单)),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.006,0.98,0,'净流入'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.040,0.98,0,'超大单'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.080,0.98,0,'大单'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.116,0.98,0,'中单'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.153,0.98,0,'小单'),COLORWHITE;

    {L2资金N天统计}
    N:=5;{默认5天}
    DRAWRECTREL(350,400,188,999,IF(120,RGB(50,50,0),0))NOFRAME;
    {超B:=L2_AMO(0,2)/10000.0;
    大B:=L2_AMO(1,2)/10000.0;
    中B:=L2_AMO(2,2)/10000.0;
    小B:=L2_AMO(3,2)/10000.0;
    超S:=L2_AMO(0,3)/10000.0;
    大S:=L2_AMO(1,3)/10000.0;
    中S:=L2_AMO(2,3)/10000.0;
    小S:=L2_AMO(3,3)/10000.0;
    净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S);
    超大单:=(超B)-(超S);
    大单:=(大B)-(大S);
    中单:=(中B)-(中S);
    小单:=(小B)-(小S);}
    净流入N天和:=SUM(净流入,N);
    超大单N天和:=SUM(超大单,N);
    大单N天和:=SUM(大单,N);
    中单N天和:=SUM(中单,N);
    小单N天和:=SUM(小单,N);
    DAZHIX:=CONST(MAX(ABS(净流入N天和),MAX(ABS(超大单N天和),MAX(ABS(大单N天和),MAX(ABS(中单N天和),ABS(小单N天和)))))),NODRAW;
    DRAWRECTREL(230,CONST(950-(ABS(净流入N天和)*500/DAZHIX)),245,950,IF(CONST(净流入N天和)>0,RGB(192,0,64),RGB(0,128,128)))NOFRAME;
    DRAWRECTREL(255,CONST(950-(ABS(超大单N天和)*500/DAZHIX)),270,950,IF(CONST(超大单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
    DRAWRECTREL(280,CONST(950-(ABS(大单N天和)*500/DAZHIX)),295,950,IF(CONST(大单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
    DRAWRECTREL(305,CONST(950-(ABS(中单N天和)*500/DAZHIX)),320,950,IF(CONST(中单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
    DRAWRECTREL(330,CONST(950-(ABS(小单N天和)*500/DAZHIX)),345,950,IF(CONST(小单N天和)>0,RGB(180,0,0),RGB(32,128,32)))NOFRAME;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.225,0.48,0,INTPART(净流入N天和)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.250,0.56,0,INTPART(超大单N天和)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.275,0.64,0,INTPART(大单N天和)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.300,0.72,0,INTPART(中单N天和)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.325,0.80,0,INTPART(小单N天和)),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.233,0.98,0,'净'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.257,0.98,0,'超'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.283,0.98,0,'大'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.307,0.98,0,'中'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.333,0.98,0,'小'),COLORWHITE;
    DRAWTEXT_FIX(C>0,0.196,0.42,0,'近'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.196,0.54,0,'5'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.196,0.66,0,'天'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.196,0.78,0,'资'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.196,0.90,0,'金'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.212,0.60,0,'万'),COLORLIBLUE;
    DRAWTEXT_FIX(C>0,0.212,0.75,0,'元'),COLORLIBLUE;

    {最近10天和20天的资金流量}
    N1:=10;{默认10天}
    N2:=20;{默认20天}
    DRAWRECTREL(420,0,350,999,IF(120,RGB(0,64,64),0))NOFRAME;
    {超B:=L2_AMO(0,2)/10000.0;
    大B:=L2_AMO(1,2)/10000.0;
    中B:=L2_AMO(2,2)/10000.0;
    小B:=L2_AMO(3,2)/10000.0;
    超S:=L2_AMO(0,3)/10000.0;
    大S:=L2_AMO(1,3)/10000.0;
    中S:=L2_AMO(2,3)/10000.0;
    小S:=L2_AMO(3,3)/10000.0;
    净流入:=(超B+大B+中B+小B)-(超S+大S+中S+小S);
    超大单:=(超B)-(超S);
    大单:=(大B)-(大S);
    中单:=(中B)-(中S);
    小单:=(小B)-(小S);}
    净流入N1天和:=SUM(净流入,N1);
    净流入N2天和:=SUM(净流入,N2);
    DAZHIXZ:=CONST(MAX(ABS(净流入N1天和),ABS(净流入N2天和))),NODRAW;
    DRAWRECTREL(360,CONST(950-(ABS(净流入N1天和)*680/DAZHIXZ)),380,950,IF(CONST(净流入N1天和)>0,RGB(192,0,64),RGB(0,128,128)))NOFRAME;
    DRAWRECTREL(390,CONST(950-(ABS(净流入N2天和)*680/DAZHIXZ)),410,950,IF(CONST(净流入N2天和)>0,RGB(190,0,64),RGB(0,128,128)))NOFRAME;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.355,0.35,0,INTPART(净流入N1天和)),COLORWHITE;
    DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.390,0.50,0,INTPART(净流入N2天和)),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.350,0.05,0,'10天净流 (万元)'),COLORWHITE;
    DRAWTEXT_FIX(CURRBARSCOUNT=1,0.385,0.20,0,'20天净流'),COLORWHITE;
     


     






     



    gd41562


    【下载地址隐藏】:                    点:回复可见地址
    游客,如果您要查看本帖隐藏内容请回复






    上一篇:「指标」通达信富力丘陵顶底副图 加密
    下一篇:「指标」通达信强势启动副图源码
    回复

    举报

    QQ|

    GMT+8, 2024-11-10 20:45

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