basicqr.m

various matlab programs to slove various problems

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