本帖最后由 wdhd 于 2016-8-15 10:06 编辑
原帖由 幽幽深谷 于 2007-6-26 22:11 发表
function [fr,damp,v,d0]=ssi2(n1,n2,h,d);
% generate R-matrix from h
[r,c]=size(h);
r(1:c-n1)=0;
for q=1:c-n1;
r(q)=0;
for i=1:n1;
r(q)=h(q+i)*h(i)+r(q);
end;
end;
% g ...
%compuet xi1
clear yf p0 d0 q0 pr dd dr qr
pi=pref(2:r,:);
[p0 d0 q0]=svd(pi);%如果不是为了求取oi-1,这一句有作用么?
xi1=pinv(oi)*pi; |