(150万):=REF((((sum(buyvol*c*(AMOUNT>=1000000),0))+(-sum(sellvol*c*(AMOUNT>=1000000),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(100万):=REF((((sum(buyvol*c*((AMOUNT>=700000)and(AMOUNT<1000000)),0))+(-sum(sellvol*c*((AMOUNT>=700000)and(AMOUNT<1000000)),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(70万):=REF((((sum(buyvol*c*((AMOUNT>=500000)and(AMOUNT<700000)),0))+(-sum(sellvol*c*((AMOUNT>=500000)and(AMOUNT<700000)),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(50万):=REF((((sum(buyvol*c*((AMOUNT>=300000)and(AMOUNT<500000)),0))+(-sum(sellvol*c*((AMOUNT>=300000)and(AMOUNT<500000)),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(30万):=REF((((sum(buyvol*c*((AMOUNT>=100000)and(AMOUNT<300000)),0))+(-sum(sellvol*c*((AMOUNT>=100000)and(AMOUNT<300000)),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(10万):=REF((((sum(buyvol*c*((AMOUNT>=50000)and(AMOUNT<100000)),0))+(-sum(sellvol*c*((AMOUNT>=50000)and(AMOUNT<100000)),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
(5万):=REF((((sum(buyvol*c*(AMOUNT<50000),0))+(-sum(sellvol*c*(AMOUNT<50000),0)))*100/10000),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
总:=(150万)+(100万)+(70万)+(50万)+(30万)+(10万)+(5万); 
IF BARSTATUS=2 and (总) THEN BEGIN DRAWTEXTREL(20,355,'  总净买入:'+NUMTOSTRN(总,2)),LINETHICK1,COLORccffcc;end; 
IF BARSTATUS=2 and ((5万)) THEN BEGIN DRAWTEXTREL(20,480,'  5 万以下大单净买入:'+NUMTOSTRN((5万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((10万)) THEN BEGIN DRAWTEXTREL(20,520,'  5→10 万大单净买入:'+NUMTOSTRN((10万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((30万)) THEN BEGIN DRAWTEXTREL(20,570,' 10→30 万大单净买入:'+NUMTOSTRN((30万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((50万)) THEN BEGIN DRAWTEXTREL(20,620,' 30→50 万大单净买入:'+NUMTOSTRN((50万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((70万)) THEN BEGIN DRAWTEXTREL(20,670,' 50→70 万大单净买入:'+NUMTOSTRN((70万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((100万)) THEN BEGIN DRAWTEXTREL(20,720,'70→100 万大单净买入:'+NUMTOSTRN((100万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((150万)) THEN BEGIN DRAWTEXTREL(20,760,'100 万以上大单净买入:'+NUMTOSTRN((150万),2)),LINETHICK1,COLORred;end; 
DRAWTEXTREL(30,250,' 早盘9:25-11:30统计:'); 
(150v万):=(((sum(buyvol*c*(AMOUNT>=1000000),0))+(-sum(sellvol*c*(AMOUNT>=1000000),0)))*100/10000); 
(100v万):=(((sum(buyvol*c*((AMOUNT>=700000)and(AMOUNT<1000000)),0))+(-sum(sellvol*c*((AMOUNT>=700000)and(AMOUNT<1000000)),0)))*100/10000); 
(70v万):=(((sum(buyvol*c*((AMOUNT>=500000)and(AMOUNT<700000)),0))+(-sum(sellvol*c*((AMOUNT>=500000)and(AMOUNT<700000)),0)))*100/10000); 
(50v万):=(((sum(buyvol*c*((AMOUNT>=300000)and(AMOUNT<500000)),0))+(-sum(sellvol*c*((AMOUNT>=300000)and(AMOUNT<500000)),0)))*100/10000); 
(30v万):=(((sum(buyvol*c*((AMOUNT>=100000)and(AMOUNT<300000)),0))+(-sum(sellvol*c*((AMOUNT>=100000)and(AMOUNT<300000)),0)))*100/10000); 
(10v万):=(((sum(buyvol*c*((AMOUNT>=50000)and(AMOUNT<100000)),0))+(-sum(sellvol*c*((AMOUNT>=50000)and(AMOUNT<100000)),0)))*100/10000); 
(5v万):=(((sum(buyvol*c*(AMOUNT<50000),0))+(-sum(sellvol*c*(AMOUNT<50000),0)))*100/10000); 
v1:=(150v万)-(150万); 
v2:=(100v万)-(100万); 
v3:=(70v万)-(70万); 
v4:=(50v万)-(50万); 
v5:=(30v万)-(30万); 
v6:=(10v万)-(10万); 
v7:=(5v万)-(5万); 
总v:=v1+v2+v3+v4+v5+v6+v7; 
IF BARSTATUS=2 and (总v) THEN BEGIN DRAWTEXTREL(350,355,'‖  总净买入:'+NUMTOSTRN(总v,2)),LINETHICK1,COLORccffcc;end; 
IF BARSTATUS=2 and (v7) THEN BEGIN DRAWTEXTREL(350,480,'‖  5 万以下大单净买入:'+NUMTOSTRN(v7,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v6) THEN BEGIN DRAWTEXTREL(350,520,'‖  5→10 万大单净买入:'+NUMTOSTRN(v6,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v5) THEN BEGIN DRAWTEXTREL(350,570,'‖ 10→30 万大单净买入:'+NUMTOSTRN(v5,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v4) THEN BEGIN DRAWTEXTREL(350,620,'‖ 30→50 万大单净买入:'+NUMTOSTRN(v4,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v3) THEN BEGIN DRAWTEXTREL(350,670,'‖ 50→70 万大单净买入:'+NUMTOSTRN(v3,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v2) THEN BEGIN DRAWTEXTREL(342,720,' ‖70→100 万大单净买入:'+NUMTOSTRN(v2,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (v1) THEN BEGIN DRAWTEXTREL(342,760,' ‖100 万以上大单净买入:'+NUMTOSTRN(v1,2)),LINETHICK1,COLORred;end; 
DRAWTEXTREL(350,250,'‖  午盘13:00-15:00统计:'); 
总vv:=(150v万)+(100v万)+(70v万)+(50v万)+(30v万)+(10v万)+(5v万); 
IF BARSTATUS=2 and (总vv) THEN BEGIN DRAWTEXTREL(680,355,'‖  总净买入:'+NUMTOSTRN(总vv,2)),LINETHICK1,COLORccffcc;end; 
IF BARSTATUS=2 and ((5万)) THEN BEGIN DRAWTEXTREL(680,480,'‖  5 万以下大单净买入:'+NUMTOSTRN((5v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((10v万)) THEN BEGIN DRAWTEXTREL(680,520,'‖  5→10 万大单净买入:'+NUMTOSTRN((10v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((30v万)) THEN BEGIN DRAWTEXTREL(680,570,'‖ 10→30 万大单净买入:'+NUMTOSTRN((30v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((50v万)) THEN BEGIN DRAWTEXTREL(680,620,'‖ 30→50 万大单净买入:'+NUMTOSTRN((50v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((70v万)) THEN BEGIN DRAWTEXTREL(680,670,'‖ 50→70 万大单净买入:'+NUMTOSTRN((70v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((100v万)) THEN BEGIN DRAWTEXTREL(673,720,' ‖70→100 万大单净买入:'+NUMTOSTRN((100v万),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and ((150v万)) THEN BEGIN DRAWTEXTREL(673,760,' ‖100 万以上大单净买入:'+NUMTOSTRN((150v万),2)),LINETHICK1,COLORred;end; 
DRAWTEXTREL(680,250,'‖  全天9:25-15:00统计:'); 
b3:=(sum((c*buyvol)*100/10000,0))-(-sum((c*sellvol)*100/10000,0)); 
IF BARSTATUS=2 and (b3) THEN BEGIN DRAWTEXTREL(10,123,'■总成金額(万元):'+NUMTOSTRN(b3,2)),LINETHICK4,COLORccffcc;end; 
主动买:=sum(c*buyvol,0); 
主动卖:=sum(c*sellvol,0); 
主买均价(元):主动买/sum(buyvol,0),linethick0,colorred; 
主卖均价(元):主动卖/sum(sellvol,0),linethick0,colorgreen; 
总均价(元):(主买均价(元)+主卖均价(元))/2,linethick0,colorwhite; 
IF BARSTATUS=2 and (主买均价(元)) THEN BEGIN DRAWTEXTREL(380,50,' 主买盘均价(元):'+NUMTOSTRN(主买均价(元),2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (主卖均价(元)) THEN BEGIN DRAWTEXTREL(380,100,' 主卖盘均价(元):'+NUMTOSTRN(主卖均价(元),2)),LINETHICK1,COLORgreen;end; 
IF BARSTATUS=2 and (总均价(元)) THEN BEGIN DRAWTEXTREL(380,160,' 总均价(元):'+NUMTOSTRN(总均价(元),2)),LINETHICK1,COLORwhite;end; 
b1:=REF((sum(buyvol,0)),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
s1:=REF((sum(sellvol,0)),BARSLAST(((092500)<TIME)and((113000)>TIME))); 
b2:=sum(buyvol,0); 
s2:=sum(sellvol,0); 
v8:=b2-b1; 
v9:=s2-s1; 
v10:=b1-s1; 
v11:=v8-v9; 
v12:=b2-s2; 
IF BARSTATUS=2 and (b1) THEN BEGIN DRAWTEXTREL(20,820,'  外盘:'+NUMTOSTRN(b1,2)),LINETHICK1,COLORred;end; 
IF BARSTATUS=2 and (s1) THEN BEGIN DRAWTEXTREL(20,862,'  内盘:'+NUMTOSTRN(s1,2)),LINETHICK1,COLORgreen;end; 
IF BARSTATUS=2 and (v10) THEN BEGIN DRAWTEXTREL(20,923,'  外内盘净量:'+NUMTOSTRN(v10,2)  |