数值代数第二章实验报告
吕甜心 201511200135
算法2.5.1
function [v] = EsNorm1(A)
%求A的逆的的转置的一范数估计
k=1;
n=length(A);
x=(1/n)*ones(n,1);
while k==1
w=ColMain(A',x);
v=sign(w);
z=ColMain(A,v);
if norm(z,inf) <= z'*x
v=norm(w,1);%w的1范数
k=0;
else
[~,j]=max(abs(z));
x=zeros(n,1);
x(j)=1;
k=1;
end
end
end