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