obv1.asv

对金融数据（股票

function b=obv1(x,y,z)
%---计算obv1能量潮变化量b，其中x为股价序列，y为成交量序列,z为仓量；
x_length=length(x');

b(1)=0;
    for i=2:x_length
    if x(i)>x(i-1)
        b(i)=y(i)/z(i);
    else if x(i)<x(i-1)
        b(i)=-y(i)/z(i);
    else b(i)=0;
    end
end
end