数值传热学----陶文铨-----第7章全(共5页).docx

7-1 解：对下列方程求解： 1.运用Jacobi点迭代法Matlab编程如下：clear;clc;a=1 2 -2;1 1 1;2 2 1;b=1;3;5;i=100;x=zeros(3,1);for n=2:i+1 for m=1:size(a,1) x(m,n)=(-1*sum(a(m,:)*x(:,n-1)+a(m,m)*x(m,n-1)+b(m,1)/a(m,m); end e=0;for m=1:size(a,1) if abs(x(m,n)-x(m,n-1)e e=abs(x(m,n)-x(m,n-1); endendif e10(-3) break;endend计算结果：迭代次数初始值1234X101511X203-311X305-3112. G-S点迭代法求解Matl