复制内容到剪贴板
代码:
if datatype>0 then exit; //公式只在分笔下运行
fv:=vol;
fc:close; //经过以下代码处理,分笔价从小到大排列
pc:=close;
a:=sortpos(pc,0,1,datacount); //分笔成交价位置排序
vv:vol,linethick0; //经过下面代码处理,使这里输出的成交量跟分笔价对应
c_day:="日线.fc#day"; //当日收盘价
o_day:="日线.fo#day"; //当日开盘价
j_max:max(c_day,o_day);
j_min:min(c_day,o_day);
for i=1 to datacount do //使成交量跟大小重排后的分笔价对应
vv[i]:=fv[pc[i]];
a:=sort(fc,0,1,datacount); //分笔价从小到大排列
vstem:=sum(vv*(fc>j_max),0);
上影量:vstem[datacount],linethick0;
vxtem:=sum(vv*(fc<j_min),0);
下影量:vxtem[datacount],linethick0;