{www.gszb.com参数：万元大单：30，0，2000，5;单位切换：0，0，1，1;显示方式：0，0，2，1;纠叠显示：0，0，1，1;大单倍率：1，1，400，1;}
VARIABLE:b5=0;VARIABLE:d5=0;VARIABLE:e5=0;VARIABLE:b10=0;VARIABLE:d10=0;VARIABLE:e10=0;VARIABLE:b30=0;VARIABLE:d30=0;VARIABLE:e30=0;VARIABLE:b50=0;VARIABLE:d50=0;VARIABLE:e50=0;VARIABLE:b70=0;VARIABLE:d70=0;VARIABLE:e70=0;VARIABLE:b100=0;VARIABLE:d100=0;VARIABLE:e100=0;VARIABLE:b150=0;VARIABLE:d150=0;VARIABLE:e150=0;
VARIABLE:p1=0;VARIABLE:p2=0;VARIABLE:p3=0;VARIABLE:p4=0;VARIABLE:p5=0;VARIABLE:p6=0;VARIABLE:p7=0;VARIABLE:p8=0;VARIABLE:p9=0;VARIABLE:p10=0;VARIABLE:p11=0;VARIABLE:p12=0;VARIABLE:p13=0;VARIABLE:p14=0;VARIABLE:bp1=0;VARIABLE:bp3=0;VARIABLE:bp5=0;VARIABLE:bp7=0;VARIABLE:bp9=0;VARIABLE:bp11=0;VARIABLE:bp13=0;VARIABLE:q1=0;
VARIABLE:al=0;VARIABLE:bl=0;VARIABLE:db0=0;VARIABLE:db1=0;VARIABLE:db2=0;VARIABLE:db3=0;VARIABLE:db30=0;VARIABLE:db4=0;VARIABLE:db5=0;VARIABLE:db50=0;VARIABLE:db6=0;VARIABLE:ds0=0;VARIABLE:ds1=0;VARIABLE:ds2=0;VARIABLE:ds3=0;VARIABLE:ds30=0;VARIABLE:ds4=0;VARIABLE:ds5=0;VARIABLE:ds50=0;VARIABLE:ds6=0;
VARIABLE:s5=0;VARIABLE:r5=0;VARIABLE:t5=0;VARIABLE:s10=0;VARIABLE:r10=0;VARIABLE:t10=0;VARIABLE:s30=0;VARIABLE:r30=0;VARIABLE:t30=0;VARIABLE:s50=0;VARIABLE:r50=0;VARIABLE:t50=0;VARIABLE:s70=0;VARIABLE:r70=0;VARIABLE:t70=0;VARIABLE:s100=0;VARIABLE:r100=0;VARIABLE:t100=0;VARIABLE:s150=0;VARIABLE:r150=0;VARIABLE:t150=0;
VARIABLE:q2=0;VARIABLE:q3=0;VARIABLE:q4=0;VARIABLE:q5=0;VARIABLE:q6=0;VARIABLE:q7=0;VARIABLE:q8=0;VARIABLE:q9=0;VARIABLE:q10=0;VARIABLE:q11=0;VARIABLE:q12=0;VARIABLE:q13=0;VARIABLE:q14=0;VARIABLE:sq1=0;VARIABLE:sq3=0;VARIABLE:sq5=0;VARIABLE:sq7=0;VARIABLE:sq9=0;VARIABLE:sq11=0;VARIABLE:sq13=0;
dw:=单位切换;x:=大单倍率;n:=万元大单*x;m:=显示方式;dy:=纠叠显示;DRAWTEXTREL(5,0,STKLABEL),LINETHICK1,ColorFFFF80;DRAWTEXTREL(55,0,STKNAME),LINETHICK2,ColorFFFF80;DRAWTEXTREL(130,0,''+YEAR+'/'+MONTH+'/'+DAY),LINETHICK1,ColorFFFF80;DRAWTEXTREL(200,0,'【主买分析】'),LINETHICK2,COLORred;DRAWTEXTREL(320,0,'【对倒】'),LINETHICK2,COLORred;DRAWTEXTREL(410,0,'幅度 '+NUMTOSTRN(DYNAINFO(14)*100,2)+'%'),LINETHICK1,ColorFFFF80;
DRAWTEXTREL(560,0,'〖主卖分析〗'),LINETHICK2,COLORgreen;DRAWTEXTREL(730,0,'〖对倒〗'),LINETHICK2,COLORgreen;DRAWTEXTREL(820,0,'【净买分析】'),LINETHICK2,COLORccffcc;
if dw=1 then begin
DRAWTEXTREL(980,0,'万元'),LINETHICK1,ColorFFFF80;
end
else begin
DRAWTEXTREL(980,0,'手'),LINETHICK1,ColorFFFF80;
end;
a:=BUYVOL*c/100;bz:=sum(a,0);dz:=if(BUYVOL,1,0);d:=sum(dz,0);if BUYVOL then begin al:=al+v;end;b:=SELLVOL*c/100;sz:=sum(b,0);rz:=IF(SELLVOL,1,0);r:=sum(rz,0);if SELLVOL then begin bl:=bl+v;end;ze:=bz+sz;cz:=bz-sz;zl:=al+bl;cl:=al-bl;a11:=ref(bidvol(1),1);a12:=ref(bidvol(2),1);a13:=ref(bidvol(3),1);a14:=a11+a12+a13;b11:=ref(askvol(1),1);b12:=ref(askvol(2),1);b13:=ref(askvol(3),1);b14:=b11+b12+b13;buy3:=ref(bidprice(3),1);sell3:=ref(askprice(3),1);
bzm1:=b14>0 and BUYVOL>b14 and DYNAINFO(7)<=sell3;bzm2:=b14=0 and BUYVOL>a14 and DYNAINFO(7)>=buy3 and buy3>0;sel0:=if (bzm1 or bzm2,1,0);szm1:=a14>0 and SELLVOL>a14 and DYNAINFO(7)>=buy3 and buy3>0;szm2:=a14=0 and SELLVOL>b14 and DYNAINFO(7)<=sell3;buy0:=if (szm1 or szm2,1,0);x5:=5*x;x10:=10*x;x30:=30*x;x50:=50*x;x70:=70*x;x100:=100*x;
if a>0 and a<=x5 then begin b5:=b5+a;d5:=d5+1;e5:=e5+V;if sel0=1 then begin p1:=p1+v;p2:=p2+1;bp1:=bp1+a;end;end;if a>x5 and a<=x10 then begin b10:=b10+a;d10:=d10+1; e10:=e10+v;if sel0=1 then begin p3:=p3+v;p4:=p4+1;bp3:=bp3+a;end;end;if b>0 and b<=x5 then begin s5:=s5+b;r5:=r5+1;t5:=t5+v;if buy0=1 then begin q1:=q1+v;q2:=q2+1;sq1:=sq1+b;end;end;if b>x5 and b<=x10 then begin s10:=s10+b;r10:=r10+1;t10:=t10+v;if buy0=1 then begin q3:=q3+v;q4:=q4+1;sq3:=sq3+b;end;end;
if a>x10 and a<=x30 then begin b30:=b30+a;d30:=d30+1; e30:=e30+v;if sel0=1 then begin p5:=p5+v;p6:=p6+1;bp5:=bp5+a;end;end;if a>x30 and a<=x50 then begin b50:=b50+a;d50:=d50+1; e50:=e50+v;if sel0=1 then begin p7:=p7+v;p8:=p8+1;bp7:=bp7+a;end;end;if b>x10 and b<=x30 then begin s30:=s30+b;r30:=r30+1;t30:=t30+v;if buy0=1 then begin q5:=q5+v;q6:=q6+1;sq5:=sq5+b;end;end;if b>x30 and b<=x50 then begin s50:=s50+b;r50:=r50+1;t50:=t50+v;
if buy0=1 then begin q7:=q7+v;q8:=q8+1;sq7:=sq7+b;end;end;if a>x50 and a<=x70 then begin b70:=b70+a;d70:=d70+1; e70:=e70+v;if sel0=1 then begin p9:=p9+v;p10:=p10+1;bp9:=bp9+a;end;end;if b>x50 and b<=x70 then begin s70:=s70+b;r70:=r70+1;t70:=t70+v;if buy0=1 then begin q9:=q9+v;q10:=q10+1;sq9:=sq9+b;end;end;if b>x70 and b<=x100 then begin s100:=s100+b;r100:=r100+1;t100:=t100+v;if buy0=1 then begin q11:=q11+v;q12:=q12+1;sq11:=sq11+b;end;end;
if a>x70 and a<=x100 then begin b100:=b100+a;d100:=d100+1; e100:=e100+v;if sel0=1 then begin p11:=p11+v;p12:=p12+1;bp11:=bp11+a;end;end;if a>x100 then begin b150:=b150+a;d150:=d150+1;e150:=e150+v;if sel0=1 then begin p13:=p13+v;p14:=p14+1;bp13:=bp13+a;end;end;if b>x100 then begin s150:=s150+b;r150:=r150+1;t150:=t150+v;if buy0=1 then begin q13:=q13+v;q14:=q14+1;sq13:=sq13+b;end;end;
if dw=1then begin
z:=ze;xe1:=b5;xe2:=b10;xe3:=b30;xe4:=b50;xe5:=b70;xe6:=b100;xe7:=b150;yt1:=s5;yt2:=s10;yt3:=s30;yt4:=s50;yt5:=s70;yt6:=s100;yt7:=s150;
end
else begin
z:=zl;xe1:=e5;xe2:=e10;xe3:=e30;xe4:=e50;xe5:=e70;xe6:=e100;xe7:=e150;yt1:=t5;yt2:=t10;yt3:=t30;yt4:=t50;yt5:=t70;yt6:=t100;yt7:=t150;
end;
if n>=0 then begin n5:=1;n10:=1;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x5 then begin n5:=0;n10:=1;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x10 then begin n5:=0;n10:=0;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x30 then begin n5:=0;n10:=0;n30:=0;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x50 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=1;n100:=1;n150:=1;end;if n>=x70 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=0;n100:=1;n150:=1;end;if n>=x100 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=0;n100:=0;n150:=1;end;
if n5=0 then begin
IF BARSTATUS=2 and (xe1) THEN BEGIN DRAWTEXTREL(0,100, '≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe1,dw)+'/'+NUMTOSTRN(d5,0)+'笔(均'+NUMTOSTRN(xe1/d5,dw)+')/价'+NUMTOSTRN(b5/e5*100,2)+'/'+NUMTOSTRN(xe1/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe1) THEN BEGIN DRAWTEXTREL(0,100, '≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe1,dw)+'/'+NUMTOSTRN(d5,0)+'笔(均'+NUMTOSTRN(xe1/d5,dw)+')/价'+NUMTOSTRN(b5/e5*100,2)+'/'+NUMTOSTRN(xe1/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n5=0 then begin
IF BARSTATUS=2 and (yt1) THEN BEGIN DRAWTEXTREL(400,100,'≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt1,dw)+'/'+NUMTOSTRN(r5,0)+'笔(均'+NUMTOSTRN(yt1/r5,dw)+')/价'+NUMTOSTRN(s5/t5*100,2)+'/'+NUMTOSTRN(yt1/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt1) THEN BEGIN DRAWTEXTREL(400,100,'≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt1,dw)+'/'+NUMTOSTRN(r5,0)+'笔(均'+NUMTOSTRN(yt1/r5,dw)+')/价'+NUMTOSTRN(s5/t5*100,2)+'/'+NUMTOSTRN(yt1/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n10=0 then begin
IF BARSTATUS=2 and (xe2) THEN BEGIN DRAWTEXTREL(0,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe2,dw)+'/'+NUMTOSTRN(d10,0)+'笔(均'+NUMTOSTRN(xe2/d10,dw)+')/价'+NUMTOSTRN(b10/e10*100,2)+'/'+NUMTOSTRN(xe2/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe2) THEN BEGIN DRAWTEXTREL(0,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe2,dw)+'/'+NUMTOSTRN(d10,0)+'笔(均'+NUMTOSTRN(xe2/d10,dw)+')/价'+NUMTOSTRN(b10/e10*100,2)+'/'+NUMTOSTRN(xe2/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n10=0 then begin
IF BARSTATUS=2 and (yt2) THEN BEGIN DRAWTEXTREL(400,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt2,dw)+'/'+NUMTOSTRN(r10,0)+'笔(均'+NUMTOSTRN(yt2/r10,dw)+')/价'+NUMTOSTRN(s10/t10*100,2)+'/'+NUMTOSTRN(yt2/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt2) THEN BEGIN DRAWTEXTREL(400,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt2,dw)+'/'+NUMTOSTRN(r10,0)+'笔(均'+NUMTOSTRN(yt2/r10,dw)+')/价'+NUMTOSTRN(s10/t10*100,2)+'/'+NUMTOSTRN(yt2/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n30=0 then begin
IF BARSTATUS=2 and (xe3) THEN BEGIN DRAWTEXTREL(0,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe3,dw)+'/'+NUMTOSTRN(d30,0)+'笔(均'+NUMTOSTRN(xe3/d30,dw)+')/价'+NUMTOSTRN(b30/e30*100,2)+'/'+NUMTOSTRN(xe3/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe3) THEN BEGIN DRAWTEXTREL(0,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe3,dw)+'/'+NUMTOSTRN(d30,0)+'笔(均'+NUMTOSTRN(xe3/d30,dw)+')/价'+NUMTOSTRN(b30/e30*100,2)+'/'+NUMTOSTRN(xe3/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n30=0 then begin
IF BARSTATUS=2 and (yt3) THEN BEGIN DRAWTEXTREL(400,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt3,dw)+'/'+NUMTOSTRN(r30,0)+'笔(均'+NUMTOSTRN(yt3/r30,dw)+')/价'+NUMTOSTRN(s30/t30*100,2)+'/'+NUMTOSTRN(yt3/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt3) THEN BEGIN DRAWTEXTREL(400,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt3,dw)+'/'+NUMTOSTRN(r30,0)+'笔(均'+NUMTOSTRN(yt3/r30,dw)+')/价'+NUMTOSTRN(s30/t30*100,2)+'/'+NUMTOSTRN(yt3/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n50=0 then begin
IF BARSTATUS=2 and (xe4) THEN BEGIN DRAWTEXTREL(0,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe4,dw)+'/'+NUMTOSTRN(d50,0)+'笔(均'+NUMTOSTRN(xe4/d50,dw)+')/价'+NUMTOSTRN(b50/e50*100,2)+'/'+NUMTOSTRN(xe4/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe4) THEN BEGIN DRAWTEXTREL(0,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe4,dw)+'/'+NUMTOSTRN(d50,0)+'笔(均'+NUMTOSTRN(xe4/d50,dw)+')/价'+NUMTOSTRN(b50/e50*100,2)+'/'+NUMTOSTRN(xe4/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n70=0 then begin
IF BARSTATUS=2 and (xe5) THEN BEGIN DRAWTEXTREL(0,480, '≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe5,dw)+'/'+NUMTOSTRN(d70,0)+'笔(均'+NUMTOSTRN(xe5/d70,dw)+')/价'+NUMTOSTRN(b70/e70*100,2)+'/'+NUMTOSTRN(xe5/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe5) THEN BEGIN DRAWTEXTREL(0,480, '≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe5,dw)+'/'+NUMTOSTRN(d70,0)+'笔(均'+NUMTOSTRN(xe5/d70,dw)+')/价'+NUMTOSTRN(b70/e70*100,2)+'/'+NUMTOSTRN(xe5/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n100=0 then begin
IF BARSTATUS=2 and (xe6) THEN BEGIN DRAWTEXTREL(0,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe6,dw)+'/'+NUMTOSTRN(d100,0)+'笔(均'+NUMTOSTRN(xe6/d100,dw)+')/价'+NUMTOSTRN(b100/e100*100,2)+'/'+NUMTOSTRN(xe6/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe6) THEN BEGIN DRAWTEXTREL(0,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe6,dw)+'/'+NUMTOSTRN(d100,0)+'笔(均'+NUMTOSTRN(xe6/d100,dw)+')/价'+NUMTOSTRN(b100/e100*100,2)+'/'+NUMTOSTRN(xe6/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n150=0 then begin
IF BARSTATUS=2 and (xe7) THEN BEGIN DRAWTEXTREL(0,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe7,dw)+'/'+NUMTOSTRN(d150,0)+'笔(均'+NUMTOSTRN(xe7/d150,dw)+')/价'+NUMTOSTRN(b150/e150*100,2)+'/'+NUMTOSTRN(xe7/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe7) THEN BEGIN DRAWTEXTREL(0,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe7,dw)+'/'+NUMTOSTRN(d150,0)+'笔(均'+NUMTOSTRN(xe7/d150,dw)+')/价'+NUMTOSTRN(b150/e150*100,2)+'/'+NUMTOSTRN(xe7/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n50=0 then begin
IF BARSTATUS=2 and (yt4) THEN BEGIN DRAWTEXTREL(400,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt4,dw)+'/'+NUMTOSTRN(r50,0)+'笔(均'+NUMTOSTRN(yt4/r50,dw)+')/价'+NUMTOSTRN(s50/t50*100,2)+'/'+NUMTOSTRN(yt4/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt4) THEN BEGIN DRAWTEXTREL(400,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt4,dw)+'/'+NUMTOSTRN(r50,0)+'笔(均'+NUMTOSTRN(yt4/r50,dw)+')/价'+NUMTOSTRN(s50/t50*100,2)+'/'+NUMTOSTRN(yt4/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n70=0 then begin
IF BARSTATUS=2 and (yt5) THEN BEGIN DRAWTEXTREL(400,480,'≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt5,dw)+'/'+NUMTOSTRN(r70,0)+'笔(均'+NUMTOSTRN(yt5/r70,dw)+')/价'+NUMTOSTRN(s70/t70*100,2)+'/'+NUMTOSTRN(yt5/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt5) THEN BEGIN DRAWTEXTREL(400,480,'≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt5,dw)+'/'+NUMTOSTRN(r70,0)+'笔(均'+NUMTOSTRN(yt5/r70,dw)+')/价'+NUMTOSTRN(s70/t70*100,2)+'/'+NUMTOSTRN(yt5/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n100=0 then begin
IF BARSTATUS=2 and (yt6) THEN BEGIN DRAWTEXTREL(400,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt6,dw)+'/'+NUMTOSTRN(r100,0)+'笔(均'+NUMTOSTRN(yt6/r100,dw)+')/价'+NUMTOSTRN(s100/t100*100,2)+'/'+NUMTOSTRN(yt6/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt6) THEN BEGIN DRAWTEXTREL(400,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt6,dw)+'/'+NUMTOSTRN(r100,0)+'笔(均'+NUMTOSTRN(yt6/r100,dw)+')/价'+NUMTOSTRN(s100/t100*100,2)+'/'+NUMTOSTRN(yt6/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n150=0 then begin
IF BARSTATUS=2 and (yt7) THEN BEGIN DRAWTEXTREL(400,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt7,dw)+'/'+NUMTOSTRN(r150,0)+'笔(均'+NUMTOSTRN(yt7/r150,dw)+')/价'+NUMTOSTRN(s150/t150*100,2)+'/'+NUMTOSTRN(yt7/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt7) THEN BEGIN DRAWTEXTREL(400,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt7,dw)+'/'+NUMTOSTRN(r150,0)+'笔(均'+NUMTOSTRN(yt7/r150,0)+')/价'+NUMTOSTRN(s150/t150*100,2)+'/'+NUMTOSTRN(yt7/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
l5:=e5-t5;l10:=e10-t10;l30:=e30-t30;l50:=e50-t50;l70:=e70-t70;l100:=e100-t100;l150:=e150-t150;j5:=b5-s5;j10:=b10-s10;j30:=b30-s30;j50:=b50-s50;j70:=b70-s70;j100:=b100-s100;j150:=b150-s150;if dw=1 then begin jl1:=j5;jl2:=j10;jl3:=j30;jl4:=j50;jl5:=j70;jl6:=j100;jl7:=j150;end;if dw=0 then begin jl1:=l5;jl2:=l10;jl3:=l30;jl4:=l50;jl5:=l70;jl6:=l100;jl7:=l150;end;
IF jL1>0 THEN m5:=840; ELSE m5:=834;IF jL2>0 THEN m10:=840; ELSE m10:=834;IF jL3>0 THEN m30:=840; ELSE m30:=834;IF jL4>0 THEN m50:=840; ELSE m50:=834;IF jL5>0 THEN m70:=840; ELSE m70:=834;IF jL6>0 THEN m100:=840; ELSE m100:=834;IF jL7>0 THEN m150:=840; ELSE m150:=834;IF BARSTATUS=2 and (jl1) THEN BEGIN DRAWTEXTREL(m5,100,NUMTOSTRN(jl1,dw)+'/'+NUMTOSTRN(jl1/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl2) THEN BEGIN DRAWTEXTREL(m10,195,NUMTOSTRN(jl2,dw)+'/'+NUMTOSTRN(jl2/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (jl7) THEN BEGIN DRAWTEXTREL(m150,670,NUMTOSTRN(jl7,dw)+'/'+NUMTOSTRN(jl7/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;if dw=1{www.gszb.com1-万元} then begin al1:=bz;bl1:=sz;cl1:=cz;end;if dw=0{www.gszb.com0-手} then begin al1:=al;bl1:=bl;cl1:=cl;end;IF BARSTATUS=2 and (al1) THEN BEGIN DRAWTEXTREL(00,765,'■买总计：'+NUMTOSTRN(al1,dw)+'/'+NUMTOSTRN(d,0)+'笔(均'+NUMTOSTRN(al1/d,dw)+')/ 占'+NUMTOSTRN(al1/z*100,2)+'%'),LINETHICK1,Coloryellow;end;
IF BARSTATUS=2 and (jl3) THEN BEGIN DRAWTEXTREL(m30,290,NUMTOSTRN(jl3,dw)+'/'+NUMTOSTRN(jl3/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl4) THEN BEGIN DRAWTEXTREL(m50,385,NUMTOSTRN(jl4,dw)+'/'+NUMTOSTRN(jl4/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl5) THEN BEGIN DRAWTEXTREL(m70,480,NUMTOSTRN(jl5,dw)+'/'+NUMTOSTRN(jl5/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl6) THEN BEGIN DRAWTEXTREL(m100,575,NUMTOSTRN(jl6,dw)+'/'+NUMTOSTRN(jl6/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (bl1) THEN BEGIN DRAWTEXTREL(400,765,'□卖总计：'+NUMTOSTRN(bl1,dw)+'/'+NUMTOSTRN(r,0)+'笔(均'+NUMTOSTRN(bl1/r,dw)+')/ 占'+NUMTOSTRN(bl1/z*100,2)+'%'),LINETHICK1,Coloryellow;end;IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(820,765,'净买总计:'),LINETHICK1,Coloryellow;end;
if cl>0 then begin
IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(885,765,NUMTOSTRN(cl1,dw)+'/'+NUMTOSTRN(cl1/z*100,2)+'%'),LINETHICK1,COLORred;end;
end
else begin
IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(885,765,NUMTOSTRN(cl1,dw)+'/'+NUMTOSTRN(cl1/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
st:=STRCMP('s',STKNAME);if st=1 then begin k:=5;end;if st=-1 or (st=1 and DYNAINFO(14)*100>9.96) then begin k:=10;end;bv01:=DYNAINFO(3)*(1+k/100)*100;dbv0:=if (FRACPART(bv01)>=0.5,(INTPART(bv01)+1)/100,INTPART(bv01)/100);zt:=if(BUYVOL and c=dbv0,1,0);sv01:=DYNAINFO(3)*(1-k/100)*100;dsv0:=if (FRACPART(sv01)>=0.5,(INTPART(sv01)+1)/100,INTPART(sv01)/100);dt:=if(SELLVOL and c=dsv0,1,0);
if a>n then begin db0:=db0+a;db1:=db1+v;db2:=db2+1; end;if a>n and zt=1 then begin db30:=db30+a;db3:=db3+v;db4:=db4+1;end;if a>n and sel0=1 then begin db50:=db50+a;db5:=db5+v;db6:=db6+1;end;if b>n then begin ds0:=ds0+b;ds1:=ds1+v;ds2:=ds2+1;end;if b>n and dt=1 then begin ds30:=ds30+b;ds3:=ds3+v;ds4:=ds4+1; end;if b>n and buy0=1 then begin ds50:=ds50+b;ds5:=ds5+v;ds6:=ds6+1;end;
if dw=1 then begin
总:=DYNAINFO(10)/10000;
if n=30*x then begin
db:=b50+b70+b100+b150;sb:=b5+b10+b30;ds:=s50+s70+s100+s150;ss:=s5+s10+s30;
end
else begin
db:=db0;ds:=ds0;sb:=bz-db0;ss:=sz-ds0;
end;
end
else begin
总:=DYNAINFO( 8);
if n=30*x then begin
db:=e50+e70+e100+e150;sb:=e5+e10+e30;ds:=t50+t70+t100+t150;ss:=t5+t10+t30;
end
else begin
db:=db1;ds:=ds1;sb:=al-db1;ss:=bl-ds1;
end;
end;
STICKLINE((z AND DISPSTATUS=2),0,z,35,1),colorCCCCCC;STICKLINE((db+ds+sb+ss AND DISPSTATUS=2),0,总,30,0),COLOR008000;STICKLINE((db+ds+sb AND DISPSTATUS=2),0,db+ds+sb,30,0),colorFF00FF;STICKLINE((db+ds AND BARSTATUS=2),0,db+ds,30,0),color00FF00;STICKLINE((db AND BARSTATUS=2),0,db,30,0),color5050FF;if dy=0 then begin yw:=0;end;if dy=1 then begin yw:=47;end;
if dw=1 then begin
xp1:=bp1;xp3:=bp3;xp5:=bp5;xp7:=bp7;xp9:=bp9;xp11:=bp11;xp13:=bp13;yq1:=sq1;yq3:=sq3;yq5:=sq5;yq7:=sq7;yq9:=sq9;yq11:=sq11;yq13:=sq13;
end
else begin
xp1:=p1;xp3:=p3;xp5:=p5;xp7:=p7;xp9:=p9;xp11:=p11;xp13:=p13;yq1:=q1;yq3:=q3;yq5:=q5;yq7:=q7;yq9:=q9;yq11:=q11;yq13:=q13;
end;
p:=p2+p4+p6+p8+p10+p12+p14;q:=q2+q4+q6+q8+q10+q12+q14;xp0:=xp1+xp3+xp5+xp7+xp9+xp11+xp13;yq0:=yq1+yq3+yq5+yq7+yq9+yq11+yq13;p0:=p1+p3+p5+p7+p9+p11+p13;q0:=q1+q3+q5+q7+q9+q11+q13;
if m<>1{www.gszb.comm=0 or m=2} then begin
IF BARSTATUS=2 and (p2) THEN BEGIN DRAWTEXTREL(330,100-yw,'/'+NUMTOSTRN(xp1,dw)+'('+NUMTOSTRN(p2,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p4) THEN BEGIN DRAWTEXTREL(330,195-yw,'/'+NUMTOSTRN(xp3,dw)+'('+NUMTOSTRN(p4,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p6) THEN BEGIN DRAWTEXTREL(330,290-yw,'/'+NUMTOSTRN(xp5,dw)+'('+NUMTOSTRN(p6,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p8) THEN BEGIN DRAWTEXTREL(330,385-yw,'/'+NUMTOSTRN(xp7,dw)+'('+NUMTOSTRN(p8,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p10) THEN BEGIN DRAWTEXTREL(330,480-yw,'/'+NUMTOSTRN(xp9,dw)+'('+NUMTOSTRN(p10,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p12) THEN BEGIN DRAWTEXTREL(330,575-yw,'/'+NUMTOSTRN(xp11,dw)+'('+NUMTOSTRN(p12,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p14) THEN BEGIN DRAWTEXTREL(330,670-yw,'/'+NUMTOSTRN(xp13,dw)+'('+NUMTOSTRN(p14,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p) THEN BEGIN DRAWTEXTREL(330,765-yw,'/'+NUMTOSTRN(xp0/z*100,2)+'%('+NUMTOSTRN(p,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q2) THEN BEGIN DRAWTEXTREL(740,100-yw,'/'+NUMTOSTRN(yq1,dw)+'('+NUMTOSTRN(q2,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q4) THEN BEGIN DRAWTEXTREL(740,195-yw,'/'+NUMTOSTRN(yq3,dw)+'('+NUMTOSTRN(q4,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q6) THEN BEGIN DRAWTEXTREL(740,290-yw,'/'+NUMTOSTRN(yq5,dw)+'('+NUMTOSTRN(q6,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q8) THEN BEGIN DRAWTEXTREL(740,385-yw,'/'+NUMTOSTRN(yq7,dw)+'('+NUMTOSTRN(q8,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q10) THEN BEGIN DRAWTEXTREL(740,480-yw,'/'+NUMTOSTRN(yq9,dw)+'('+NUMTOSTRN(q10,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q12) THEN BEGIN DRAWTEXTREL(740,575-yw,'/'+NUMTOSTRN(yq11,dw)+'('+NUMTOSTRN(q12,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q14) THEN BEGIN DRAWTEXTREL(740,670-yw,'/'+NUMTOSTRN(yq13,dw)+'('+NUMTOSTRN(q14,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q) THEN BEGIN DRAWTEXTREL(740,765-yw,'/'+NUMTOSTRN(yq0/z*100,2)+'%('+NUMTOSTRN(q,0)+')'),LINETHICK1,COLORwhite;end;
end;
IF m<>2{www.gszb.comm=0 or m=1} THEN BEGIN
if dw=1 then begin xdb1:=db0;xds1:=ds0;end;if dw=0 then begin xdb1:=db1;xds1:=ds1;end;
IF BARSTATUS=2 and (db1) THEN BEGIN DRAWTEXTREL(0,955,'总＞'+NUMTOSTRN(n,0)+'万:'+NUMTOSTRN(xdb1,dw)+'/'+NUMTOSTRN(db2,0)+'笔(均'+NUMTOSTRN(xdb1/db2,dw)+')/价'+NUMTOSTRN(db0/db1*100,2)+'/'+NUMTOSTRN(xdb1/z*100,2)+'%'),LINETHICK1,color5050FF;end;
IF BARSTATUS=2 and (ds1) THEN BEGIN DRAWTEXTREL(400,955,'总＞'+NUMTOSTRN(n,0)+'万:'+NUMTOSTRN(xds1,dw)+'/'+NUMTOSTRN(ds2,0)+'笔(均'+NUMTOSTRN(xds1/ds2,dw)+')/价'+NUMTOSTRN(ds0/ds1*100,2)+'/'+NUMTOSTRN(xds1/z*100,2)+'%'),LINETHICK1,color00FF00;end;
if db1-ds1>0 then begin
IF BARSTATUS=2 and (xdb1-xds1) THEN BEGIN DRAWTEXTREL(820,955,'差:'+NUMTOSTRN((xdb1-xds1),dw)+'/'+NUMTOSTRN((xdb1-xds1)/z*100,2)+'%'),LINETHICK1,COLORred;end;
end
else begin
IF BARSTATUS=2 and (xdb1-xds1) THEN BEGIN DRAWTEXTREL(820,955,'差:'+NUMTOSTRN((xdb1-xds1),dw)+'/'+NUMTOSTRN((xdb1-xds1)/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
end;
if m=0 then begin
if dw=1 then begin xdb5:=db50;xds5:=ds50;end;if dw=0 then begin xdb5:=db5;xds5:=ds5;end;
IF BARSTATUS=2 and (db5) THEN BEGIN DRAWTEXTREL(325,955-yw,'/'+NUMTOSTRN(xdb5/z*100,2)+'%('+NUMTOSTRN(db6,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (ds5) THEN BEGIN DRAWTEXTREL(735,955-yw,'/'+NUMTOSTRN(xds5/z*100,2)+'%('+NUMTOSTRN(ds6,0)+')'),LINETHICK1,COLORwhite;end;
end;
if m=2 then begin
if dw=1 then begin xdb3:=db30;xds3:=ds30;end;if dw=0 then begin xdb3:=db3;xds3:=ds3;end;
IF BARSTATUS=2 and (db3) THEN BEGIN DRAWTEXTREL(0,955,'◇涨停'+NUMTOSTRN(k,0)+'%＞'+NUMTOSTRN(n,0)+'万单:'+NUMTOSTRN(xdb3,dw)+'/'+NUMTOSTRN(db4,0)+'笔(均'+NUMTOSTRN(xdb3/db4,0)+')/'+NUMTOSTRN(xdb3/z*100,2)+'%/换手'+NUMTOSTRN(db3*100/capital,2)+'%'),LINETHICK1,color00FF00;end;
IF BARSTATUS=2 and (ds3) THEN BEGIN DRAWTEXTREL(400,955,'◇跌停'+NUMTOSTRN(k,0)+'%＞'+NUMTOSTRN(n,0)+'万单:'+NUMTOSTRN(xds3,dw)+'/'+NUMTOSTRN(ds4,0)+'笔(均'+NUMTOSTRN(xds3/ds4,0)+')/'+NUMTOSTRN(xds3/z*100,2)+'%/换手'+NUMTOSTRN(ds3*100/capital,2)+'%'),LINETHICK1,color5050FF;end;
end;
if m<>1 then begin
if dw=1 then begin xdb3:=db30;xds3:=ds30;xdb5:=db50;xds5:=ds50;end;if dw=0{www.gszb.com0-手} then begin xdb3:=db3;xds3:=ds3;xdb5:=db5;xds5:=ds5;end;STICKLINE((xdb3 AND BARSTATUS=2),0,xdb3,15,0),COLORgreen;STICKLINE((xds3 AND BARSTATUS=2),db,db+xds3,15,0),COLORred;
STICKLINE((xdb5 AND BARSTATUS=2),0,xdb5,5,0),COLORwhite;STICKLINE((xds5 AND BARSTATUS=2),db,db+xds5,5,0),COLORwhite;
end;
if dw=1 then begin
if n=30*x then begin
ld:=j50+j70+j100+j150;lx:=j5+j10+j30;
end
else begin
ld:=db0-ds0;lx:=(bz-db0)-(sz-ds0);
end;
xcl:=cz;总成交:='总成交额:';
end
else begin
if n=30*x then begin
ld:=l50+l70+l100+l150;lx:=l5+l10+l30;
end
else begin
ld:=db1-ds1;lx:=(al-db1)-(bl-ds1);
end;
xcl:=cl;总成交:='总成交量:';
end;
总量:=DYNAINFO(8);
IF BARSTATUS=2 and (xcl/z) THEN BEGIN
DRAWTEXTREL(0,860,'▲总分析：净买:'+NUMTOSTRN(xcl/z*100,2)+'%(大单'+NUMTOSTRN(ld/z*100,2)+'%/小单'+NUMTOSTRN(lx/z*100,2)+'%)'),LINETHICK1,ColorFFFF80;
IF BARSTATUS=2 and ((xp0+yq0)/z*100) THEN BEGIN DRAWTEXTREL(400,860,'△总对倒：'+NUMTOSTRN((xp0+yq0)/z*100,2)+'%(共'+NUMTOSTRN((p+q),0)+'笔)'),LINETHICK1,ColorFFFF80;end;
DRAWTEXTREL(610,860,'总换手:'+NUMTOSTRN(100*总量/capital,2)+'%(倒'+NUMTOSTRN(100*(p0+q0)/capital,2)+'%)'),LINETHICK1,ColorFFFF80;end;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(820,860,总成交+NUMTOSTRN(z,dw)),LINETHICK1,ColorFFFF80;end;
源码：
{www.gszb.com分析家6.0分笔指标-龙虎看盘超级优化板}
{www.gszb.com参数：万元大单：30，0，2000，5;单位切换：0，0，1，1;显示方式：0，0，2，1;纠叠显示：0，0，1，1;大单倍率：1，1，400，1;}
VARIABLE:b5=0;VARIABLE:d5=0;VARIABLE:e5=0;VARIABLE:b10=0;VARIABLE:d10=0;VARIABLE:e10=0;VARIABLE:b30=0;VARIABLE:d30=0;VARIABLE:e30=0;VARIABLE:b50=0;VARIABLE:d50=0;VARIABLE:e50=0;VARIABLE:b70=0;VARIABLE:d70=0;VARIABLE:e70=0;VARIABLE:b100=0;VARIABLE:d100=0;VARIABLE:e100=0;VARIABLE:b150=0;VARIABLE:d150=0;VARIABLE:e150=0;
VARIABLE:p1=0;VARIABLE:p2=0;VARIABLE:p3=0;VARIABLE:p4=0;VARIABLE:p5=0;VARIABLE:p6=0;VARIABLE:p7=0;VARIABLE:p8=0;VARIABLE:p9=0;VARIABLE:p10=0;VARIABLE:p11=0;VARIABLE:p12=0;VARIABLE:p13=0;VARIABLE:p14=0;VARIABLE:bp1=0;VARIABLE:bp3=0;VARIABLE:bp5=0;VARIABLE:bp7=0;VARIABLE:bp9=0;VARIABLE:bp11=0;VARIABLE:bp13=0;VARIABLE:q1=0;
VARIABLE:al=0;VARIABLE:bl=0;VARIABLE:db0=0;VARIABLE:db1=0;VARIABLE:db2=0;VARIABLE:db3=0;VARIABLE:db30=0;VARIABLE:db4=0;VARIABLE:db5=0;VARIABLE:db50=0;VARIABLE:db6=0;VARIABLE:ds0=0;VARIABLE:ds1=0;VARIABLE:ds2=0;VARIABLE:ds3=0;VARIABLE:ds30=0;VARIABLE:ds4=0;VARIABLE:ds5=0;VARIABLE:ds50=0;VARIABLE:ds6=0;
VARIABLE:s5=0;VARIABLE:r5=0;VARIABLE:t5=0;VARIABLE:s10=0;VARIABLE:r10=0;VARIABLE:t10=0;VARIABLE:s30=0;VARIABLE:r30=0;VARIABLE:t30=0;VARIABLE:s50=0;VARIABLE:r50=0;VARIABLE:t50=0;VARIABLE:s70=0;VARIABLE:r70=0;VARIABLE:t70=0;VARIABLE:s100=0;VARIABLE:r100=0;VARIABLE:t100=0;VARIABLE:s150=0;VARIABLE:r150=0;VARIABLE:t150=0;
VARIABLE:q2=0;VARIABLE:q3=0;VARIABLE:q4=0;VARIABLE:q5=0;VARIABLE:q6=0;VARIABLE:q7=0;VARIABLE:q8=0;VARIABLE:q9=0;VARIABLE:q10=0;VARIABLE:q11=0;VARIABLE:q12=0;VARIABLE:q13=0;VARIABLE:q14=0;VARIABLE:sq1=0;VARIABLE:sq3=0;VARIABLE:sq5=0;VARIABLE:sq7=0;VARIABLE:sq9=0;VARIABLE:sq11=0;VARIABLE:sq13=0;
dw:=单位切换;x:=大单倍率;n:=万元大单*x;m:=显示方式;dy:=纠叠显示;DRAWTEXTREL(5,0,STKLABEL),LINETHICK1,ColorFFFF80;DRAWTEXTREL(55,0,STKNAME),LINETHICK2,ColorFFFF80;DRAWTEXTREL(130,0,''+YEAR+'/'+MONTH+'/'+DAY),LINETHICK1,ColorFFFF80;DRAWTEXTREL(200,0,'【主买分析】'),LINETHICK2,COLORred;DRAWTEXTREL(320,0,'【对倒】'),LINETHICK2,COLORred;DRAWTEXTREL(410,0,'幅度 '+NUMTOSTRN(DYNAINFO(14)*100,2)+'%'),LINETHICK1,ColorFFFF80;
DRAWTEXTREL(560,0,'〖主卖分析〗'),LINETHICK2,COLORgreen;DRAWTEXTREL(730,0,'〖对倒〗'),LINETHICK2,COLORgreen;DRAWTEXTREL(820,0,'【净买分析】'),LINETHICK2,COLORccffcc;
if dw=1 then begin
DRAWTEXTREL(980,0,'万元'),LINETHICK1,ColorFFFF80;
end
else begin
DRAWTEXTREL(980,0,'手'),LINETHICK1,ColorFFFF80;
end;
a:=BUYVOL*c/100;bz:=sum(a,0);dz:=if(BUYVOL,1,0);d:=sum(dz,0);if BUYVOL then begin al:=al+v;end;b:=SELLVOL*c/100;sz:=sum(b,0);rz:=IF(SELLVOL,1,0);r:=sum(rz,0);if SELLVOL then begin bl:=bl+v;end;ze:=bz+sz;cz:=bz-sz;zl:=al+bl;cl:=al-bl;a11:=ref(bidvol(1),1);a12:=ref(bidvol(2),1);a13:=ref(bidvol(3),1);a14:=a11+a12+a13;b11:=ref(askvol(1),1);b12:=ref(askvol(2),1);b13:=ref(askvol(3),1);b14:=b11+b12+b13;buy3:=ref(bidprice(3),1);sell3:=ref(askprice(3),1);
bzm1:=b14>0 and BUYVOL>b14 and DYNAINFO(7)<=sell3;bzm2:=b14=0 and BUYVOL>a14 and DYNAINFO(7)>=buy3 and buy3>0;sel0:=if (bzm1 or bzm2,1,0);szm1:=a14>0 and SELLVOL>a14 and DYNAINFO(7)>=buy3 and buy3>0;szm2:=a14=0 and SELLVOL>b14 and DYNAINFO(7)<=sell3;buy0:=if (szm1 or szm2,1,0);x5:=5*x;x10:=10*x;x30:=30*x;x50:=50*x;x70:=70*x;x100:=100*x;
if a>0 and a<=x5 then begin b5:=b5+a;d5:=d5+1;e5:=e5+V;if sel0=1 then begin p1:=p1+v;p2:=p2+1;bp1:=bp1+a;end;end;if a>x5 and a<=x10 then begin b10:=b10+a;d10:=d10+1; e10:=e10+v;if sel0=1 then begin p3:=p3+v;p4:=p4+1;bp3:=bp3+a;end;end;if b>0 and b<=x5 then begin s5:=s5+b;r5:=r5+1;t5:=t5+v;if buy0=1 then begin q1:=q1+v;q2:=q2+1;sq1:=sq1+b;end;end;if b>x5 and b<=x10 then begin s10:=s10+b;r10:=r10+1;t10:=t10+v;if buy0=1 then begin q3:=q3+v;q4:=q4+1;sq3:=sq3+b;end;end;
if a>x10 and a<=x30 then begin b30:=b30+a;d30:=d30+1; e30:=e30+v;if sel0=1 then begin p5:=p5+v;p6:=p6+1;bp5:=bp5+a;end;end;if a>x30 and a<=x50 then begin b50:=b50+a;d50:=d50+1; e50:=e50+v;if sel0=1 then begin p7:=p7+v;p8:=p8+1;bp7:=bp7+a;end;end;if b>x10 and b<=x30 then begin s30:=s30+b;r30:=r30+1;t30:=t30+v;if buy0=1 then begin q5:=q5+v;q6:=q6+1;sq5:=sq5+b;end;end;if b>x30 and b<=x50 then begin s50:=s50+b;r50:=r50+1;t50:=t50+v;
if buy0=1 then begin q7:=q7+v;q8:=q8+1;sq7:=sq7+b;end;end;if a>x50 and a<=x70 then begin b70:=b70+a;d70:=d70+1; e70:=e70+v;if sel0=1 then begin p9:=p9+v;p10:=p10+1;bp9:=bp9+a;end;end;if b>x50 and b<=x70 then begin s70:=s70+b;r70:=r70+1;t70:=t70+v;if buy0=1 then begin q9:=q9+v;q10:=q10+1;sq9:=sq9+b;end;end;if b>x70 and b<=x100 then begin s100:=s100+b;r100:=r100+1;t100:=t100+v;if buy0=1 then begin q11:=q11+v;q12:=q12+1;sq11:=sq11+b;end;end;
if a>x70 and a<=x100 then begin b100:=b100+a;d100:=d100+1; e100:=e100+v;if sel0=1 then begin p11:=p11+v;p12:=p12+1;bp11:=bp11+a;end;end;if a>x100 then begin b150:=b150+a;d150:=d150+1;e150:=e150+v;if sel0=1 then begin p13:=p13+v;p14:=p14+1;bp13:=bp13+a;end;end;if b>x100 then begin s150:=s150+b;r150:=r150+1;t150:=t150+v;if buy0=1 then begin q13:=q13+v;q14:=q14+1;sq13:=sq13+b;end;end;
if dw=1then begin
z:=ze;xe1:=b5;xe2:=b10;xe3:=b30;xe4:=b50;xe5:=b70;xe6:=b100;xe7:=b150;yt1:=s5;yt2:=s10;yt3:=s30;yt4:=s50;yt5:=s70;yt6:=s100;yt7:=s150;
end
else begin
z:=zl;xe1:=e5;xe2:=e10;xe3:=e30;xe4:=e50;xe5:=e70;xe6:=e100;xe7:=e150;yt1:=t5;yt2:=t10;yt3:=t30;yt4:=t50;yt5:=t70;yt6:=t100;yt7:=t150;
end;
if n>=0 then begin n5:=1;n10:=1;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x5 then begin n5:=0;n10:=1;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x10 then begin n5:=0;n10:=0;n30:=1;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x30 then begin n5:=0;n10:=0;n30:=0;n50:=1;n70:=1;n100:=1;n150:=1;end;if n>=x50 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=1;n100:=1;n150:=1;end;if n>=x70 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=0;n100:=1;n150:=1;end;if n>=x100 then begin n5:=0;n10:=0;n30:=0;n50:=0;n70:=0;n100:=0;n150:=1;end;
if n5=0 then begin
IF BARSTATUS=2 and (xe1) THEN BEGIN DRAWTEXTREL(0,100, '≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe1,dw)+'/'+NUMTOSTRN(d5,0)+'笔(均'+NUMTOSTRN(xe1/d5,dw)+')/价'+NUMTOSTRN(b5/e5*100,2)+'/'+NUMTOSTRN(xe1/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe1) THEN BEGIN DRAWTEXTREL(0,100, '≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe1,dw)+'/'+NUMTOSTRN(d5,0)+'笔(均'+NUMTOSTRN(xe1/d5,dw)+')/价'+NUMTOSTRN(b5/e5*100,2)+'/'+NUMTOSTRN(xe1/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n5=0 then begin
IF BARSTATUS=2 and (yt1) THEN BEGIN DRAWTEXTREL(400,100,'≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt1,dw)+'/'+NUMTOSTRN(r5,0)+'笔(均'+NUMTOSTRN(yt1/r5,dw)+')/价'+NUMTOSTRN(s5/t5*100,2)+'/'+NUMTOSTRN(yt1/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt1) THEN BEGIN DRAWTEXTREL(400,100,'≤ 5 万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt1,dw)+'/'+NUMTOSTRN(r5,0)+'笔(均'+NUMTOSTRN(yt1/r5,dw)+')/价'+NUMTOSTRN(s5/t5*100,2)+'/'+NUMTOSTRN(yt1/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n10=0 then begin
IF BARSTATUS=2 and (xe2) THEN BEGIN DRAWTEXTREL(0,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe2,dw)+'/'+NUMTOSTRN(d10,0)+'笔(均'+NUMTOSTRN(xe2/d10,dw)+')/价'+NUMTOSTRN(b10/e10*100,2)+'/'+NUMTOSTRN(xe2/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe2) THEN BEGIN DRAWTEXTREL(0,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe2,dw)+'/'+NUMTOSTRN(d10,0)+'笔(均'+NUMTOSTRN(xe2/d10,dw)+')/价'+NUMTOSTRN(b10/e10*100,2)+'/'+NUMTOSTRN(xe2/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n10=0 then begin
IF BARSTATUS=2 and (yt2) THEN BEGIN DRAWTEXTREL(400,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt2,dw)+'/'+NUMTOSTRN(r10,0)+'笔(均'+NUMTOSTRN(yt2/r10,dw)+')/价'+NUMTOSTRN(s10/t10*100,2)+'/'+NUMTOSTRN(yt2/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt2) THEN BEGIN DRAWTEXTREL(400,195,'≤ 10万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt2,dw)+'/'+NUMTOSTRN(r10,0)+'笔(均'+NUMTOSTRN(yt2/r10,dw)+')/价'+NUMTOSTRN(s10/t10*100,2)+'/'+NUMTOSTRN(yt2/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n30=0 then begin
IF BARSTATUS=2 and (xe3) THEN BEGIN DRAWTEXTREL(0,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe3,dw)+'/'+NUMTOSTRN(d30,0)+'笔(均'+NUMTOSTRN(xe3/d30,dw)+')/价'+NUMTOSTRN(b30/e30*100,2)+'/'+NUMTOSTRN(xe3/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe3) THEN BEGIN DRAWTEXTREL(0,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe3,dw)+'/'+NUMTOSTRN(d30,0)+'笔(均'+NUMTOSTRN(xe3/d30,dw)+')/价'+NUMTOSTRN(b30/e30*100,2)+'/'+NUMTOSTRN(xe3/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n30=0 then begin
IF BARSTATUS=2 and (yt3) THEN BEGIN DRAWTEXTREL(400,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt3,dw)+'/'+NUMTOSTRN(r30,0)+'笔(均'+NUMTOSTRN(yt3/r30,dw)+')/价'+NUMTOSTRN(s30/t30*100,2)+'/'+NUMTOSTRN(yt3/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt3) THEN BEGIN DRAWTEXTREL(400,290,'≤ 30万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt3,dw)+'/'+NUMTOSTRN(r30,0)+'笔(均'+NUMTOSTRN(yt3/r30,dw)+')/价'+NUMTOSTRN(s30/t30*100,2)+'/'+NUMTOSTRN(yt3/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n50=0 then begin
IF BARSTATUS=2 and (xe4) THEN BEGIN DRAWTEXTREL(0,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe4,dw)+'/'+NUMTOSTRN(d50,0)+'笔(均'+NUMTOSTRN(xe4/d50,dw)+')/价'+NUMTOSTRN(b50/e50*100,2)+'/'+NUMTOSTRN(xe4/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe4) THEN BEGIN DRAWTEXTREL(0,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe4,dw)+'/'+NUMTOSTRN(d50,0)+'笔(均'+NUMTOSTRN(xe4/d50,dw)+')/价'+NUMTOSTRN(b50/e50*100,2)+'/'+NUMTOSTRN(xe4/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n70=0 then begin
IF BARSTATUS=2 and (xe5) THEN BEGIN DRAWTEXTREL(0,480, '≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe5,dw)+'/'+NUMTOSTRN(d70,0)+'笔(均'+NUMTOSTRN(xe5/d70,dw)+')/价'+NUMTOSTRN(b70/e70*100,2)+'/'+NUMTOSTRN(xe5/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe5) THEN BEGIN DRAWTEXTREL(0,480, '≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe5,dw)+'/'+NUMTOSTRN(d70,0)+'笔(均'+NUMTOSTRN(xe5/d70,dw)+')/价'+NUMTOSTRN(b70/e70*100,2)+'/'+NUMTOSTRN(xe5/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n100=0 then begin
IF BARSTATUS=2 and (xe6) THEN BEGIN DRAWTEXTREL(0,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe6,dw)+'/'+NUMTOSTRN(d100,0)+'笔(均'+NUMTOSTRN(xe6/d100,dw)+')/价'+NUMTOSTRN(b100/e100*100,2)+'/'+NUMTOSTRN(xe6/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe6) THEN BEGIN DRAWTEXTREL(0,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe6,dw)+'/'+NUMTOSTRN(d100,0)+'笔(均'+NUMTOSTRN(xe6/d100,dw)+')/价'+NUMTOSTRN(b100/e100*100,2)+'/'+NUMTOSTRN(xe6/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n150=0 then begin
IF BARSTATUS=2 and (xe7) THEN BEGIN DRAWTEXTREL(0,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe7,dw)+'/'+NUMTOSTRN(d150,0)+'笔(均'+NUMTOSTRN(xe7/d150,dw)+')/价'+NUMTOSTRN(b150/e150*100,2)+'/'+NUMTOSTRN(xe7/z*100,2)+'%'),LINETHICK1,COLORFF00FF;end;
end
else begin
IF BARSTATUS=2 and (xe7) THEN BEGIN DRAWTEXTREL(0,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(xe7,dw)+'/'+NUMTOSTRN(d150,0)+'笔(均'+NUMTOSTRN(xe7/d150,dw)+')/价'+NUMTOSTRN(b150/e150*100,2)+'/'+NUMTOSTRN(xe7/z*100,2)+'%'),LINETHICK1,COLORred;end;
end;
if n50=0 then begin
IF BARSTATUS=2 and (yt4) THEN BEGIN DRAWTEXTREL(400,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt4,dw)+'/'+NUMTOSTRN(r50,0)+'笔(均'+NUMTOSTRN(yt4/r50,dw)+')/价'+NUMTOSTRN(s50/t50*100,2)+'/'+NUMTOSTRN(yt4/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt4) THEN BEGIN DRAWTEXTREL(400,385,'≤ 50万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt4,dw)+'/'+NUMTOSTRN(r50,0)+'笔(均'+NUMTOSTRN(yt4/r50,dw)+')/价'+NUMTOSTRN(s50/t50*100,2)+'/'+NUMTOSTRN(yt4/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n70=0 then begin
IF BARSTATUS=2 and (yt5) THEN BEGIN DRAWTEXTREL(400,480,'≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt5,dw)+'/'+NUMTOSTRN(r70,0)+'笔(均'+NUMTOSTRN(yt5/r70,dw)+')/价'+NUMTOSTRN(s70/t70*100,2)+'/'+NUMTOSTRN(yt5/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt5) THEN BEGIN DRAWTEXTREL(400,480,'≤ 70万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt5,dw)+'/'+NUMTOSTRN(r70,0)+'笔(均'+NUMTOSTRN(yt5/r70,dw)+')/价'+NUMTOSTRN(s70/t70*100,2)+'/'+NUMTOSTRN(yt5/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n100=0 then begin
IF BARSTATUS=2 and (yt6) THEN BEGIN DRAWTEXTREL(400,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt6,dw)+'/'+NUMTOSTRN(r100,0)+'笔(均'+NUMTOSTRN(yt6/r100,dw)+')/价'+NUMTOSTRN(s100/t100*100,2)+'/'+NUMTOSTRN(yt6/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt6) THEN BEGIN DRAWTEXTREL(400,575,'≤100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt6,dw)+'/'+NUMTOSTRN(r100,0)+'笔(均'+NUMTOSTRN(yt6/r100,dw)+')/价'+NUMTOSTRN(s100/t100*100,2)+'/'+NUMTOSTRN(yt6/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
if n150=0 then begin
IF BARSTATUS=2 and (yt7) THEN BEGIN DRAWTEXTREL(400,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt7,dw)+'/'+NUMTOSTRN(r150,0)+'笔(均'+NUMTOSTRN(yt7/r150,dw)+')/价'+NUMTOSTRN(s150/t150*100,2)+'/'+NUMTOSTRN(yt7/z*100,2)+'%'),LINETHICK1,COLOR008000;end;
end
else begin
IF BARSTATUS=2 and (yt7) THEN BEGIN DRAWTEXTREL(400,670,'＞100万x'+NUMTOSTRN(x,0)+':'+NUMTOSTRN(yt7,dw)+'/'+NUMTOSTRN(r150,0)+'笔(均'+NUMTOSTRN(yt7/r150,0)+')/价'+NUMTOSTRN(s150/t150*100,2)+'/'+NUMTOSTRN(yt7/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
l5:=e5-t5;l10:=e10-t10;l30:=e30-t30;l50:=e50-t50;l70:=e70-t70;l100:=e100-t100;l150:=e150-t150;j5:=b5-s5;j10:=b10-s10;j30:=b30-s30;j50:=b50-s50;j70:=b70-s70;j100:=b100-s100;j150:=b150-s150;if dw=1 then begin jl1:=j5;jl2:=j10;jl3:=j30;jl4:=j50;jl5:=j70;jl6:=j100;jl7:=j150;end;if dw=0 then begin jl1:=l5;jl2:=l10;jl3:=l30;jl4:=l50;jl5:=l70;jl6:=l100;jl7:=l150;end;
IF jL1>0 THEN m5:=840; ELSE m5:=834;IF jL2>0 THEN m10:=840; ELSE m10:=834;IF jL3>0 THEN m30:=840; ELSE m30:=834;IF jL4>0 THEN m50:=840; ELSE m50:=834;IF jL5>0 THEN m70:=840; ELSE m70:=834;IF jL6>0 THEN m100:=840; ELSE m100:=834;IF jL7>0 THEN m150:=840; ELSE m150:=834;IF BARSTATUS=2 and (jl1) THEN BEGIN DRAWTEXTREL(m5,100,NUMTOSTRN(jl1,dw)+'/'+NUMTOSTRN(jl1/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl2) THEN BEGIN DRAWTEXTREL(m10,195,NUMTOSTRN(jl2,dw)+'/'+NUMTOSTRN(jl2/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (jl7) THEN BEGIN DRAWTEXTREL(m150,670,NUMTOSTRN(jl7,dw)+'/'+NUMTOSTRN(jl7/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;if dw=1{www.gszb.com1-万元} then begin al1:=bz;bl1:=sz;cl1:=cz;end;if dw=0{www.gszb.com0-手} then begin al1:=al;bl1:=bl;cl1:=cl;end;IF BARSTATUS=2 and (al1) THEN BEGIN DRAWTEXTREL(00,765,'■买总计：'+NUMTOSTRN(al1,dw)+'/'+NUMTOSTRN(d,0)+'笔(均'+NUMTOSTRN(al1/d,dw)+')/ 占'+NUMTOSTRN(al1/z*100,2)+'%'),LINETHICK1,Coloryellow;end;
IF BARSTATUS=2 and (jl3) THEN BEGIN DRAWTEXTREL(m30,290,NUMTOSTRN(jl3,dw)+'/'+NUMTOSTRN(jl3/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl4) THEN BEGIN DRAWTEXTREL(m50,385,NUMTOSTRN(jl4,dw)+'/'+NUMTOSTRN(jl4/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl5) THEN BEGIN DRAWTEXTREL(m70,480,NUMTOSTRN(jl5,dw)+'/'+NUMTOSTRN(jl5/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;IF BARSTATUS=2 and (jl6) THEN BEGIN DRAWTEXTREL(m100,575,NUMTOSTRN(jl6,dw)+'/'+NUMTOSTRN(jl6/z*100,2)+'%'),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (bl1) THEN BEGIN DRAWTEXTREL(400,765,'□卖总计：'+NUMTOSTRN(bl1,dw)+'/'+NUMTOSTRN(r,0)+'笔(均'+NUMTOSTRN(bl1/r,dw)+')/ 占'+NUMTOSTRN(bl1/z*100,2)+'%'),LINETHICK1,Coloryellow;end;IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(820,765,'净买总计:'),LINETHICK1,Coloryellow;end;
if cl>0 then begin
IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(885,765,NUMTOSTRN(cl1,dw)+'/'+NUMTOSTRN(cl1/z*100,2)+'%'),LINETHICK1,COLORred;end;
end
else begin
IF BARSTATUS=2 and (cl1) THEN BEGIN DRAWTEXTREL(885,765,NUMTOSTRN(cl1,dw)+'/'+NUMTOSTRN(cl1/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
st:=STRCMP('s',STKNAME);if st=1 then begin k:=5;end;if st=-1 or (st=1 and DYNAINFO(14)*100>9.96) then begin k:=10;end;bv01:=DYNAINFO(3)*(1+k/100)*100;dbv0:=if (FRACPART(bv01)>=0.5,(INTPART(bv01)+1)/100,INTPART(bv01)/100);zt:=if(BUYVOL and c=dbv0,1,0);sv01:=DYNAINFO(3)*(1-k/100)*100;dsv0:=if (FRACPART(sv01)>=0.5,(INTPART(sv01)+1)/100,INTPART(sv01)/100);dt:=if(SELLVOL and c=dsv0,1,0);
if a>n then begin db0:=db0+a;db1:=db1+v;db2:=db2+1; end;if a>n and zt=1 then begin db30:=db30+a;db3:=db3+v;db4:=db4+1;end;if a>n and sel0=1 then begin db50:=db50+a;db5:=db5+v;db6:=db6+1;end;if b>n then begin ds0:=ds0+b;ds1:=ds1+v;ds2:=ds2+1;end;if b>n and dt=1 then begin ds30:=ds30+b;ds3:=ds3+v;ds4:=ds4+1; end;if b>n and buy0=1 then begin ds50:=ds50+b;ds5:=ds5+v;ds6:=ds6+1;end;
if dw=1 then begin
总:=DYNAINFO(10)/10000;
if n=30*x then begin
db:=b50+b70+b100+b150;sb:=b5+b10+b30;ds:=s50+s70+s100+s150;ss:=s5+s10+s30;
end
else begin
db:=db0;ds:=ds0;sb:=bz-db0;ss:=sz-ds0;
end;
end
else begin
总:=DYNAINFO( 8);
if n=30*x then begin
db:=e50+e70+e100+e150;sb:=e5+e10+e30;ds:=t50+t70+t100+t150;ss:=t5+t10+t30;
end
else begin
db:=db1;ds:=ds1;sb:=al-db1;ss:=bl-ds1;
end;
end;
STICKLINE((z AND DISPSTATUS=2),0,z,35,1),colorCCCCCC;STICKLINE((db+ds+sb+ss AND DISPSTATUS=2),0,总,30,0),COLOR008000;STICKLINE((db+ds+sb AND DISPSTATUS=2),0,db+ds+sb,30,0),colorFF00FF;STICKLINE((db+ds AND BARSTATUS=2),0,db+ds,30,0),color00FF00;STICKLINE((db AND BARSTATUS=2),0,db,30,0),color5050FF;if dy=0 then begin yw:=0;end;if dy=1 then begin yw:=47;end;
if dw=1 then begin
xp1:=bp1;xp3:=bp3;xp5:=bp5;xp7:=bp7;xp9:=bp9;xp11:=bp11;xp13:=bp13;yq1:=sq1;yq3:=sq3;yq5:=sq5;yq7:=sq7;yq9:=sq9;yq11:=sq11;yq13:=sq13;
end
else begin
xp1:=p1;xp3:=p3;xp5:=p5;xp7:=p7;xp9:=p9;xp11:=p11;xp13:=p13;yq1:=q1;yq3:=q3;yq5:=q5;yq7:=q7;yq9:=q9;yq11:=q11;yq13:=q13;
end;
p:=p2+p4+p6+p8+p10+p12+p14;q:=q2+q4+q6+q8+q10+q12+q14;xp0:=xp1+xp3+xp5+xp7+xp9+xp11+xp13;yq0:=yq1+yq3+yq5+yq7+yq9+yq11+yq13;p0:=p1+p3+p5+p7+p9+p11+p13;q0:=q1+q3+q5+q7+q9+q11+q13;
if m<>1{www.gszb.comm=0 or m=2} then begin
IF BARSTATUS=2 and (p2) THEN BEGIN DRAWTEXTREL(330,100-yw,'/'+NUMTOSTRN(xp1,dw)+'('+NUMTOSTRN(p2,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p4) THEN BEGIN DRAWTEXTREL(330,195-yw,'/'+NUMTOSTRN(xp3,dw)+'('+NUMTOSTRN(p4,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p6) THEN BEGIN DRAWTEXTREL(330,290-yw,'/'+NUMTOSTRN(xp5,dw)+'('+NUMTOSTRN(p6,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p8) THEN BEGIN DRAWTEXTREL(330,385-yw,'/'+NUMTOSTRN(xp7,dw)+'('+NUMTOSTRN(p8,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p10) THEN BEGIN DRAWTEXTREL(330,480-yw,'/'+NUMTOSTRN(xp9,dw)+'('+NUMTOSTRN(p10,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p12) THEN BEGIN DRAWTEXTREL(330,575-yw,'/'+NUMTOSTRN(xp11,dw)+'('+NUMTOSTRN(p12,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (p14) THEN BEGIN DRAWTEXTREL(330,670-yw,'/'+NUMTOSTRN(xp13,dw)+'('+NUMTOSTRN(p14,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (p) THEN BEGIN DRAWTEXTREL(330,765-yw,'/'+NUMTOSTRN(xp0/z*100,2)+'%('+NUMTOSTRN(p,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q2) THEN BEGIN DRAWTEXTREL(740,100-yw,'/'+NUMTOSTRN(yq1,dw)+'('+NUMTOSTRN(q2,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q4) THEN BEGIN DRAWTEXTREL(740,195-yw,'/'+NUMTOSTRN(yq3,dw)+'('+NUMTOSTRN(q4,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q6) THEN BEGIN DRAWTEXTREL(740,290-yw,'/'+NUMTOSTRN(yq5,dw)+'('+NUMTOSTRN(q6,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q8) THEN BEGIN DRAWTEXTREL(740,385-yw,'/'+NUMTOSTRN(yq7,dw)+'('+NUMTOSTRN(q8,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q10) THEN BEGIN DRAWTEXTREL(740,480-yw,'/'+NUMTOSTRN(yq9,dw)+'('+NUMTOSTRN(q10,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q12) THEN BEGIN DRAWTEXTREL(740,575-yw,'/'+NUMTOSTRN(yq11,dw)+'('+NUMTOSTRN(q12,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (q14) THEN BEGIN DRAWTEXTREL(740,670-yw,'/'+NUMTOSTRN(yq13,dw)+'('+NUMTOSTRN(q14,0)+')'),LINETHICK1,COLORwhite;end;IF BARSTATUS=2 and (q) THEN BEGIN DRAWTEXTREL(740,765-yw,'/'+NUMTOSTRN(yq0/z*100,2)+'%('+NUMTOSTRN(q,0)+')'),LINETHICK1,COLORwhite;end;
end;
IF m<>2{www.gszb.comm=0 or m=1} THEN BEGIN
if dw=1 then begin xdb1:=db0;xds1:=ds0;end;if dw=0 then begin xdb1:=db1;xds1:=ds1;end;
IF BARSTATUS=2 and (db1) THEN BEGIN DRAWTEXTREL(0,955,'总＞'+NUMTOSTRN(n,0)+'万:'+NUMTOSTRN(xdb1,dw)+'/'+NUMTOSTRN(db2,0)+'笔(均'+NUMTOSTRN(xdb1/db2,dw)+')/价'+NUMTOSTRN(db0/db1*100,2)+'/'+NUMTOSTRN(xdb1/z*100,2)+'%'),LINETHICK1,color5050FF;end;
IF BARSTATUS=2 and (ds1) THEN BEGIN DRAWTEXTREL(400,955,'总＞'+NUMTOSTRN(n,0)+'万:'+NUMTOSTRN(xds1,dw)+'/'+NUMTOSTRN(ds2,0)+'笔(均'+NUMTOSTRN(xds1/ds2,dw)+')/价'+NUMTOSTRN(ds0/ds1*100,2)+'/'+NUMTOSTRN(xds1/z*100,2)+'%'),LINETHICK1,color00FF00;end;
if db1-ds1>0 then begin
IF BARSTATUS=2 and (xdb1-xds1) THEN BEGIN DRAWTEXTREL(820,955,'差:'+NUMTOSTRN((xdb1-xds1),dw)+'/'+NUMTOSTRN((xdb1-xds1)/z*100,2)+'%'),LINETHICK1,COLORred;end;
end
else begin
IF BARSTATUS=2 and (xdb1-xds1) THEN BEGIN DRAWTEXTREL(820,955,'差:'+NUMTOSTRN((xdb1-xds1),dw)+'/'+NUMTOSTRN((xdb1-xds1)/z*100,2)+'%'),LINETHICK1,COLORgreen;end;
end;
end;
if m=0 then begin
if dw=1 then begin xdb5:=db50;xds5:=ds50;end;if dw=0 then begin xdb5:=db5;xds5:=ds5;end;
IF BARSTATUS=2 and (db5) THEN BEGIN DRAWTEXTREL(325,955-yw,'/'+NUMTOSTRN(xdb5/z*100,2)+'%('+NUMTOSTRN(db6,0)+')'),LINETHICK1,COLORwhite;end;
IF BARSTATUS=2 and (ds5) THEN BEGIN DRAWTEXTREL(735,955-yw,'/'+NUMTOSTRN(xds5/z*100,2)+'%('+NUMTOSTRN(ds6,0)+')'),LINETHICK1,COLORwhite;end;
end;
if m=2 then begin
if dw=1 then begin xdb3:=db30;xds3:=ds30;end;if dw=0 then begin xdb3:=db3;xds3:=ds3;end;
IF BARSTATUS=2 and (db3) THEN BEGIN DRAWTEXTREL(0,955,'◇涨停'+NUMTOSTRN(k,0)+'%＞'+NUMTOSTRN(n,0)+'万单:'+NUMTOSTRN(xdb3,dw)+'/'+NUMTOSTRN(db4,0)+'笔(均'+NUMTOSTRN(xdb3/db4,0)+')/'+NUMTOSTRN(xdb3/z*100,2)+'%/换手'+NUMTOSTRN(db3*100/capital,2)+'%'),LINETHICK1,color00FF00;end;
IF BARSTATUS=2 and (ds3) THEN BEGIN DRAWTEXTREL(400,955,'◇跌停'+NUMTOSTRN(k,0)+'%＞'+NUMTOSTRN(n,0)+'万单:'+NUMTOSTRN(xds3,dw)+'/'+NUMTOSTRN(ds4,0)+'笔(均'+NUMTOSTRN(xds3/ds4,0)+')/'+NUMTOSTRN(xds3/z*100,2)+'%/换手'+NUMTOSTRN(ds3*100/capital,2)+'%'),LINETHICK1,color5050FF;end;
end;
if m<>1 then begin
if dw=1 then begin xdb3:=db30;xds3:=ds30;xdb5:=db50;xds5:=ds50;end;if dw=0{www.gszb.com0-手} then begin xdb3:=db3;xds3:=ds3;xdb5:=db5;xds5:=ds5;end;STICKLINE((xdb3 AND BARSTATUS=2),0,xdb3,15,0),COLORgreen;STICKLINE((xds3 AND BARSTATUS=2),db,db+xds3,15,0),COLORred;
STICKLINE((xdb5 AND BARSTATUS=2),0,xdb5,5,0),COLORwhite;STICKLINE((xds5 AND BARSTATUS=2),db,db+xds5,5,0),COLORwhite;
end;
if dw=1 then begin
if n=30*x then begin
ld:=j50+j70+j100+j150;lx:=j5+j10+j30;
end
else begin
ld:=db0-ds0;lx:=(bz-db0)-(sz-ds0);
end;
xcl:=cz;总成交:='总成交额:';
end
else begin
if n=30*x then begin
ld:=l50+l70+l100+l150;lx:=l5+l10+l30;
end
else begin
ld:=db1-ds1;lx:=(al-db1)-(bl-ds1);
end;
xcl:=cl;总成交:='总成交量:';
end;
总量:=DYNAINFO(8);
IF BARSTATUS=2 and (xcl/z) THEN BEGIN
DRAWTEXTREL(0,860,'▲总分析：净买:'+NUMTOSTRN(xcl/z*100,2)+'%(大单'+NUMTOSTRN(ld/z*100,2)+'%/小单'+NUMTOSTRN(lx/z*100,2)+'%)'),LINETHICK1,ColorFFFF80;
IF BARSTATUS=2 and ((xp0+yq0)/z*100) THEN BEGIN DRAWTEXTREL(400,860,'△总对倒：'+NUMTOSTRN((xp0+yq0)/z*100,2)+'%(共'+NUMTOSTRN((p+q),0)+'笔)'),LINETHICK1,ColorFFFF80;end;
DRAWTEXTREL(610,860,'总换手:'+NUMTOSTRN(100*总量/capital,2)+'%(倒'+NUMTOSTRN(100*(p0+q0)/capital,2)+'%)'),LINETHICK1,ColorFFFF80;end;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(820,860,总成交+NUMTOSTRN(z,dw)),LINETHICK1,ColorFFFF80;end;