|
楼主 |
发表于 2006-4-24 21:54
|
显示全部楼层
回复:(aspen)回复:(wwhbluesun)请问关于特征系统...
本帖最后由 VibInfo 于 2016-4-22 15:03 编辑
希望你能帮帮我
function [Lam,Psi] = ERA(h,Ni,pr,pc,Fs)
% h 脉冲响应函数(由连续系统仿真得到) , Ni 激励点数
% h 排列方式:
% |1,...,No|1,...,No| ... |1,...,No|
% 1, 2, ... Ni
%
% pr 行数(\alpha); pc列数(\beta); Fs 采样频率
[row, col] = size(h);
No = col/Ni;
H0 = zeros(No*pr,Ni*pc); H1 = H0;
for kc = 1 : pc
for kr = 1:pr
H0( (kr-1)*No+1 : kr*No ,(kc-1)*Ni+1 : kc*Ni ) = reshape( h(kr+kc-1,:),No,Ni );
H1( (kr-1)*No+1 : kr*No ,(kc-1)*Ni+1 : kc*Ni ) = reshape( h(kr+kc+1,:),No,Ni );
end
end
[U,S,V] = svd(H0,0);
dS = diag(S); r = find(dS > 1e-10); dS = dS(r);
%[ro,co] = size(S); ldS = length(dS);
%Ss = [diag(dS.^(-0.5)), zeros(ldS,co-ldS); zeros(ro-ldS,co)];
Ss = diag(dS.^(-0.5));
U = U(:,r); V = V(:,r);
A1 = Ss * U' * H1 * V * Ss;
[V,D] = eig(A1,'nobalance');
D = diag(D);
Lam = log(D) * Fs ; % /2 ?????
|
|