主力散户资金统计
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; |