{分时BBDJ}
input:参数(1,1,2);
DRAWRECTABS(0,0 ,1300 ,999 , rgb(0,0,10)),LAYER7;0,DOTLINE,LAYER0;
合买单:=sum(ORDERVOL(1,0)*C*100/10000,0);
合卖单:=sum(ORDERVOL(2,0)*C*100/10000,0);
特买单:=sum(ORDERVOL(1,3)*C*100/10000,0);
特卖单:=sum(ORDERVOL(2,3)*C*100/10000,0);
大买单:=sum(ORDERVOL(1,2)*C*100/10000,0)-特买单;
大卖单:=sum(ORDERVOL(2,2)*C*100/10000,0)-特卖单;
中买单:=sum(ORDERVOL(1,1)*C*100/10000,0)-sum(ORDERVOL(1,2)*C*100/10000,0);
中卖单:=sum(ORDERVOL(2,1)*C*100/10000,0)-sum(ORDERVOL(2,2)*C*100/10000,0);
散买单:=合买单-sum(ORDERVOL(1,1)*C*100/10000,0);
散卖单:=合卖单-sum(ORDERVOL(2,1)*C*100/10000,0);合买笔:=sum(TRANSACTVOL(1,0)*C*100/10000,0);
合卖笔:=sum(TRANSACTVOL(2,0)*C*100/10000,0);
特买笔:=sum(TRANSACTVOL(1,3)*C*100/10000,0);
特卖笔:=sum(TRANSACTVOL(2,3)*C*100/10000,0);
大买笔:=sum(TRANSACTVOL(1,2)*C*100/10000,0)-特买笔;
大卖笔:=sum(TRANSACTVOL(2,2)*C*100/10000,0)-特卖笔;
中买笔:=sum(TRANSACTVOL(1,1)*C*100/10000,0)-sum(TRANSACTVOL(1,2)*C*100/10000,0);
中卖笔:=sum(TRANSACTVOL(2,1)*C*100/10000,0)-sum(TRANSACTVOL(2,2)*C*100/10000,0);
散买笔:=合买笔-sum(TRANSACTVOL(1,1)*C*100/10000,0);
散卖笔:=合卖笔-sum(TRANSACTVOL(2,1)*C*100/10000,0);逐单主力:=(特买单-特卖单)+(大买单-大卖单);
逐笔主力:=(特买笔-特卖笔)+(大买笔-大卖笔);
主力:IF(参数=1,逐单主力,逐笔主力),COLOR0000ff,PRECIS2,linethick2;
FILLRGN(0,主力,主力>0,RGB(0,0,255),主力<0,RGB(40,0,40)),linethick2,PRECIS0,COLOR000000;
逐单大单:=(大买单-大卖单);
逐笔大单:=(大买笔-大卖笔);
大单:IF(参数=1,逐单大单,逐笔大单),COLOR0077FF,PRECIS2,linethick2;
逐单特大:=(特买单-特卖单);
逐笔特大:=(特买笔-特卖笔);
特大:IF(参数=1,逐单特大,逐笔特大),COLORFF9900,PRECIS2,linethick2;
逐单中单:=(中买单-中卖单);
逐笔中单:=(中买笔-中卖笔);
中单:IF(参数=1,逐单中单,逐笔中单),COLOR00FFFF,PRECIS2;
逐单小单:=(散买单-散卖单);
逐笔小单:=(散买笔-散卖笔);;
小单:IF(参数=1,逐单小单,逐笔小单),COLOR00FF00,PRECIS2;
DRAWTEXTABS(400,10,'【主力>20万元】:▄ '+NUMTOSTRN(主力,2)+'万'),COLOR00ffFF,LINETHICK4;
DRAWTEXTABS(5,65,'【机构>100万元】:▄ '+NUMTOSTRN(特大,2)+'万'),COLORff9900,LINETHICK2;
DRAWTEXTABS(5,45,'【大户20-100万元】:▄ '+NUMTOSTRN(大单,2)+'万'),COLOR0077FF,LINETHICK2;
DRAWTEXTABS(5,25,'【中户4-20万元】:▄ '+NUMTOSTRN(中单,2)+'万'),COLOR00FFFF,LINETHICK2;
DRAWTEXTABS(5,5,'【散户<4万元】:▄ '+NUMTOSTRN(小单,2)+'万'),COLOR00FF00,LINETHICK2;合买卖单:=(合买单+合卖单)/2;
合买卖笔:=合买笔+合卖笔;
买卖合计:IF(参数=1,合买卖单,合买卖笔),COLOR0000ff,PRECIS2,linethick0;
买卖单:=合买单-合卖单;
买卖笔:=合买笔-合卖笔;
买卖差:IF(参数=1,买卖单,买卖笔),COLOR0000ff,PRECIS2,linethick0;
DRAWTEXTABS(5,90,'【(买合计+卖合计)】:▄ '+NUMTOSTRN(买卖合计,0)+'万元'),COLOR0077ff,LINETHICK2;
DRAWTEXTABS(5,110,'【买合计-卖合计】:▄ '+NUMTOSTRN(买卖差,0)+'万元'),COLOR00ffff,LINETHICK2; |
