用矩阵的LU分解算法求解线性方程组答:解下列方程组:6x1+3x2+4x3=3 -2x1+5x2+7x3=-4 8x1-4x2-3x3=-7 记为a*x=b,a=[6,3,4;-2,5,7;8,-4,-3],x=[x1;x2;x3]b=[3;-4;-7],则x=inv(a)*b=a\b(左除)。若x1=[x1,x2,x3],a1=[6,-2,8;3,5,-4;4,7,-3],b1=[3,-4,-7]则记为x1*a1=...
解线性方程组,写程序实现,要求用LU分解的办法,给出代码.答:integer :: N real*8 :: A(N, N), B(N), X(N)real*8, allocatable :: U(:, :), L(:, :), Y(:)real*8 :: sum integer :: i, j, k, s allocate (U(N,N))allocate (L(N,N))allocate (Y(N))U = 0 L = 0 do k = 1, N ! LU的 Doolittle 分解 L(k, ...