MATLAB解方程与最优化问题求解.ppt
《MATLAB解方程与最优化问题求解.ppt》由会员分享,可在线阅读,更多相关《MATLAB解方程与最优化问题求解.ppt(86页珍藏版)》请在三一办公上搜索。
1、MATLAB程序设计教程(第二版),刘卫国 主编 中国水利水电出版社,第6章 MATLAB解方程与最优化问题求解,MATLAB线性方程组求解 MATLAB非线性方程数值求解 MATLAB常微分方程初值问题的数值解法 MATLAB最优化问题求解,背景经济与工程中的许多问题最后都可以转化为求解线性方程组许多数值计算问题(如样条函数、常微分方程数值解、差分方程等)的研究也往往归结为此类问题线性方程组的数值法直接法经过有限次算法运算求出精确解,最常用的是:高斯消元法、矩阵LU分解迭代法从初值出发,用递推的方法,给出近似解序列。常用的方法:雅可比迭代法、高斯-赛德尔迭代法。,列昂杰夫的“投入-产出”模型
2、:列昂惕夫用线性代数研究经济数学模型,1949年曾用计算机计算出了由美国统计局的25万条经济数据所组成的42个未知数42个方程的方程组。投入产出分析的方法基础包括:线性方程组和矩阵运算(静态模型)、微分方程和差分方程(动态模型)、电子计算机。,第三章 矩阵代数,设有n个经济部门,xi为部门i的总产出,cij为部门j单位产品对部门i产品的消耗,di为外部对部门i的需求,fj为部门j新创造的价值。分配平衡方程组消耗平衡方程组 i=1,2,n,第三章 矩阵代数,投入产出分析,令 C=(cij),X=(x1,xn),D=(d1,dn),F=(f1,fn),则 X=CX+D令 A=EC,E为单位矩阵,则
3、 AX=DC称为直接消耗矩阵A称为列昂杰夫(Leontief)矩阵。,2023/11/8,7,第三章 矩阵代数,Y=1,1,1 B,Y表示各部门的总投入,称为投入向量。,新创造价值向量 F=X Y,B=C,B表示各部门间的投入产出关系,称为投入产出矩阵。,其中,常数项,所谓一般线性方程组是指具有形式:,由m个方程n个未知量的线性方程构成的方程组,矩阵形式:,6.1 线性方程组求解6.1.1 直接解法1利用左除运算符的直接解法对于线性方程组可以利用左除运算符“”求解:x=Ab;(1)若A为nn方阵,自动利用高斯消元法求解,若b是n1的列向量,则解x为n1的列向量,若b是nm的矩阵,可得到m个以A
4、为系数矩阵的线性方程组的数值解x(nm的矩阵),即x(:,j)=Ab(:,j),j=1,2,m.(2)当A不是方阵时,Ax=b称为欠定方程组或超定方程组,MATLAB会在最小二乘意义下解,例6-1 用直接解法求解下列线性方程组。,命令如下:A=2,1,-5,1;1,-5,0,7;0,2,1,-1;1,6,-1,-4;b=13,-9,6,0;%右边常数项应该是列向量x=Ab,2利用矩阵的分解求解线性方程组矩阵分解是指根据一定的原理用某种算法将一个矩阵分解成若干个矩阵的乘积。常见的矩阵分解有LU分解、QR分解、Cholesky分解,以及Schur分解、Hessenberg分解、奇异分解等。优点:运
5、算速度快,节省存储空间,(1)LU分解矩阵的LU分解就是将一个矩阵表示为一个交换下三角矩阵和一个上三角矩阵的乘积形式。线性代数中已经证明,只要方阵A是非奇异的,LU分解总是可以进行的。,MATLAB提供的lu函数用于对矩阵进行LU分解,其调用格式为:(1)L,U=lu(X):产生一个上三角阵U和一个变换形式的下三角阵L(行交换),使之满足X=LU。注意,这里的矩阵X必须是方阵。此时矩阵L往往不是下三角阵,但通过行交换后使之成为一个下三角阵(2)L,U,P=lu(X):产生一个上三角阵U和一个下三角阵L以及一个置换矩阵P,使之满足PX=LU。当然矩阵X同样必须是方阵。实现LU分解后,线性方程组A
6、x=b的解x=U(Lb)或x=U(LPb),这样可以大大提高运算速度。,矩阵LU分解,设,命令如下:A=1,-1,1;5,-4,3;2,1,1;L,U=lu(A)%第(1)种格式LU=L*U%检验分解是否正确L,U,P=lu(A)LU=L*U%检验分解是否正确LU=inv(P)*L*U%检验分解是否正确,例6-2 用LU分解求解例6-1中的线性方程组。命令如下:A=2,1,-5,1;1,-5,0,7;0,2,1,-1;1,6,-1,-4;b=13,-9,6,0;L,U=lu(A);x=U(Lb)%或采用LU分解的第2种格式,命令如下:L,U,P=lu(A);x=U(LP*b),(2)QR分解对
7、矩阵X进行QR分解,就是把X分解为一个正交矩阵Q和一个上三角矩阵R的乘积形式。QR分解只能对方阵进行。MATLAB的函数qr可用于对矩阵进行QR分解,其调用格式为:(1)Q,R=qr(X):产生一个一个正交矩阵Q和一个上三角矩阵R,使之满足X=QR。(2)Q,R,E=qr(X):产生一个一个正交矩阵Q、一个上三角矩阵R以及一个置换矩阵E,使之满足XE=QR。实现QR分解后,线性方程组Ax=b的解x=R(Qb)或x=E(R(Qb)。,矩阵QR分解,设,命令如下:A=1,-1,1;5,-4,3;2,7,10;Q,R=qr(A)%第(1)种格式QR=Q*R%检验分解是否正确Q,R,E=qr(A)QR
8、=Q*R%检验分解是否正确QR=Q*R/E%检验分解是否正确,例6-3 用QR分解求解例6-1中的线性方程组。命令如下:A=2,1,-5,1;1,-5,0,7;0,2,1,-1;1,6,-1,-4;b=13,-9,6,0;Q,R=qr(A);x=R(Qb)%或采用QR分解的第2种格式,命令如下:Q,R,E=qr(A);x=E*(R(Qb),(3)Cholesky分解如果矩阵X是对称正定的,则Cholesky分解将矩阵X分解成一个下三角矩阵和上三角矩阵的乘积。设上三角矩阵为R,则下三角矩阵为其转置,即X=RR。,MATLAB函数chol(X)用于对矩阵X进行Cholesky分解,其调用格式为:(
9、1)R=chol(X):产生一个上三角阵R,使RR=X。若X为非对称正定,则输出一个出错信息。(2)R,p=chol(X):这个命令格式将不输出出错信息。当X为对称正定的,则p=0,R与上述格式得到的结果相同;否则p为一个正整数。如果X为满秩矩阵,则R为一个阶数为q=p-1的上三角阵,且满足RR=X(1:q,1:q)。实现Cholesky分解后,线性方程组Ax=b变成RRx=b,所以x=R(Rb)。,矩阵Cholesky分解,设,命令如下:A=2,1,1;1,2,1;1,-1,3;R=chol(A)%第(1)种格式R*R%检验分解是否正确R,p=chol(A),p=0,则A是正定矩阵,对一个非
10、正定矩阵进行Cholesky分解,将得出错误信息,因而该方法可用来判断矩阵是否是正定矩阵,例6-4 用Cholesky分解求解例6-1中的线性方程组。命令如下:A=2,1,-5,1;1,-5,0,7;0,2,1,-1;1,6,-1,-4;b=13,-9,6,0;R=chol(A)?Error using=cholMatrix must be positive definite命令执行时,出现错误信息,说明A为非正定矩阵。,6.1.2 迭代解法迭代解法非常适合求解大型系数矩阵的方程组。在数值分析中,迭代解法主要包括 Jacobi迭代法、Gauss-Serdel迭代法、超松弛迭代法和两步迭代法。,
11、1Jacobi迭代法对于线性方程组Ax=b,如果A为非奇异方阵,即aii0(i=1,2,n),则可将A分解为A=D-L-U,其中D为对角阵,其元素为A的对角元素,L与U为A的下三角阵和上三角阵,于是Ax=b化为:x=D-1(L+U)x+D-1b与之对应的迭代公式为:x(k+1)=D-1(L+U)x(k)+D-1b这就是Jacobi迭代公式。如果序列x(k+1)收敛于x,则x必是方程Ax=b的解。,Jacobi迭代法的MATLAB函数文件Jacobi.m如下:function y,n=jacobi(A,b,x0,eps)if nargin=3 eps=1.0e-6;elseif nargin=e
12、ps x0=y;y=B*x0+f;n=n+1;end,例6-5 用Jacobi迭代法求解下列线性方程组。设迭代初值为0,迭代精度为10-6。,在命令中调用函数文件Jacobi.m,命令如下:A=10,-1,0;-1,10,-2;0,-2,10;b=9,7,6;x,n=jacobi(A,b,0,0,0,1.0e-6),2Gauss-Serdel迭代法在Jacobi迭代过程中,计算时,已经得到,不必再用,即原来的迭代公式Dx(k+1)=(L+U)x(k)+b可以改进为Dx(k+1)=Lx(k+1)+Ux(k)+b,于是得到:x(k+1)=(D-L)-1Ux(k)+(D-L)-1b该式即为Gauss
13、-Serdel迭代公式。和Jacobi迭代相比,Gauss-Serdel迭代用新分量代替旧分量,精度会高些。,Gauss-Serdel迭代法的MATLAB函数文件gauseidel.m如下:function y,n=gauseidel(A,b,x0,eps)if nargin=3 eps=1.0e-6;elseif nargin=eps x0=y;y=G*x0+f;n=n+1;end,例6-6 用Gauss-Serdel迭代法求解下列线性方程组。设迭代初值为0,迭代精度为10-6。,在命令中调用函数文件gauseidel.m,命令如下:A=10,-1,0;-1,10,-2;0,-2,10;b=
14、9,7,6;x,n=gauseidel(A,b,0,0,0,1.0e-6),例6-7 分别用Jacobi迭代和Gauss-Serdel迭代法求解下列线性方程组,看是否收敛。,命令如下:a=1,2,-2;1,1,1;2,2,1;b=9;7;6;x,n=jacobi(a,b,0;0;0)x,n=gauseidel(a,b,0;0;0),6.2 非线性方程数值求解6.2.1 单变量非线性方程求解 在MATLAB中提供了一个fzero函数,可以用来求单变量非线性方程的根。该函数的调用格式为:z=fzero(fname,x0,tol,trace)其中fname是待求根的函数文件名,x0为搜索的起点。一个
15、函数可能有多个根,但fzero函数只给出离x0最近的那个根。tol控制结果的相对精度,缺省时取tol=eps,trace指定迭代信息是否在运算中显示,为1时显示,为0时不显示,缺省时取trace=0。,例6-8 求f(x)=x-10 x+2=0在x0=0.5附近的根。步骤如下:(1)建立函数文件funx.m。function fx=funx(x)fx=x-10.x+2;(2)调用fzero函数求根。z=fzero(funx,0.5)z=0.3758,6.2.2 非线性方程组的求解 对于非线性方程组F(X)=0,用fsolve函数求其数值解。fsolve函数的调用格式为:X=fsolve(fun
16、,X0,option)其中X为返回的解,fun是用于定义需求解的非线性方程组的函数文件名,X0是求根过程的初值,option为最优化工具箱的选项设定。最优化工具箱提供了20多个选项,用户可以使用optimset命令将它们显示出来。如果想改变其中某个选项,则可以调用optimset()函数来完成。例如,Display选项决定函数调用时中间结果的显示方式,其中off为不显示,iter表示每步都显示,final只显示最终结果。optimset(Display,off)将设定Display选项为off。,例6-9 求下列非线性方程组在(0.5,0.5)附近的数值解。(1)建立函数文件myfun.m。f
17、unction q=myfun(p)x=p(1);y=p(2);q(1)=x-0.6*sin(x)-0.3*cos(y);q(2)=y-0.6*cos(x)+0.3*sin(y);(2)在给定的初值x0=0.5,y0=0.5下,调用fsolve函数求方程的根。x=fsolve(myfun,0.5,0.5,optimset(Display,off)x=0.6354 0.3734,将求得的解代回原方程,可以检验结果是否正确,命令如下:q=myfun(x)q=1.0e-009*0.2375 0.2957 可见得到了较高精度的结果。,引例,2.讨论资金积累、国民收入、与人口增长的关系.(1)若国民平均
18、收入x与按人口平均资金积累y成正比,说明仅当总资金积累的相对增长率k大于人口的相对增长率r时,国民平均收入才是增长的.(2)作出k(x)和r(x)的示意图,分析人口激增会引起什么后果.,1.地中海鲨鱼问题:意大利生物学家Ancona曾致力于鱼类种群相互制约关系的研究,他从第一次世界大战期间,地中海各港口捕获的几种鱼类捕获量百分比的资料中,发现鲨鱼等的比例有明显增加(见下表),而供其捕食的食用鱼的百分比却明显下降.显然战争使捕鱼量下降,食用鱼增加,鲨鱼等也随之增加,但为何鲨鱼的比例大幅增加呢?,微分方程的解析解,结 果:u=tg(t+c),解 输入命令:dsolve(Du=1+u2,t),解 输
19、入命令:y=dsolve(D2y+4*Dy+29*y=0,y(0)=0,Dy(0)=15,x),结 果 为:y=3e-2xsin(5x),解 输入命令:x,y,z=dsolve(Dx=2*x-3*y+3*z,Dy=4*x-5*y+3*z,Dz=4*x-4*y+2*z,t);x=simple(x)%将x化简 y=simple(y)z=simple(z),结 果 为:x=c2e2t+c3e-t y=c1e-2t+c2e2t+c3e-t z=c1e-2t+c2e2t,结 果 为:x=C2*exp(2*t)+C3*exp(-t)y=C2*exp(2*t)+C3*exp(-t)+exp(-2*t)*C1
20、 z=C2*exp(2*t)+exp(-2*t)*C1,微分方程的数值解,常微分方程数值解的定义,在生产和科研中所处理的微分方程往往很复杂且大多得不出一般解。而在实际上对初值问题,一般是要求得到解在若干个点上满足规定精确度的近似值,或者得到一个满足精确度要求的便于计算的表达式。,因此,研究常微分方程的数值解法是十分必要的。,用Matlab软件求常微分方程的数值解,t,x=solver(f,ts,x0,options),1、在解n个未知函数的方程组时,x0和x均为n维向量,m-文件中的待解方程组应以x的分量形式写成.,2、使用Matlab软件求数值解时,高阶微分方程必须等价地变换成一阶微分方程组
21、.,注意:,例6-10 设有初值问题,试求其数值解,并与精确解相比较。(1)建立函数文件funt.m。function yp=funt(t,y)yp=(y2-t-2)/4/(t+1);(2)求解微分方程。t0=0;tf=10;y0=2;t,y=ode23(funt,t0,tf,y0);%求数值解y1=sqrt(t+1)+1;%求精确解tyy1,例6-11 求解著名的Van der Pol方程,并绘制系统时间响应曲线与系统相平面曲线。,首先将高阶微分方程必须等价地变换成一阶微分方程组.选择状态变量:,得方程组:,建立函数文件vdpol.m如下,function xdot=vdpol(t,x)xd
22、ot(1)=-(x(2)2-1)*x(1)-x(2);xdot(2)=x(1);xdot=xdot;,求解微分方程,命令如下:t0=0;tf=20;x0=0;0.25;t,x=ode45(vdpol,t0,tf,x0);t,x,结果为:ans=0 0 0.2500 0.0002-0.0001 0.2500 0.0004-0.0001 0.2500 0.0006-0.0002 0.2500.19.9121-0.7520 1.5581 20.0000-0.7961 1.4900,第一列为t的采样点,第2列与第3列分别为x与x对应于t点的值,做系统时间响应曲线与系统相平面曲线。subplot(1,2
23、,1);plot(t,x);title(系统时间响应曲线);xlabel(t);ylabel(x);subplot(1,2,2);plot(x(:,1),x(:,2);title(系统相平面曲线);xlabel(x(1);ylabel(x(2);,例6-12 有Lorenz模型的状态方程如下,试绘制系统时间响应曲线与系统相平面图。,其中,建立Lorenz模型的函数文件lorenz.m如下,function xdot=lorenz(t,x)xdot(1)=-8/3*x(1)+x(2)*x(3);xdot(2)=-10*x(2)+10*x(3);xdot(3)=-x(1)*x(2)+28*x(2)
24、-x(3);xdot=xdot;,求解微分方程,命令如下:x0=0,0,eps;t,x=ode23(lorenz,0,100,x0);t,x,结果为:0 0 0 0.0000 10.0000-0.0000 0.0000-0.0000 10.6250-0.0000-0.0000 0.0000 10.7813-0.0000 0.0000-0.0000.99.9877 29.4980 4.3925-0.9899 100.0000 28.4974 3.7674-1.0279,第一列为t的采样点,第2、3、4列分别为x1、x2与x3对应于t点的值,做系统时间响应曲线与系统相平面曲线。subplot(1,
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MATLAB 方程 优化 问题 求解
链接地址:https://www.31ppt.com/p-6512123.html