basicqr.m

来自「various matlab programs to slove various」· M 代码 · 共 7 行

function [T,Q,R]=basicqr(A,niter)
T=A; 
for i=1:niter, 
    [Q,R]=mod_grams(T); 
    T=R*Q; 
end
return