function x=gauss(A,b)
n=length(b);
for k=1:n-1
if A(k,k)==0
fprintf('error\n',k);
return;
end
index=k+1:n;
m=-A(index,k)/A(k,k);
A(index,index)=A(index,index)+m*A(k,index);
b(index)=b(index)+m*b(k);
end
x=zeros(n,1);
x(n)=b(n)/A(n,n);
for i=n-1:-1:1
x(i)=(b(i)-A(i,[i+1:n])*x([i+1:n]))/A(i,i);
end
uj5u.com熱心網友回復:
就是高斯消去法求解線性方程組 求大佬指點轉載請註明出處,本文鏈接:https://www.uj5u.com/houduan/268751.html
標籤:其它技術問題
