主动买卖（副图 源码）

主动买卖

主买量:"分笔.主买#tick",COLORred,linethick2,PRECIS0;
主卖量:SUM(V,0)-主买量,colorgreen,linethick2,PRECIS0;
主动率:(主买量-主卖量)/SUM(V,0)*100,colorccffcc,PRECIS2,linethick0;
买卖次:"分笔.买卖次#tick",colorffcccc,linethick0,PRECIS0;
主买次:"分笔.主买次#tick",colorfaabec,linethick0,PRECIS0;
主卖次:买卖次-主买次,linethick0,PRECIS0;
买均量:主买量/主买次,colorFF9999,linethick0,PRECIS0;
卖均量:主卖量/主卖次,linethick0,PRECIS0;
总笔数:"分笔.成交笔数#tick",COLOR3399ff,linethick0,PRECIS0;
笔均量:SUM(V,0)/总笔数,ColorFFCC66,linethick0,PRECIS0;
盘差:主买量-主卖量,linethick0,PRECIS0;
FILLRGN(0,盘差,盘差>0,RGB(200,10,100),盘差<0,RGB(10,150,100)),layer7;
{N分钟主动率趋势}
ZD5:=主动率-REF(主动率,5);
ZD15:=主动率-REF(主动率,15);
ZD30:=主动率-REF(主动率,30);
ZD60:=主动率-REF(主动率,60);
DRAWTEXTABS(0,1+1,' 最近一期主动性买卖数据:'+NUMTOSTRN((YEAR),0)+'年'+NUMTOSTRN((MONTH),0)+'月'+NUMTOSTRN((DAY),0)+'日'),ColorCCCCFF;
DRAWTEXTABS(300,0+10,' 5分钟主动率:'+NUMTOSTRN(ZD5,2)+'%'),linethick3,Color66FFCC;
DRAWTEXTABS(300,30+10,' 15分钟主动率:'+NUMTOSTRN(ZD15,2)+'%'),linethick3,ColorFFCCFF;
DRAWTEXTABS(300,60+10,' 30分钟主动率:'+NUMTOSTRN(ZD30,2)+'%'),linethick3,Color99CCFF;
DRAWTEXTABS(300,90+10,' 60分钟主动率:'+NUMTOSTRN(ZD60,2)+'%'),linethick3,ColorFFFFFF;
x:=103;
Y:=20-0;
z:=13.5+y;
w:=280;
主买比:=主买量/SUM(V,0)*100;
DRAWRECTABS(x,y-1,x+200,z+1,RGB(0,0,0)),COLOR5E5752,linethick1;
DRAWRECTABS(x,y-1,x+主买比*3/2,z-0,RGB(255,0,0) ),COLOR008888;
DRAWRECTABS(x,y+0,x+主买比*3/2,z-1,RGB(255,255,30) ),COLOR009999;
DRAWRECTABS(x,y+1,x+主买比*3/2,z-2,RGB(255,255,60) ),COLOR00AAAA;
DRAWRECTABS(x,y+2,x+主买比*3/2,z-3,RGB(255,255,90) ),COLOR00BBBB;
DRAWRECTABS(x,y+3,x+主买比*3/2,z-4,RGB(255,255,110) ),COLOR00DDDD;
DRAWRECTABS(x,y+4,x+主买比*3/2,z-5,RGB(255,255,120) ),color00FFFF;
drawtextabs(60,y+1,STRRIGHT(' '+NUMTOSTRN(主买比,1),5)+'%'),COLORyellow;
drawtextabs(5 ,y+1,'主动买量'),COLORyellow;
Y1:=Y+(25-0)*1;
z1:=13.5+y1;
主卖比:=100-主买比;
DRAWRECTABS(x,y1-1,x+200,z1+1,RGB(0,0,0)),COLOR5E5752,linethick1;
DRAWRECTABS(x,y1-1,x+主卖比*3/2,z1-0,RGB(255,255,255) ),Color777777;
DRAWRECTABS(x,y1+0,x+主卖比*3/2,z1-1,RGB(255,255,255) ),Color888888;
DRAWRECTABS(x,y1+1,x+主卖比*3/2,z1-2,RGB(255,255,255) ),Color999999;
DRAWRECTABS(x,y1+2,x+主卖比*3/2,z1-3,RGB(255,255,255) ),ColorBBBBBB;
DRAWRECTABS(x,y1+3,x+主卖比*3/2,z1-4,RGB(255,255,255) ),ColorCCCCCC;
DRAWRECTABS(x,y1+4,x+主卖比*3/2,z1-5,RGB(255,255,255) ),ColorFFFFFF;
drawtextabs(60,y1,STRRIGHT(' '+NUMTOSTRN(主卖比,1),5)+'%'),ColorFFFFCC;
drawtextabs(5,y1,'主动卖量'),ColorFFFFCC,linethick1;

Y2:=Y+(25-0)*2;
z2:=13.5+y2;
CC2:=(主买次)/买卖次*100;
DRAWRECTABS(x,y2-1,x+200, z2+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x,y2-1,x+CC2*3/2,z2-0,RGB(255,20 ,255)),COLORFF14FF;
DRAWRECTABS(x,y2+0,x+CC2*3/2,z2-1,RGB(255,50 ,255)),COLORFF32FF;
DRAWRECTABS(x,y2+1,x+cc2*3/2,z2-2,RGB(255,80 ,255)),COLORFF64FF;
DRAWRECTABS(x,y2+2,x+cc2*3/2,z2-3,RGB(255,110,255)),COLORFF6EFF;
DRAWRECTABS(x,y2+3,x+cc2*3/2,z2-4,RGB(255,130,255)),COLORFF82FF;
DRAWRECTABS(x,y2+4,x+cc2*3/2,z2-5,RGB(255,150,255)),COLORFF96FF;
drawtextabs(60,y2,STRRIGHT(' '+NUMTOSTRN(CC2,1),5)+'%'),colorCC99ff;
drawtextabs(5,y2,'主动买次'),colorCC99ff,linethick1;
Y3:=Y+(25-0)*3;
z3:=13.5+y3;
cc3:=(主卖次)/买卖次*100;
DRAWRECTABS(x, y3-1 ,x+200, z3+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x, y3-1 ,x+CC3*3/2, z3-0,RGB(0,0,255) ),COLORFF1A1A;
DRAWRECTABS(x, y3+0 ,x+CC3*3/2, z3-1,RGB(30,30,255) ),COLORFF2B2B;
DRAWRECTABS(x, y3+1 ,x+cc3*3/2, z3-2,RGB(60,60,255) ),COLORFF3C3C;
DRAWRECTABS(x, y3+2 ,x+cc3*3/2, z3-3,RGB(90,90,255) ),COLORFF4D4D;
DRAWRECTABS(x, y3+3 ,x+cc3*3/2, z3-4,RGB(110,110,255) ),COLORFF6E6E;
DRAWRECTABS(x, y3+4 ,x+cc3*3/2, z3-5,RGB(120,120,255) ),COLORFF7878;
drawtextabs(60,y3,STRRIGHT(' '+NUMTOSTRN(cc3,1),5)+'%'),ColorFFCC66;
drawtextabs(5,y3,'主动卖次'),ColorFFCC66,linethick1;
DRAWTEXTABS(3,120,'名称: '+STKNAME+' 代码: '+STKLABEL+''),colorccffff,linethick3;