gramschmidtw.m

来自「Mathematical Methods by Moor n Stiling.」· M 代码 · 共 30 行

function [Q,R] = gramschmidtW(A,W)
% 
% Compute the Gram-Schmidt orthogonalization of the 
% columns of A with the inner product <x,y> = x'*W*y
% W should be symmetric
% 
% function [Q,R] = gramschmidtW(A,W)
%
% A = matrix to be factored
% W = weighting matrix
%
% Q = orthogonal matrix
% R = upper triangular matrix

% Copyright 1999 by Todd K. Moon

[m,n] = size(A);
R = [];  Q = [];       % initialize
e1 = A(:,1);  R(1,1) = sqrt(e1'*W*e1);  Q = e1/R(1,1);
k1 = 2;                % k1 counts dimensions with new information
for k=2:n
  r = Q(:,1:k1-1)'*W*A(:,k);     % orthogonal projection coefficients
  ek = A(:,k) - Q(:,1:k1-1)*r; % orthogonal direction vector
  norme = sqrt(ek'*W*ek);
  if(norme)         % if nonzero norm, include this
    R(1:k1,k1) = [r;norme];
    Q = [Q ek/R(k1,k1)];
    k1 = k1+1;
  end
end