雅克比(Jacobi)迭代法解线性方程组(Matlab程序)

原创 2012年03月30日 18:36:30

%---雅克比迭代法-----
%---Jacobi iteration method
clear;clc;
% A=[10,-1,-2;-1,10,-2;-1,-1,5];
% b=[72,83,42]';
A=[ 28,-3,0,0,0;
    -3,38,-10,0,-5;
    -10,0,25,-15,0;
    0,0,-15,45,0;
    0,-5,0,0,30];
b=[10,0,0,0,0]';
N=length(b);
fprintf('库函数计算结果:');
x=inv(A)*b   %库函数计算结果
B=zeros(N,N);g=zeros(N,1);
x=zeros(N,1);%迭代初始值
eps=0.001;%相邻解的距离小于该数时,结束迭代
% for i=1:N
%     B(i,:)=-A(i,:)/A(i,i);
%     B(i,i)=0;       %迭代矩阵
%     g(i)=b(i)/A(i,i);
% end
D=diag(diag(A));
E=-tril(A,-1);%下三角
F=-triu(A,1);%上三角
B=inv(D)*(E+F);g=inv(D)*b;

for k=1:100 %最大迭代次数为100
    fprintf('第%d次迭代:',k);
    y=B*x+g;
    fprintf('\n与上次计算结果的距离(2范数):%f \n',norm(x-y)^2);
    if norm(x-y)<eps
        break;
    end
    x=y
end
x

 

相关文章推荐

数值分析 jacobi迭代法求解线性方程组 MATLAB程序实现

数值分析 jacobi迭代法MATLAB程序实现   函数内容(保存为jacobi.m文件,在MATLAB中运行): %function [G,d,x,N]=jacobi(A,b) %Jacob...

Jacobi迭代法 Gauss-Seidel迭代法

按照算法(Jacobi迭代法)编写Matlab程序(Jacobi.m) function [x, k, index]=Jacobi(A, b, ep, it_max) % 求解线性方程组的Jaco...
  • porly
  • porly
  • 2012年08月17日 13:34
  • 5421

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

雅克比方法迭代法解线性方程组

import java.util.Scanner; public class Jacobi { /** * @param args */ public static void main(S...

线性方程组——Jacobi迭代和G_S迭代

1)方程组Ax=b 用简单迭代法(Jacobi迭代法)和G-S迭代法分别解方程组。精确到小数点后5位,最大迭代次数N=100,说明是否收敛 Jacobi迭代代码如下 Jacobi.m f...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Jacobi迭代法解线性方程组(C语言)

/*-------------Jacobi迭代法解线性方程组--------- 参考教材:《数值分析》李乃成,梅立泉,科学出版社     《计算方法教程》第二版 凌永祥,陈明逵*/ #inclu...

【数值分析】迭代法解方程:牛顿迭代法、Jacobi迭代法

本科课程参见:《软件学院那些课》 牛顿迭代公式 设已知方程f(x)=0的近似根x0 ,则在x0附近f(x)可用一阶泰勒多项式近似代替.因此, 方程f(x)=0可近似地表示为p(x)=0。用x1...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:雅克比(Jacobi)迭代法解线性方程组(Matlab程序)
举报原因:
原因补充:

(最多只允许输入30个字)