?? rs.m
字號:
function [x,n]=rs(A,b,x0,eps,M)
if(nargin == 3)
eps = 1.0e-6; %eps表示迭代精度
M = 10000; %M表示迭代步數的限制值
elseif(nargin == 4)
M = 10000;
end
I =eye(size(A));
n=0;
x=x0;
tol=1;
%迭代過程
while (tol>eps)
x = (I-A)*x0+b;
n = n + 1; %n為最終求出解時的迭代步數
tol = norm(x-x0);
x0 = x;
if(n>=M)
disp('Warning:迭代次數太多,可能不收斂!');
return;
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -