详细实验指导见上上一篇,此处只写内容啦
实验内容: 求解如下4元线性方程组的近似解。
Gauss-Seidel迭代
A=[10,-1,2,0;-1,11,-1,3;2,-1,10,-1;0,3,-1,8];
b=[6;25;-11;15];
x=zeros(4,1);
temp=zeros(4,1);
x0=[1;2;-1;1];
for k=1:100
for l=1:4
temp(l,1)=abs(x(l,1)-x0(l,1));
end
if max(max(temp))>0.00001
for i=1:4
x(i,1)=1/A(i,i)*b(i,1);
for j=1:i-1
if i-1~=0
x(i,1)=x(i,1)-1/A(i,i)*A(i,j)*x(j,1);
end
end
for j=i+1:4
if j<=4
x(i,1)=x(i,1)-1/A(i,i)*A(i,j)*x(j,1);
end
end
end
else
break
end
end
fprintf(‘迭代次数为%g\n‘,k);
运行结果: