主力散户资金统计 
GBC:=系统参数(1)-系统参数(2); 
 
a:=主动性买单*收盘价/100; 
bz:=求和(a,GBC);//主动买盘累计成交金額 
b:=收盘价*主动性卖单/100; 
sz:=求和(b,GBC);//主动卖盘累计成交金額 
z:=bz+sz;//成交总额 
cz:=bz-sz;//主动买盘与主动卖盘成交总额差值 
xb5:=条件函数(a<=5  ,a,0); 
b5:=求和(xb5,GBC);//统计每笔小于等于5万的主动买盘成交额 
xs5:=条件函数(b<=5  ,b,0); 
s5:=求和(xs5,GBC);//统计每笔小于等于5万的主动卖盘成交额 
xb10:=条件函数(a<=10 and a>=5 ,a,0);b10:=求和(xb10,GBC); 
xs10:=条件函数(b<=10 and b>=5,b,0);s10:=求和(xs10,GBC); 
xb30:=条件函数(a<=30 and a>=10 ,a,0);b30:=求和(xb30,GBC); 
xs30:=条件函数(b<=30 and b>=10 ,b,0);s30:=求和(xs30,GBC); 
xb50:=条件函数(a<=50 and a>=30 ,a,0);b50:=求和(xb50,GBC); 
xs50:=条件函数(b<=50 and b>=30 ,b,0);s50:=求和(xs50,GBC); 
xb70:=条件函数(a<=70 and a>=50 ,a,0);b70:=求和(xb70,GBC); 
xs70:=条件函数(b<=70 and b>=50 ,b,0);s70:=求和(xs70,GBC); 
xb100:=条件函数(a<=100 and a>=70,a,0);b100:=求和(xb100,GBC); 
xs100:=条件函数(b<=100 and b>=70,b,0);s100:=求和(xs100,GBC); 
xb150:=条件函数(a>=100 ,a,0);b150:=求和(xb150,GBC); 
xs150:=条件函数(b>=100 ,b,0);s150:=求和(xs150,GBC); 
j5:=b5-s5;-100,colorblack; 
j10:=b10-s10; 
j30:=b30-s30; 
j50:=b50-s50; 
j70:=b70-s70; 
j100:=b100-s100; 
j150:=b150-s150; 
 
显示文字(数据位置=系统参数(2),800,' ■■■■总成金額(万元):'+数字转化为字符串(z,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),800,'                  ■■买入占:'+数字转化为字符串(bz/z*100,2)),LINETHICK1,COLOrred; 
显示文字(数据位置=系统参数(2),800,'                                     ■■卖出占:'+数字转化为字符串(sz/z*100,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),700,' ■■■■■买入:'+数字转化为字符串(bz,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),700,'                  ■■■■■卖出:'+数字转化为字符串(sz,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),700,'                                    净买入:'+数字转化为字符串(cz,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),600,'5 万大单买入:'+数字转化为字符串(b5,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),600,'                  5 万大单卖出:'+数字转化为字符串(s5,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),600,'                                    净买入'+数字转化为字符串(j5,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),500,'10 万大单买入:'+数字转化为字符串(b10,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),500,'                  10 万大单卖出:'+数字转化为字符串(s10,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),500,'                                    净买入'+数字转化为字符串(j10,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),400,'30 万大单买入:'+数字转化为字符串(b30,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),400,'                  30 万大单卖出:'+数字转化为字符串(s30,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),400,'                                    净买入'+数字转化为字符串(j30,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),300,'50 万大单买入:'+数字转化为字符串(b50,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),300,'                  50 万大单卖出:'+数字转化为字符串(s50,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),300,'                                    净买入'+数字转化为字符串(j50,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),200,'70 万大单买入:'+数字转化为字符串(b70,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),200,'                  70 万大单卖出:'+数字转化为字符串(s70,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),200,'                                    净买入'+数字转化为字符串(j70,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),100,'100 万大单买入:'+数字转化为字符串(b100,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),100,'                  100 万大单卖出:'+数字转化为字符串(s100,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),100,'                                    净买入'+数字转化为字符串(j100,2)),LINETHICK1,COLORccffcc; 
显示文字(数据位置=系统参数(2),10,'150 万大单买入:'+数字转化为字符串(b150,2)),LINETHICK1,COLORred; 
显示文字(数据位置=系统参数(2),10,'                  150 万大单卖出:'+数字转化为字符串(s150,2)),LINETHICK1,COLORgreen; 
显示文字(数据位置=系统参数(2),10,'                                    净买入'+数字转化为字符串(j150,2)),LINETHICK1,COLORccffcc;  |