obv.m

对金融数据（股票

function b=obv(x,y,z)
%---计算obv能量潮b，其中x为股价序列，y为成交量序列；
x_length=length(x);
b(1)=0;
for i=2:x_length
    if x(i)>x(i-1)
        b(i)=b(i-1)+y(i);
    else if x(i)<x(i-1)
            b(i)=b(i-1)-y(i);
    else b(i)=b(i-1);
    end
end
end