天机论坛

 找回密码
 欢迎注册

QQ登录

只需一步,快速开始

天机股票网 争做最牛的股票资讯集散地 注册 - 常见问题 - 联系方式

你有好料 就来分享 你可以将手中的好料分享赚取金币。 如何获得金币 - 金币回购计划

天天来访问 天天有收获 高端信息区区几个金币就可查看 立即注册 - QQ快速登陆

查看: 1640|回复: 0
打印 上一主题 下一主题

[通达信] 能在分时主图上显示大单买卖和小单买卖的柱形图(代码及图)

[复制链接]
跳转到指定楼层
楼主
发表于 2013-6-27 09:37:39 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

实量:=SUM(VOL,FROMOPEN);
虚拟量:=实量/240*FROMOPEN;
SZB:=实量/10000;
XZB:=虚拟量/10000;
DRAWRECTREL(500,CONST(100-XZB)*1000/100,530,1000,RGB(0,0,0));
DRAWRECTREL(500,CONST(100-SZB)*1000/100,530,1000,90);
大单买:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL>=500,VOL,0),FROMOPEN);
大单卖:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL>=500,VOL,0),FROMOPEN);
ZB1:=大单买/实量*100;
ZB2:=大单卖/实量*100;
DRAWRECTREL(530,CONST(100-ZB1)*1000/100,560,1000,90);
DRAWRECTREL(560,CONST(100-ZB2)*1000/100,590,1000,RGB(0,255,0));
DRAWTEXT_FIX(1,0.500,0.20,0,STRCAT(STRCAT('【大单买】',CON2STR(ZB1,2)),'%')),COLORYELLOW;
DRAWTEXT_FIX(1,0.500,0.30,0,STRCAT(STRCAT('【大单卖】',CON2STR(ZB2,2)),'%')),COLORYELLOW;
小单买:=SUM(IF(CLOSE>=REF(CLOSE,1) AND VOL<500,VOL,0),FROMOPEN);
小单卖:=SUM(IF(CLOSE<REF(CLOSE,1) AND VOL<500,VOL,0),FROMOPEN);
ZB3:=小单买/实量*100;
ZB4:=小单卖/实量*100;
DRAWRECTREL(590,CONST(100-ZB3)*1000/100,620,1000,90);
DRAWRECTREL(620,CONST(100-ZB4)*1000/100,650,1000,RGB(0,255,0));
DRAWTEXT_FIX(1,0.600,0.40,0,STRCAT(STRCAT('【小单买】',CON2STR(ZB3,2)),'%')),COLORYELLOW;
DRAWTEXT_FIX(1,0.600,0.50,0,STRCAT(STRCAT('【小单卖】',CON2STR(ZB4,2)),'%')),COLORYELLOW;
均价:SUM(V*C,0)/SUM(V,0),COLORYELLOW;
现价:C,COLORWHITE;
DRAWTEXT_FIX(1,0.450,0.80,0,STRCAT(STRCAT('【实量】',CON2STR(实量/10000,2)),'万')),COLORYELLOW;
DRAWTEXT_FIX(1,0.450,0.60,0,STRCAT(STRCAT('【虚拟量】',CON2STR(虚拟量/10000,2)),'万')),COLORYELLOW;

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 有用有用 没用没用
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则