gusucode.com > 《模式识别与智能计算》matlab源代码 > 《模式识别与智能计算》matlab源代码/《模式识别与智能计算》部分函数的源程序/书程序/第5章/schmidt.m

    function y=schmidt(x)   
[r,c]=size(x);
y(:,1)=x(:,1);
for k=2:c
    a=0;
    for i=1:k-1 
    a=a-dot(x(:,k),y(:,i))*y(:,i)/dot(y(:,i),y(:,i));   
    end
    y(:,k)=x(:,k)+a;
end
for i=1:c
    y(:,i)=y(:,i)/norm(y(:,i));
end