ssa_get_elementary_vector.m

来自「主成分分析和偏最小二乘SquaresPrincipal成分分析（ PCA ）和偏」· M 代码 · 共 19 行

function Y=ssa_get_elementary_vector(singular_value,U,V,delay);

% last modified 17.03.04

X=singular_value*U*V';
s=size(X);
N=s(2)+(s(1)-1)*delay;

Y=zeros(N,1);
D=Y;
for i=1:s(1)
    Y(1+delay*(i-1):delay*(i-1)+s(2))=Y(1+delay*(i-1):delay*(i-1)+s(2))+X(i,:)';
    D(1+delay*(i-1):delay*(i-1)+s(2))=D(1+delay*(i-1):delay*(i-1)+s(2))+1;
end
Y=Y./D;