天机论坛

标题: 能在分时主图上显示大单买卖和小单买卖的柱形图（代码及图） [打印本页]

作者: 股票王 时间: 2013-6-27 09:37
标题: 能在分时主图上显示大单买卖和小单买卖的柱形图（代码及图）

实量:=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;

欢迎光临天机论坛 (http://www.tjgp.com/)