?? yesf.m
字號:
function [x,IA]= Yesf(A,b)
N = size(A);
n = N(1);
A1 = A -eye(n,n);
A2 = zeros(n,n);
A3 = zeros(n,n);
for m=1:n
for i=1:n
for j=1:n
if(i ~= m)
A2(i,j) = A1(i,j);
else
if(j == m)
A2(i,j) = 1;
else
A2(i,j) = 0;
end
end
end
end %第一步遞推
A3 = A2 - A2(1:n,m)*A1(m,1:n)/(1+A1(m,m)); %第二步遞推
A1 = A3;
end
IA=A3;
x = A3*b; %求解方程
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -