?? jacobi1.m
字號:
function jacobi1(A,b,e)
[i,j]=size(A);
[o,q]=size(b);
I=eye(i);
[l,u,p]=lu1(A);
if i==j & i==o;
if diag(p)~=zeros(i,1);
C=inv(p);
B=I-C*A;
a=abs(eig(B));
a=a';
n=0;
if a<ones(1,i);
m=1;
x1=zeros(i,1);
x2=B*x1+C*b;
while max(abs(x1-x2))>e;
x1=x2;
x2=B*x1+C*b;
fprintf('%d',m);
m=m+1;
for k=1:i;
fprintf('%13.8f',x1(k));
end
fprintf('\n');
end
else
fprintf('此多項式方程組不能進行雅可比迭代');
end
else
fprintf('此多項式方程組的矩陣的主對角線上有零元,不能進行雅可比迭代');
end
else
fprintf('此多項式方程組不能進行雅可比迭代');
end
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -