www.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