精选优质文档-倾情为你奉上1、克劳特(Crout)(LU)分解法求解线性方程组function x,L,U=Crout(A,b)%Crout分解法求解线性方程组%系数矩阵:AN=size(A);n=N(1);L=zeros(n,n); %下三角矩阵U=eye(n,n); %上三角矩阵L(1:n,1)=A(1:n,1); %L的第一列U(1,1:n)=A(1,1:n)/L(1,1); %U的第一行?for k=2:n for i=k:n L(i,k)=A(i,k)-L(i,1:(k-1)*U(1:(k-1),k); %L的第k列 end for j=(k+1):n U(k,j)=(A(k,j)-L(k,1:(k-1)*U(1:(k-1),j)/(L(k,k); %U的第k行 endend%y=inv(L)*b;%x=inv(U)*y;y=Sol
Copyright © 2018-2021 Wenke99.com All rights reserved
工信部备案号:浙ICP备20026746号-2
公安局备案号:浙公网安备33038302330469号
本站为C2C交文档易平台,即用户上传的文档直接卖给下载用户,本站只是网络服务中间平台,所有原创文档下载所得归上传人所有,若您发现上传作品侵犯了您的权利,请立刻联系网站客服并提供证据,平台将在3个工作日内予以改正。