Gauss主元消去法,三角分解,MATLAB代码

数值分析:从矩阵分解的角度进行列主元Gauss消去法,MATLAB实现代码

function [L,U,x]=LUGauss(H,b)

[m,n]=size(H);                                                             %H为系数矩阵,b为列向量 
for i=1:n                                                                 %start        
      [maxValue, linearIndex]=max(H(i:n,i));
      [row, ~] = ind2sub(size(H), linearIndex);
      if H(i,i)~=maxValue
          a=H(row+i-1,:);
          H(row+i-1,:)=H(i,:);
          H(i,:)=a;
      end
end                                                                        %end  对整个矩阵进行选列主元操作
                   
L=eye(m);                                                                  %start
L(:,1)=H(:,1)/H(1,1);
U=zeros(m,n);
U(1,:)=H(1,:);
for i=2:m
    for j=2:n
        if i<=j
            U(i,j)=H(i,j)-sum(L(i,1:i-1).*U(1:i-1,j)');
        else
            if U(j,j)==0
               L(i,j)=0;
            else
                L(i,j)=(H(i,j)-sum(L(i,1:j-1).*U(1:j-1,j)'))/U(j,j);
            end
        end
    end
end                                                                        %end 对矩阵H进行LU分解

y=inv(L)*b;                                                                %start
x=inv(U)*y;                                                                %end  求解结果

end

  • 7
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值