分享

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

 sys 2015-10-14
实量:=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;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约