{DDEMPT-Level2-DDE分类持仓图谱}
INPUT:P1(5,0,20),P(1,1,999);
TODAY:="ddx.ddx"<>0;{判断是否有正版数据}
{比例}
特单买:IF(TODAY,bigorder(1,3),"DATA@DDE"(4));
特单卖:IF(TODAY,bigorder(2,3),"DATA@DDE"(5));
大单买:IF(TODAY,bigorder(1,2)-bigorder(1,3),"DATA@DDE"(6)-"DATA@DDE"(4));
大单卖:IF(TODAY,bigorder(2,2)-bigorder(2,3),"DATA@DDE"(7)-"DATA@DDE"(5));
中单买:IF(TODAY,bigorder(1,1)-bigorder(1,2),"DATA@DDE"(8)-"DATA@DDE"(6));
中单卖:IF(TODAY,bigorder(2,1)-bigorder(2,2),"DATA@DDE"(9)-"DATA@DDE"(7));
散单买:IF(TODAY,1-bigorder(1,1),1-"DATA@DDE"(8));
散单卖:IF(TODAY,1-bigorder(2,1),1-"DATA@DDE"(9));
HS:=vol/capital;
超1:=特单买-特单卖;
超2:=HS*超1*100;
大1:=大单买-大单卖;
大2:=HS*大1*100;
中1:=中单买-中单卖;
中2:=HS*中1*100;
小1:=散单买-散单卖;
小2:=HS*小1*100;
超大持仓: 25+Sum(超2,0),LINETHICK0,colorred,PRECIS2;
大户持仓: 25+Sum(大2,0),LINETHICK0,colorcyan,PRECIS2;
中户持仓: 25+Sum(中2,0),LINETHICK0,COLORBLUE,PRECIS2;
散户持仓: 25+Sum(小2,0),LINETHICK0,colorgreen,PRECIS2;{
ABCDEFGHIJKLM0:10000000000000000,LineThick0,color000000;
ABCDEFGHIJKLM1:10000000000000000,LineThick0,color000000;
ABCDEFGHIJKLM2:10000000000000000,LineThick0,color000000;
ABCDEFGHIJKLM3:10000000000000000,LineThick0,color000000;}
a:=超大持仓+大户持仓;
b:=超大持仓+大户持仓+中户持仓;
e:=100;
FILLRGN(0,超大持仓,1,rgb(255,0,0));
FILLRGN(超大持仓,a,1,rgb(0,255,255));
FILLRGN(a,b,1,rgb(0,0,255));
FILLRGN(b,e,1,rgb(0,255,0));
N:=3;
M:=5;
T:=BARSLAST(C<>REF(C,1));
DRAWTEXTABS(100,1+1,' '+IFS(TODAY,'正版数据','新游客数据')+' '+NUMTOSTRN((YEAR),0)+'年'+NUMTOSTRN((MONTH),0)+'月'+NUMTOSTRN((DAY),0)+'日'),COLORWHITE;
DRAWRECTABS(0,0,400,999,RGB(30,40,40)),COLORBLACK;
x:=103;
Y:=20-P1;
z:=13.5+y;
w:=280;
cc:=超大持仓+大户持仓;
cb:=ref(cc,p);
cd:=ref(cc,n);
ce:=ref(cc,m);
DRAWRECTABS(x,y-1,x+200,z+1,RGB(0,0,0)),COLOR5E5752,linethick1;
DRAWRECTABS(x,y-1,x+CC*3/2,z-0,RGB(255,0,0) ),COLOR008888;
DRAWRECTABS(x,y+0,x+CC*3/2,z-1,RGB(255,255,30) ),COLOR009999;
DRAWRECTABS(x,y+1,x+cc*3/2,z-2,RGB(255,255,60) ),COLOR00AAAA;
DRAWRECTABS(x,y+2,x+cc*3/2,z-3,RGB(255,255,90) ),COLOR00BBBB;
DRAWRECTABS(x,y+3,x+cc*3/2,z-4,RGB(255,255,110) ),COLOR00DDDD;{
DRAWRECTABS(x,y+4,x+cc*3/2,z-5,RGB(255,255,120) ),color00FFFF;}
drawtextabs(5,1,'分类持仓'),Color66CCFF,linethick1;
drawtextabs(60,1,' 比例%'),Color66CCFF,linethick1;
drawtextabs(w+0, 1,STRRIGHT(' '+NUMTOSTRN(n,0),5)+'日增减'),Color66CCFF;
drawtextabs(w+60,1,STRRIGHT(' '+NUMTOSTRN(m,0),3)+'日增减'),Color66CCFF;
drawtextabs(60,y+1,STRRIGHT(' '+NUMTOSTRN(cc,1),5)+'%'),Color9DFFFF;
drawtextabs(5 ,y+1,'主力持仓'),Color9DFFFF;
drawtextabs(w+5 ,y+1,STRRIGHT(' '+NUMTOSTRN(cc-cd,2),9)+'%'),Color9DFFFF;
drawtextabs(w+65,y+1,STRRIGHT(' '+NUMTOSTRN(cc-ce,2),7)+'%'),Color9DFFFF;
drawtextabs(x+cc*3/2+1,y+3,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc-cb,2)+'%'),Color9DFFFF;
Y1:=Y+(25-P1)*1;
z1:=13.5+y1;
cc1:=100-cc;
cb1:=ref(cc1,p);
cd1:=ref(cc1,n);
ce1:=ref(cc1,m);
DRAWRECTABS(x,y1-1 ,x+200, z1+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x,y1-1,x+ABS(cc1)*3/2,z1-0,RGB(0,128,128)),COLOR808000;
DRAWRECTABS(x,y1+0,x+ABS(cc1)*3/2,z1-1,RGB(0,148,148)),COLOR949400;
DRAWRECTABS(x,y1+1,x+ABS(cc1)*3/2,z1-2,RGB(0,188,188)),COLORBCBC00;
DRAWRECTABS(x,y1+2,x+ABS(cc1)*3/2,z1-3,RGB(0,218,218)),COLORDADA00;
DRAWRECTABS(x,y1+3,x+ABS(cc1)*3/2,z1-4,RGB(0,238,238)),COLOREEEE00;{
DRAWRECTABS(x,y1+4,x+ABS(cc1)*3/2,z1-5,RGB(0,248,248)),COLORF8F800;}
drawtextabs(60,y1,STRRIGHT(' '+NUMTOSTRN(cc1,1),5)+'%'),ColorABFF46;
drawtextabs(5,y1,'个人持仓'),ColorABFF46,linethick1;
drawtextabs(w+5,y1,STRRIGHT(' '+NUMTOSTRN(cc1-cd1,2),9)+'%'),ColorABFF46;
drawtextabs(w+65,y1,STRRIGHT(' '+NUMTOSTRN(cc1-ce1,2),7)+'%'),ColorABFF46;
drawtextabs(x+cc1*3/2+1,y1,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc1-cb1,2) +'%'),ColorABFF46;
drawtextabs(0,Y+(25-P1)+11,' ------------------------------------------------------------------'),Color4B4AFF,linethick1;Y2:=Y+(25-P1)*2;
z2:=13.5+y2;
cc2:=超大持仓;
cb2:=ref(cc2,p);
cd2:=ref(cc2,n);
ce2:=ref(cc2,m);
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,0,0) ),COLOR0000AA;
DRAWRECTABS(x,y2+0,x+CC2*3/2,z2-1,RGB(255,30,30) ),COLOR0011BB;
DRAWRECTABS(x,y2+1,x+cc2*3/2,z2-2,RGB(255,60,60) ),COLOR0022CC;
DRAWRECTABS(x,y2+2,x+cc2*3/2,z2-3,RGB(255,90,90) ),COLOR0033DD;
DRAWRECTABS(x,y2+3,x+cc2*3/2,z2-4,RGB(255,110,110) ),COLOR0044EE;{
DRAWRECTABS(x,y2+4,x+cc2*3/2,z2-5,RGB(255,120,120) ),COLOR0055FF;}
drawtextabs(60,y2,STRRIGHT(' '+NUMTOSTRN(cc2,1),5)+'%'),colorred;
drawtextabs(5,y2,'超大持仓'),colorred,linethick1;
drawtextabs(w+5,y2,STRRIGHT(' '+NUMTOSTRN(cc2-cd2,2),9)+'%'),colorred;
drawtextabs(w+65,y2,STRRIGHT(' '+NUMTOSTRN(cc2-ce2,2),7)+'%'),colorred;
drawtextabs(x+cc2*3/2+1,y2,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc2-cb2,2) +'%'),colorred;Y3:=Y+(25-P1)*3;
z3:=13.5+y3;
cc3:=大户持仓;
cb3:=ref(cc3,p);
cd3:=ref(cc3,n);
ce3:=ref(cc3,m);
DRAWRECTABS(x,y3-1,x+200, z3+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x,y3-1,x+ABS(cc3)*3/2, z3-0,RGB(0,255,255)),COLORFFFF00;
DRAWRECTABS(x,y3+0,x+ABS(cc3)*3/2, z3-1,RGB(30,255,255)),COLORFFFF1E;
DRAWRECTABS(x,y3+1,x+ABS(cc3)*3/2, z3-2,RGB(60,255,255)),COLORFFFF3C;
DRAWRECTABS(x,y3+2,x+ABS(cc3)*3/2, z3-3,RGB(90,255,255)),COLORFFFF5A;
DRAWRECTABS(x,y3+3,x+ABS(cc3)*3/2, z3-4,RGB(110,255,255)),COLORFFFF6E;{
DRAWRECTABS(x,y3+4,x+ABS(cc3)*3/2, z3-5, RGB(120,255,255)),COLORFFFF78;}
drawtextabs(60,y3,STRRIGHT(' '+NUMTOSTRN(cc3,1),5)+'%'),colorcyan;
drawtextabs(5,y3,'大户持仓'),colorcyan,linethick1;
drawtextabs(w+5,y3,STRRIGHT(' '+NUMTOSTRN(cc3-cd3,2),9)+'%'),colorcyan;
drawtextabs(w+65,y3,STRRIGHT(' '+NUMTOSTRN(cc3-ce3,2),7)+'%'),colorcyan;
drawtextabs(x+ABS(cc3)*3/2+1,y3,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc3-cb3,2) +'%'),colorcyan;Y4:=Y+(25-P1)*4;
z4:=13.5+y4;
cc4:=中户持仓;
cb4:=ref(cc4,p);
cd4:=ref(cc4,n);
ce4:=ref(cc4,m);
DRAWRECTABS(x, y4-1 ,x+200, z4+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x, y4-1 ,x+CC4*3/2, z4-1,RGB(0,0,255) ),COLORFF0000;
DRAWRECTABS(x, y4+0 ,x+CC4*3/2, z4-1,RGB(30,30,255) ),COLORFF1E1E;
DRAWRECTABS(x, y4+1 ,x+cc4*3/2, z4-2,RGB(60,60,255) ),COLORFF3C3C;
DRAWRECTABS(x, y4+2 ,x+cc4*3/2, z4-3,RGB(90,90,255) ),COLORFF5A5A;
DRAWRECTABS(x, y4+3 ,x+cc4*3/2, z4-4,RGB(110,110,255) ),COLORFF6E6E;
DRAWRECTABS(x, y4+4 ,x+cc4*3/2, z4-5,RGB(120,120,255) ),COLORFF7878;
drawtextabs(60,y4,STRRIGHT(' '+NUMTOSTRN(cc4,1),5)+'%'),ColorFF6600;
drawtextabs(5,y4,'中户持仓'),ColorFF6600,linethick1;
drawtextabs(w+5,y4,STRRIGHT(' '+NUMTOSTRN(cc4-cd4,2),9)+'%'),ColorFF6600;
drawtextabs(w+65,y4,STRRIGHT(' '+NUMTOSTRN(cc4-ce4,2),7)+'%'),ColorFF6600;
drawtextabs(x+cc4*3/2+1,y4,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc4-cb4,2) +'%'),ColorFF6600;Y5:=Y+(25-P1)*5;
z5:=13.5+y5;
cc5:=散户持仓;
cb5:=ref(cc5,p);
cd5:=ref(cc5,n);
ce5:=ref(cc5,m);
DRAWRECTABS(x,y5-1 ,x+200, z5+1 , RGB(0,0,0) ),COLOR5E5752;
DRAWRECTABS(x,y5-1 ,x+CC5*3/2,z5-0,RGB(0,255,0) ),COLOR00AA00;
DRAWRECTABS(x,y5+0 ,x+CC5*3/2,z5-1,RGB(30,255,30) ),COLOR00BB00;
DRAWRECTABS(x,y5+1 ,x+cc5*3/2,z5-2,RGB(60,255,60) ),COLOR00CC00;
DRAWRECTABS(x,y5+2 ,x+cc5*3/2,z5-3,RGB(90,255,90) ),COLOR00DD00;
DRAWRECTABS(x,y5+3 ,x+cc5*3/2,z5-4,RGB(110,255,110) ),COLOR00EE00;
DRAWRECTABS(x,y5+4 ,x+cc5*3/2,z5-5,RGB(120,255,120) ),COLOR00FF00;
drawtextabs(60,y5,STRRIGHT(' '+NUMTOSTRN(cc5,1),5)+'%'),colorgreen;
drawtextabs(5,y5,'散户持仓'),colorgreen,linethick1;
drawtextabs(w+5,y5,STRRIGHT(' '+NUMTOSTRN(cc5-cd5,2),9)+'%'),colorgreen;
drawtextabs(w+65,y5,STRRIGHT(' '+NUMTOSTRN(cc5-ce5,2),7)+'%'),colorgreen;
drawtextabs(x+cc5*3/2+1,y5,NUMTOSTRN(p,0)+'日:'+NUMTOSTRN(cc5-cb5,2) +'%'),colorgreen;
DRAWTEXTABS(-8,Y+(25-P1)*6,' 名称:'+STKNAME+' 代码:'+STKLABEL+'【Level2-DDE分类持仓图谱】'),colorffccff; |
