竞价情况(通达信公式 分时公式 源码 测试图)

[复制链接]
查看233 | 回复0 | 2022-6-27 17:57:22 | 显示全部楼层 |阅读模式

 竞价情况

{所属板块}

{DRAWTEXT_FIX(C>0,0.920,0.66,0,HYBLOCK),COLORCYAN,LINETHICK2;{行业}

DRAWTEXT_FIX(C>0,0.00,0.80,0,GNBLOCK),COLORCYAN,LINETHICK2;{概念};

{流通市值}

DRAWTEXT_FIX(1,0.710,0.66,0,STRCAT(STRCAT('流通市值:',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORCYAN;

{分析家公式网 WWW.70822.COM}

{竞价情况}

JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;

JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');

JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));

JJJE1:=STRCAT(JJJE,JJJEDW);

JJ:=STRCAT('竞价量额:',STRCAT(CON2STR(JJCJL/10000,2),'万手'));

JJ1:=STRCAT(JJ,' = ');

DRAWTEXT_FIX(1,0.00,0.66,0,STRCAT(JJ1,JJJE1))COLORRED;{竞价量额位置}

DRAWTEXT_FIX(1,0.00,0.73,0,STRCAT('占昨成交:',STRCAT(CON2STR(DYNAINFO(15)/ZZ.昨日额#DAY*100,2),'%')))COLORYELLOW;

KPLB:=DYNAINFO(15)/DYNAINFO(4)/100/DYNAINFO(16);

DRAWTEXT_FIX(1,0.1,0.73,0,STRCAT('开盘量比:',STRCAT(CON2STR(KPLB,2),' ')))COLORYELLOW;

今日竞价股数:=DYNAINFO(15)/DYNAINFO(4);

ZSPJ:=ZZ.ZSP#DAY;

A:=今日竞价股数/FINANCE(46)*10000*(O-ZSPJ)/ZSPJ;

DRAWTEXT_FIX(1,0.410,0.66,0,STRCAT(STRCAT('竞价动能:',CON2STR(A,2)),''))COLORRED;

ZG:=ZZ.H1#DAY;

昨均:=ZZ.昨均价#DAY;

ZD:=ZZ.L1#DAY;

DRAWTEXT_FIX(1,1,1-0.988,1,STRCAT('昨高 :  ',CON2STR(ZG,2))),COLORWHITE;

DRAWTEXT_FIX(1,1,1-0.857,1,STRCAT('昨均 :  ',CON2STR(昨均,2))),COLORCYAN;

DRAWTEXT_FIX(1,1,1-0.714,1,STRCAT('昨低 :  ',CON2STR(ZD,2))),COLORWHITE;

五日:=ZZ.M5#DAY,COLORMAGENTA;

十日:=ZZ.M10#DAY,COLORGREEN;

二十日:=ZZ.M20#DAY;

六十日:=ZZ.M60#DAY;

{一百二十日:=ZZ.M120#DAY;}

DRAWTEXT_FIX(1,1,1-0.571,1,STRCAT('M5 :  ',CON2STR(五日,2))),COLORMAGENTA;

DRAWTEXT_FIX(1,1,1-0.428,1,STRCAT('M10 :  ',CON2STR(十日,2))),COLORYELLOW;

DRAWTEXT_FIX(1,1,1-0.285,1,STRCAT('M20 :  ',CON2STR(二十日,2))),COLORCYAN;

DRAWTEXT_FIX(1,1,1-0.142,1,STRCAT('M60 :  ',CON2STR(六十日,2))),COLORWHITE;

{DRAWTEXT_FIX(1,1,1-0.0,1,STRCAT('M120 :  ',CON2STR(一百二十日,2))),COLORWHITE;}

DK:=ZZ.DKX#DAY;

DRAWTEXT_FIX(1,0,1,0,STRCAT('BBI :  ',CON2STR(DK,2))),COLORGREEN;

DRAWTEXT_FIX(1,0.15,1,0,STRCAT('净流入: ',CON2STR(ZJBY.净流入#DAY,2))),COLORWHITE;

DRAWTEXT_FIX(1,0.3,1,0,STRCAT('超大单(万): ',CON2STR(ZJBY.超大单#DAY,2))),COLORMAGENTA;

DRAWTEXT_FIX(1,0.45,1,0,STRCAT('大单(万): ',CON2STR(ZJBY.大单#DAY,2))),COLORRED;

DRAWTEXT_FIX(1,0.6,1,0,STRCAT('中单(万): ',CON2STR(ZJBY.中单#DAY,2))),COLORGREEN;

DRAWTEXT_FIX(1,0.75,1,0,STRCAT('小单(万): ',CON2STR(ZJBY.小单#DAY,2))),COLORLIGRAY;

20201024445936255.png

20201024445936255.png

20201024444613645.rar

4.33 KB, 下载次数: 0

售价: 2 金钱  [记录]  [购买]

20201024444613645.rar

回复

使用道具 举报

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

本版积分规则