高斯消去法解线性方程的Matlab程序.docVIP

高斯消去法解线性方程的Matlab程序 高斯消去法解线性方程的Matlab程序 PAGE/NUMPAGESPAGE/NUMPAGES 高斯消去法解线性方程的Matlab程序 1151091  杨晨辉 高斯消去法解线性方程的  Matlab程序 方法一： functionx=gauss(A,b) n=length(b); fork=1:n-1 ifA(k,k)==0 fprintf(Error:the%dthpivotelementequaltozero!\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); fori=n-1:-1:1 x(i)=(b(i)-A(i,[i+1:n])*x([i+1:n]))/A(i,i); end 运转结果： A=[11.3551.42; 33.50.221; 0.522.13; 0.30.1-0.552]; b=[2.00,1.00,0.55,3.00] b= 2.0000 1.0000 0.5500 3.0000 gauss(A,b)ans= 2.5225 -2.2313