码迷,mamicode.com
首页 > 其他好文 > 详细

Matlab求解常微分问题

时间:2020-05-24 11:53:29      阅读:184      评论:0      收藏:0      [点我收藏+]

标签:掌握   否则   function   ica   图片   table   问题   -o   open   

实验目的

  熟悉掌握微分方程的求解;会运用Matlab软件求微分方程的数值解;会运用Matlab软件做简单的编程。

实验要求

  实验步骤要有模型建立,模型求解、结果分析。

实验内容


 (一)微分方程精确解

  1. 求解微分方程y‘=x+x3 ,并作出其积分曲线.
  2. 求解微分方程y‘-(2y/x+1)=(x+1)(5/2),并作出其积分曲线。

 (二) 微分方程的数值解

  在区间[1,4]上求出微分方程xy‘-x2ysinx+1=0,y|x=1=1,的数值解,并作出数值解的图形。


实验步骤


 (一)已知题目要求为解出微分方程的精确解,本报告使用MATLAB的dsolve()函数求其解析解,dsolve(‘方程1’,‘方程2’,…,‘方程n’,…,’初始条件’,’自变量’)。

  解:(1)本文使用MATLAB求解,在做其积分曲线时,取x从0到1的区间,常数项从-10到10,代码

技术图片
1 %题1
2 y=dsolve(Dy=x+x^3,x);
3 figure(1);hold on
4 for C11=-10:1:10
5 x=(0:.1:1);
6 plot(x,C11+(x.^2.*(x.^2 + 2))./4,LineWidth,2)
7 end
题1_MATLAB

  步骤:

  1、求出微分方程的通解

  >> y=dsolve(‘Dy=x+x^3‘,‘x‘)

  y =

  C11 + (x^2*(x^2 + 2))/4

  2、作图,运行上述代码

  技术图片

  因此解得y=x2(x2+2)/4+c11,积分曲线如上示。当然使用Mathematica求解如下

技术图片
1 DSolve[y[x] == x + x^3, y[x], x]
2 t = Table[c + (1/2)*x^2 + (1/4)*x^4, {c, -3, 3}];
3 Plot[Evaluate[t], {x, -1.5, 1.5}]
题1Mathematica

  运行示例  

  {{y[x] -> x^2/2 + x^4/4 + C[1]}} 

 技术图片

  (2)步骤同上,代码

技术图片
1 y=dsolve(Dy-(2*y)/(x+1)=(x+1)^(5/2),x);
2 figure(1);hold on
3 for C13=-10:1:10
4 x=(0:.1:1);
5 plot(x,(2.*(x + 1).^(7/2))/3 + C13.*(x + 1).^2,LineWidth,2);
6 end
题2_MATLAB

  运行示例

  >> y=dsolve(‘Dy-(2*y)/(x+1)=(x+1)^(5/2)‘,‘x‘)

  y =

  (2*(x + 1)^(7/2))/3 + C13*(x + 1)^2

  曲线积分

  技术图片

  解得,技术图片,图上示。

技术图片
1 DSolve[y[x] - 2*y[x]/(x + 1) == (x + 1)^(5/2), y[x], x]
2 t = Table[(x + 1)^2*(2 (x + 1)^(3/2)/3 + c), {c, -3, 3, 2}];
3 Plot[Evaluate[t], {x, -1, 2}]
题2_Mathematica

  运行示例

  {{y[x] -> 2/3 (1 + x)^(7/2) + (1 + x)^2 C[1]}}

  技术图片


 (二)微分方程的数值解

  解:数值解,本报告使用MATLAB的ode45函数,步骤如下

  先编写函数odefun.m如下

技术图片
1 function dy=odefun(x,y)
2 %dy=0;
3 dy=x*y*sin(x)-1/x;
4 end
odefun.m

  再编写如下代码

技术图片
1 %题二
2 [T,Y]=ode45(odefun,1:.01:4,1);
3 plot(T,Y(:,1),-o)
题二

  运行示例

技术图片

   使用Mathematica求解如下

技术图片
1 Clear[f, x]
2 sol = NDSolve[{x*y[x] - x^2*y[x]*Sin[x] + 1 == 0, y[1] == 1}, 
3   y[x], {x, 1, 4}]
4 f[x_] := Evaluate[y[x] /. sol]
5 Plot[f[x], {x, 1, 4}, PlotRange -> All]
题二Mathematica

  技术图片

  技术图片


小结

  在使用MATLAB求解常微分问题之前,最好先学会手算,否则可能会出现学会了使用MATLAB求解常微分的问题,却不知到得到的答案是什么意思。

 

Matlab求解常微分问题

标签:掌握   否则   function   ica   图片   table   问题   -o   open   

原文地址:https://www.cnblogs.com/jianle23/p/12947776.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!