la:=ubound(vc);
vc[0]:=(vh[0]+vl[0]+2*vc[0])/4;
for i=1 to la do begin
vo[i]:=(vo[i-1]+vc[i-1])/2 ;
if vo[i]>vh[i] then vh[i]:=vo[i]; else vh[i]:=vh[i];
if vo[i]<vl[i] then vl[i]:=vo[i]; else vl[i]:=vl[i];
vc[i]:=(2*vc[i]+vh[i]+vl[i])/4;
end;
ubound
别名: 序列上界
所属类别: 常数函数 参数数量: 1
序列最大下标。
用法:
UBOUND(X)，返回序列的上界(最大下标)
会在下个版本支持。
暂时你可以用DATACOUNT替代