{单数比}
TODAY:="ddx.ddx"=0;{判断是否有正版数据}
TODAY1:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT AND TIME0<55800;{判断是否有理想数据}
{条件}
买入单:=IF(TODAY,IF(TODAY1,"DDEDATA@ORDER"(1),SELFDATA('买入单数')),ORDER(1));
卖出单:=IF(TODAY,IF(TODAY1,"DDEDATA@ORDER"(2),SELFDATA('卖出单数')),ORDER(2));
{计算}
买入单数:买入单,PRECIS0,COLOR0000FF,LINETHICK0;
卖出单数:卖出单,PRECIS0,color008800,LINETHICK0;
单数差:卖出单数-买入单数,colorCyan,PRECIS0,LINETHICK0;{卖在买先}
买单比:买入单数/(买入单数+卖出单数),LINETHICK0,Color8000FF;{买入单数占买卖总单数比值}
卖单比:卖出单数/(买入单数+卖出单数),LINETHICK0,Color33FF99;{卖出单数占买卖总单数比值}
单比净:卖单比-买单比,ColorCCCCFF,LINETHICK2;{卖在买先}
stickline(单比净>0,0,单比净,6,0),Color3300FF;
stickline(单比净<0,单比净,0,6,0),COLOR00FF00;
{输出}
叁日:sum(单比净,3),Color9DFFFF,LINETHICK0;
伍日:sum(单比净,5),ColorABFF46,LINETHICK0;
拾日:sum(单比净,10),colorfaabec,LINETHICK0;
廿日:sum(单比净,20),ColorFF6600,LINETHICK0;
{显示}
DRAWFLAGTEXT(单比净>0,单比净,'<*t=0000FF*><*c=FFFFFF*><*p=95*>'+datestr(date)+' 单比净'+NUMTOSTRN(单比净,3)+'');
DRAWFLAGTEXT(单比净<0,单比净,'<*t=008000*><*c=FFFFFF*><*p=95*>'+datestr(date)+' 单比净'+NUMTOSTRN(单比净,3)+'');
DRAWTEXTABS(0,0,'雨阳数据*买卖单比'),COLORYELLOW;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
