chapr方程和方程组的迭代数值解法.pptx

,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,#,6.1,方程求根数值法,6.1.1,二分法,二分法是方程求根最常用而且也是最保险的方法之一。,一、基本思想,将区间对分，保留有根的区间，舍去无根的区间。如此往复，以逐步逼近方程的根。,二、算法分析,第一步：,将,a,b,对分，即,a,x,0,和,x,0,b,，,x,0,=(a+b)/2,。若,f(a)f(x,0,)0,，则根,x,*,(a,x,0,),，并令,a,1,=a,b,1,=x,0,；若,f(x,0,)f(b)0,，,则根,x,*,(x,0,b),，并令,a,1,=x,0,b,1,=b,。,第二步：,将,a,1,b,1,再,对分，即,a,1,x,0,和,x,0,b,1,，,x,1,=(a,1,+b,1,)/2,。若,f(a,1,)f(x,1,)0,，则根,x,*,(a,1,x,1,),，并令,a,2,=a,1,b,2,=x,1,；若,f(x,0,)f(b,1,)0,，则根,x,*,(x,1,b,1,),并令,a,2,=x,1,b,1,=b,1,。,直到满足精度要求为止，这样便得到一系列的对分结果系列：,6.1,方程求根数值法,三、程序框图与程序语言设计,subroutine bisect,a1=a,b1=b,x0=a1+b1/2,comp f(a1),f(b1),f(a1)f(b1)0?,end sub,abs(f(x0)E?,comp f(a1),f(x0),f(a1)f(x0)0?,end sub,b1=x0,a1=x0,N,Y,Y,N,N,Y,图,6-1,二分法程序框图,6.1,方程求根数值法,10 subroutine bisect(a,b,E,x0),20 a1=a;b1=b,30 if(f(a1)*f(b1)E)then,60 if(f(a1)*f(x0)E?,end sub,N,Y,10 subroutine suppo(x0,E,x),20 x=x0,30 x=g(x),40 i=i+1,50 if(abs(f(x)E)then,60 goto 30,70 endif,80 end subroutine suppo,图,6-3,迭代法程序框图,6.1,方程求根数值法,6.1.3,加速迭代法,一、算法分析,加速迭代法的基本原理类似,Romberg,积分中所采用的方法，用误差补偿对所求的近似值进行修正。,设方程,f(x)=0,，作迭代格式,x,k+1,=g(x,k,),。又设 为方程的解，,根据微分中值定理：,当,k,很大，,很小；所以在 上，可视为常数。令 （根据,收敛条件,），则,(6-4),6.1,方程求根数值法,用误差补偿,:,改写为,迭代过程：,(6-5),6.1,方程求根数值法,二、程序框图与程序语言设计,subroutine spsppo,x2=(x2-q*x1)/(1-q),comp g(x1),dg(x2),f(x2),abs(f(x2)E?,end sub,N,Y,x1=x0,x2=g(x1),q=dg(x2),x1=x2,i=i+1,图,6-4,加速迭代法程序框图,6.1,方程求根数值法,10 subroutine spsppo(x0,E,x2),20 x1=x0,30 x2=g(x1),40 q=dg(x2),50 x2=(x2-q*x1)/(1-q),60 x1=x2,70 i=i+1,80 if(f(x2)E)then,90 goto 30,100 endif,110 end subroutine spsppo,6.1,方程求根数值法,6.1.4,牛顿切线法,一、算法分析,牛顿切线法是将复杂的方程,f(x)=0,化为简单的线性方程来求解。其数学依据如下：,设,是方程式,(6-1),式的近似根，则在处将,f(x),展开为泰勒级数并取前两项得：,从而有,作迭代递推计算格式,(6-6),6.1,方程求根数值法,则由此迭代递推计算公式可以求得一系列 ，可以证明，在所选的初值 满足条件：,时，迭代公式,(6-6),式一定收敛，而且收敛速度很快。为了帮助理解牛顿切线法的原理，下面给出该法的几何解释，如图,6-5,所示。,图,6-5,牛顿法几何意义,相当于过 作切线与,x,轴相交即得,x,1,过 作切线与,x,轴相交即得,x,1,依次类推，直到满足精度要求为止。,6.1,方程求根数值法,二、程序框图与程序语言设计,subroutine ntsp,x2=x1-f/f1,comp f(x1),df(x1),f(x2),abs(f(x2)E?,end sub,N,Y,x1=x0,f=f(x1),f1=df(x1),x1=x2,i=i+1,图,6-6,牛顿法程序框图,6.1,方程求根数值法,10 subroutine ntsp(x0,E,x2),20 x1=x0,30 f=f(x1),40 f1=df(x1),50 x2=x1-f/f1,60 x1=x2,70 i=i+1,80 if(f(x2)E)then,90 goto 30,100 endif,110 end subroutine ntsp,6.1,方程求根数值法,6.1.5,牛顿弦割法,一、算法分析,弦,割,法的基本思想是利用差商代替导数来求方程的根。一般弦,割,法是利用下列差商代替牛顿切线法中的导数,，即,写成迭代格式,这就是用一般弦割法求方程式,(6-1),式的根的迭代计算公式，若给定两个初始近似值,x,0,和,x,1,，则反复使用迭代公式（,6-7,）式进行迭代，可得到根的一系列近似值 。这个系列的极限就是方程式（,6-1,）式的根,即 。,(6-7),6.1,方程求根数值法,图,6-7,一般弦割法的几何意义,图,6-8,快速弦割法的几何意义,一般弦割法的几何意义如图,6-7,所示，,过两点,，,，,作直线,与,x,轴相交，则交点的横坐标即为 ，因为直线 的方程为：,6.1,方程求根数值法,该方程的解为：,上式就是当,k=1,时的一般弦,割,法的迭代计算公式。再过 作垂线 交曲线,y=f(x),于 点，联接并延长与,x,轴相交于 点，重复上述过程，可以获得一系列,直线,，此系列的极限位置就是,P,点，,P,点的横坐标就是方程的根。但,因,每次所作的直线都过点 ，收敛速度虽然比二分法快，但比牛顿切线法要慢得多,。,二、程序框图与程序语言设计,请读者自行设计,6.1,方程求根数值法,6.1.6,快速,牛顿弦割法,一、算法分析,快速弦线法是用下面的差商代替牛顿切线法中的导线,进行求根，即：,把上式代入牛顿切线法的迭代公式（,6-6,）式得到,快速,牛顿弦割法迭代格式为,若给定两个初始近似值,x,0,和,x,1,，则反复使用迭代公式（,6-8,）式进行迭代，可得到根的一系列近似值 。这个系列的极限就是方程式（,6-1,）式的根,即 。,(6-8),6.1,方程求根数值法,快速牛顿弦割法的几何意义如图,6-8,所示，,过两点,，,，,作直线 与,x,轴相交，则交点的横坐标即为 ，因为直线 的方程为：,该方程的解为：,再过 作垂线 交曲线,y=f(x),于 点，联接并延长与,x,轴相交于 点，,描述直线 的方程式为：,该方程的解为：,6.1,方程求根数值法,重复上述过程，可以获得一系列,直线,，此系列的极限位置就是,P,点，,P,点的横坐标就是方程的根。,但因每次所作的直线的终点都是下一次所作直线的起点，即所作的直线系列是 ，而不是 ，所以，其收敛速度比一般弦线法快得多。,二、程序框图与程序语言设计,subroutine fntsp,comp f(x0),f(x1),x2=x1-f(x1)*(x1-x0)/(f(x1)-f(x0),abs(x2-x1)E?,N,Y,x1=x2;x0=x1,end sub,6.1,方程求根数值法,10 subroutine fntsp(x0,x1,E,x2),20 x2=x1-f(x1)*(x1-x0)/(f(x1)-f(x0),30 if(abs(x2-x1)E)then,40 x0=x1,50 x1=x2,60 goto 20,70 endif,80 end subroutine fntsp,6.2,线性方程组求解数值法,6.2.1,线性方程组,Jacobi,迭代,法,一、算法分析,为求线性代数方程组,(4-1),的解，仿照,(6-1),方程求根的办法，可将代数方程组,(4-1),改写为等价方程组,作构造格式,6.2,线性方程组求解数值法,或简写为,给定初值 ，并令 ，由此可得向量序列 。显然，如果此序列收敛于,x,那么每个分量序列,就必收敛于 ，就必然是方程组的解。这种方法就是,yacobi,迭代法。,例,6-2,用,yacobi,迭代法求解方程组,(6-9),6.2,线性方程组求解数值法,解 用,yacobi,迭代格式有,取初始值 ，并令 ，得,，故,subroutine yacspp,if(i.ne.j)then,end sub,i=1,n,x(i)=0,end do,d=0,do i=1,n,y(i)=b(i),end do,do j=1,n,y(i)=y(i),a(i,j)*x(j),endif,if(abs(x(i)-y(i)d)then,d=abs(x(i)-y(i),y(i)=y(i)/a(i,i),end do,x(i)=y(i),i=1,n,end do,if(dE)then,go to,endif,endif,二 程序框图与程序设计,6.2,线性方程组求解数值法,10 subroutine yacspp(a,b,n,E,x),20 dimension a(n,n),b(n),x(n),30 do i=1,n,40 x(i)=0,50 end do,60,d=0,70 do i=1,n,80 y(i)=b(i),90 do j=1,n,100 if(i.ne.j)then,110 y(i)=y(i)-a(i,j)*x(j),120 endif,130 end do,140 y(i)=y(i)/a(i,i),150 if(abs(x(i)-y(i)d)then,160 d=abs(x(i)-y(i),170 endif,180 end do,190 do i=1,n,200 x(i)=y(i),210 end do,220 if(dE)then,230 go to,60,240 endif,250 end subroutine yacspp,6.2,线性方程组求解数值法,6.2.2,线性方程组,Gauss-seidel,迭代,法,一、算法分析,在迭代递推计算通式,(6-9),中，第,(k+1),次迭代用的只是第,k,次迭代的近似值。可是，解的各个分量是依次计算的，显然，在计算,x,i,时，它前面的其它未知数的本次迭代近似值已经计算出来了。一般来说，新值总比旧值更接近真值，因为应该优先使用它们。这样改进所得的方法就是高斯,-,赛德尔迭代法,其迭代格式为,6.2,线性方程组求解数值法,或简写为,例,6-3,用,Gauss-seidel,迭代法求解,例,6-2,方程组,解：用,(6-10),式，,例,6-2,方程组的,Gauss-seidel,迭代格式为,(6-10),6.2,线性方程组求解数值法,取初始值 ，并令 ，得,故 ，解毕。,二、程序框图与程序设计,subroutine gausei,if(i.ne.j)then,end sub,i=1,n,x(i)=0,end do,d=0,do i=1,n,y=b(i),end do,do j=1,n,y=y,a(i,j)*x(j),endif,if(abs(x(i)-y)d)then,d=abs(x(i)-y),y=y/a(i,i),end do,x(i)=y,if(dE)then,go to,endif,endif,6.2,线性方程组求解数值法,10 subroutine gausei(a,b,n,E,x),20 dimension a(n,n),b(n),x(n),30 do i=1,n,40 x(i)=0,50 end do,60,d=0,70 do i=1,n,80 y=b(i),90 do j=1,n,100 if(i.ne.j)then,110 y=y-a(i,j)*x(j),120 endif,130 end do,140 y=y/a(i,i),150 if(abs(x(i)-y)d)then,160 d=abs(x(i)-y),170 endif,180 x(i)=y,190 end do,200 if(dE)then,210 go to,60,220 endif,230 end subroutine gausei,6.2,线性方程组求解数值法,为加速,Gauss-seidel,迭代法的收敛性，仿方程求根的松弛法，将迭代公式,(6-10),改为,这里 为松弛因子。按此公式迭代求解方程组,(4-1),，称为逐个超松弛迭代法或,SOR,法。显然 时为,Gauss-seidel,迭代法。,(6-11),6.3,非线性方程组求解数值法,在现代工程技术或科研过程中，常常会遇到非线性代数方程组的求解问题。本节介绍如下方程组的迭代数值解法：,解非线性方程组的方法通常有两大类：一类属于线性化方法，即用一线性代数方程组来近似逼近非线性代数方程组，由此构造一组递推公式，用于逐次逼近所求的根，这类方法有牛顿,-,拉夫逊方法及其各种改进：另一类方法是把方程组的求解问题转化为求多元函数的极小值的等效问题来解决，这类方法有最速下降法及其各种改进。,(6-12),6.3,非线性方程组求解数值法,6.3.1,非线性方程组,Gauss-yacobi,迭代,法,一、算法分析,仿照方程求根的简单迭代法，把方程组,(6-12),表示成如下的等价方程：,作成迭代格式,(6-13),6.3,非线性方程组求解数值法,选取一组初始向量 ，并令 ，可以得到一组向量序列 ，如果方程组,(6-13),或,(6-14),只有唯一解 ，且 收敛，则得逐次收敛于 的近似值。这样求解方程组,(6-13),的方法称简单迭代法。,(6-14),6.3,非线性方程组求解数值法,例,6-4,用简单迭代法解方程组,解,作迭代格式,取初始值 ，并令 ，得,故,6.3,非线性方程组求解数值法,一般迭代格式写成向量形式,记矩阵,可以证明 时迭代收敛。,(6-15),(6-16),二、程序框图与通用程序设计,subroutine gauyak,do i=1,n,read x(i),end do,d=0,y(i),=g(,x(i),),do i=1,n,end do,if(abs(y(i)-x(i)d)then,d=abs(y(i)-x(i),endif,x(i)=y(i),i=1,n,end do,if(dE)then,go to,endif,end sub,6.3,非线性方程组求解数值法,10 subroutine gauyac(n,E,x),20 dimension y(n),x(n),30 do i=1,n,40 read(*,2x,f6.2)x(i),50 end do,60,d=0,70 y(1)=g1(x(1),x(2),x(n),80 y(2)=g2(x(1),x(2),x(n),90 y(3)=g3(x(1),x(2),x(n),100,110 y(n)=gn(x(1),x(2),x(n),120 do i=1,n,130 if(abs(y(i)-x(i)d)then,140 d=abs(y(i)-x(i),150 endif,160 end do,170 do i=1,n,180 x(i)=y(i),190 end do,200 if(dE)then,210 go to,60,220 endif,230 end subroutine gauyac,6.3,非线性方程组求解数值法,6.3.2,非线性方程组,Gauss-yacobi-seidel,迭代,法,一、算法分析,仿照线性代数方程组的,Gauss-Seidel,迭代方法，可作,非线性方程组,Gauss-yacobi-seidel,迭代,法,为,二、程序框图与通用程序设计,(6-17),subroutine gayase,do i=1,n,read x(i),end do,d=0,x(i),=g(,x(i),),do i=1,n,end do,if(abs(x(i)-y(i)d)then,d=abs(x(i)-y(i),endif,y(i)=x(i),i=1,n,end do,go to,endif,end sub,if(dE)then,6.3,非线性方程组求解数值法,10 subroutine gayase(n,E,x),20 dimension y(n),x(n),30 do i=1,n,40 read(*,2x,f6.2)x(i),50 end do,60,do i=1,n,70 y(i)=x(i),80 end do,90 d=0,100 x(1)=g3(x(1),x(2),x(n),110 x(2)=g3(x(1),x(2),x(n),120 x(3)=g3(x(1),x(2),x(n),130,140 x(n)=gn(x(1),x(2),x(n),150 do i=1,n,160 if(abs(x(i)-y(i)d)then,170 d=abs(x(i)-y(i),180 endif,190 end do,200 if(dE)then,210 go to,60,220 endif,230 end subroutine gauyac,6.3,非线性方程组求解数值法,6.3.3,非线性方程组,最速下降,迭代,法,(,Gradient Iteration Method,),一、算法分析,1.,由已知方程组,(6.12),式构造目标函数,于是，方程组,(6.12),式的解就上式的零极小值点，反之亦然。,2.,计算差商,其中 ，,(i=1,2,3,n),。,式中,c,为控制常数，一般取,c=0.00001,。,6.3,非线性方程组求解数值法,可以看出，梯度法实际上就是利用差商代替牛顿法中的偏导数。,3.,具体计算步骤,（,1,）从给定的不全为零的初值 出发，设已经计算到第,k,得 。,（,2,）计算目标函数的值 。,（,3,）如果,|F|E)then,x(i)=x(i)+,cx,s=s+df(i)*2,x(i)=x(i)-,cx,sfl=f0/s,call sub compf,endif,6.3,非线性方程组求解数值法,10 subroutine gradmt(n,E,x),20 dimension x(n),df(n),30 do i=1,n,40 read(*,2x,f6.2)x(i),50 end do,60,call compf(x,n,f),70 f0=f,80 if(abs(f)E)then,90 c=0.00001;s=0,100 do i=1,n,110 if(abs(x(i)=0)then,120 cx=c,130 else,140 cx=c*x(i),150 endif,160 x(i)=x(i)+cx,170 call compf(x,n,f),180 df(i)=(f-f0)/cx,190 s=s+df(i)*2,200 x(i)=x(i)-cx,210 end do,220 sfl=f0/s,230 do i=1,n,240 x(i)=x(i)-sfl*df(i),250 end do,260 endif,270 end subroutine gradmt,6.3,非线性方程组求解数值法,10 subroutine compf(x,n,ff),20 dimension x(n),f(n),30 f(1)=expr1,40 f(2)=expr2,50 f(3)=expr3,60,.,70 f(n)=exprn,80 ff=0,90 do i=1,n,100 ff=ff+f(i)*f(i),110 end do,120 end subroutine compf,练习题,6-1,方程 在 附近有根，将方程作,3,重通解变换，可得,3,种迭代式：,判断各种迭代式在 附近的收敛性；选择一种收敛最快的迭代式，计算 附近的根，准确到,4,位小数。并和用牛顿法和牛顿弦割法计算的结果作比较。,上机实习题,6-2,利用简单迭代法、加速迭代法、牛顿法和牛顿弦割法求解习题,6-1,题，准确到,4,位有效数字。,6-2,利用,yacobi,和,yacobi-seidel,法求解下列方程组,