MATLAB列主元消去法答:x(n) = b(n)/A(n,n); 应为 x(n) = b(n)./A(n,n);x(k)=x(k)/A(k,k); 应为 x(k)=x(k)./A(k,k);>> A=[0.729,0.8100,0.9000;1.000,1.000,1.000;1.331,1.210,1.100];>>b=[0.6867;0.8338;1.000];>>gauss(A,b)ans = A^2/2 此方程组有...
试用高斯消元法编制Fortran程序计算n元一次方程组的解,并用一个三元...答:999 format(T5,'高斯消去法计算结果',/,T4,'x=',4(/F12.8))end program gauss !子程序--- subroutine solve(A,b,x,N)implicit real*8(a-z)integer::i,k,N real(kind=8) ::A(N,N),b(N),x(N)real(kind=8) ::Aup(N,N),bup(N)!Ab为增广矩阵 [Ab]real(kind=8) ...