Matlab数学建模：连续模型

杨利霞

* a, p* {% H) t2 w. G# g' NMatlab数学建模：连续模型一、学习目标

（1）了解连续模型及解题步骤。

（2）掌握用 dsolve 求解常见的微分方程解析解。

（3）掌握用 ODE 家族的求解器求解数值解。

（4）掌握使用专用的求解器求解。

二、实例演练（1）谈谈连续模型在数学建模中的应用。

       连续模型是指模型是连续函数的一类模型总称，具体建模方法主要是微分方程建模。微分方程建模是数学建模的重要方法，因为许多实际问题的数学描述将导致求解微分方程的定解问题。把形形色色的实际问题化成微分方程的定解问题，大体上可以按以下几步：

    1. 根据实际要求确定要研究的量（自变量、未知函数、必要的参数等）并确定坐标系。

    2. 找出这些量所满足的基本规律（物理的、几何的、化学的或生物学的等等）。

    3. 运用这些规律列出方程和定解条件。

        MATLAB 在微分模型建模过程中的主要作用是求解微分方程的解析解， 将微分方程转化为一般的函数形式。 另外， 微分方程建模， 一定要做数值模拟， 即根据方程的表达形式， 给出变量间关系的图形， 做数值模拟也需要用 MATLAB 来实现。

微分方程的形式多样，微分方程的求解也是根据不同的形式采用不同的方法， 在建模比赛中， 常用的方法有三种：

    1. 用 dsolve 求解常见的微分方程解析解

    2. 用 ODE 家族的求解器求解数值解

    3. 使用专用的求解器求解

（2）常规微分方程的求解

微分方程在 MATLAB 中固定的表达方式， 这些基本的表达方式如下表所示：

对于通常的微分方程， 一般需要先求解析解， 那么 dsolve  是首先考虑的求解器，因为dsolve 能够求解解析解，其具体的用法如下：

[实例]求微分方程 xy'+y-e^x=0 在初始条件 y(1)=2e 下的特解，并画出解函数的图形．

求解本问题的 Matlab 程序为：

• 
  
  * `. m6 \# h; S  ~; V+ ysyms x y
  : S0 Y( W" h  E* g' O
  
• 
  
  - ]$ n) _( ^2 W7 v! a+ Vy=dsolve('x*Dy+y-exp(x)=0','y(1)=2*exp(1)','x')
  
  . J: Y4 Z( G- G( W. H* O3 }- g8 I
• 
  + r) s4 D: R# k5 J: W
  ezplot(y)
  : O& w. r& Q2 D4 e& j4 D$ l
  
  0 v. J( [# C! u( R% ~0 a1 f* B

微分方程的特解为：y=1/x*exp(x)+1/x*exp (1) (Matlab格式)，即 y=(e+e^x)/x ，此函数的图形如下图：

（2）ODE 家族求解器

如果微分方程的解析形式求解不出来， 那么退而求其次的办法是求解数值解， 那么这个时候就需要用 ODE 家族的求解器求解微分方程的数值解啦。

因为没有一种算法可以有效地解决所有的 ODE 问题，为此，MATLAB 提供了多种求解器，对于不同的 ODE 问题，采用不同的 Solver。MATLAB 中常用的微分方程数值解的求解器及特点如下表所示。

要特别提醒的是：ode23、ode45 是极其常用的用来求解非刚性标准形式一阶常微分方程(组)初值问题解的 Matlab 的常用程序，其中：

ode23 采用龙格-库塔2 阶算法，用3 阶公式作误差估计来调节步长，具有低等的精度．

ode45 则采用龙格-库塔4 阶算法，用5 阶公式作误差估计来调节步长，具有中等的精度．

[实例]导弹追踪问题

设位于坐标原点的甲舰向位于 x 轴上点 A(1, 0) 处的乙舰发射导弹，导弹头始终对准乙舰。如果乙舰以最大的速度 v0 (是常数)沿平行于 y 轴的直线行驶，导弹的速度是 5*v0，求导弹运行的曲线方程，以及乙舰行驶多远时，导弹将它击中？

记导弹的速度为 w，乙舰的速率恒为 v0。设时刻 t 乙舰的坐标为 (X(t),Y(t))，导弹的坐标为 (x(t),y(t)) 。当零时刻，(X(0),Y(0))=(1,0)，(x(0),y(0))=(0,0)，建立微分方程模型：

因乙舰以速度 v0 沿直线 x=1 运动，设 v0=1，w=5，X=1，Y=t，因此导弹运动轨迹的参数方程为：

MATLAB 求解数值解程序如下：

(1) 定义方程的函数形式：

• 
  
  function dy=eq2(t,y)
  
  
• 
  # c6 f( [% X% \5 I
  dy=zeros(2,1);
  
  
• 
  ; B  k) R( c" E9 o' C5 x0 q
  " i, b5 b0 g$ O: }% ydy(1)=5*(1-y(1))/sqrt((1-y(1))^2+(t-y(2))^2);
  ' d  v2 X2 b4 J" j" U
  
• 
  
  dy(2)=5*(t-y(2))/sqrt((1-y(1))^2+(t-y(2))^2);
  % e* U7 ^* N) a- K4 K3 H! k
  ' u( t8 u3 r/ i4 S: d
  ( \: C, w- m# M0 b+ m

2) 求解微分方程的数值解

• 
  
  t0=0,tf=0.21;
  
  
• 
  ( \+ R4 J( }& R; ^$ u2 |
  8 R' t' Y, a" o7 A. R$ f  D[t,y]=ode45('eq2',[t0 tf],[0 0]);
  
  * w  Y; w' a6 e5 x2 v
• 
  
  * m; B3 d; F2 H; N; n  ~+ s+ WX=1;Y=0:0.001:0.21;plot(X,Y,'-')
  , m, x1 G$ O6 b3 ^
  
• 
  # H' N' s0 C7 M! D, D2 g$ h
  plot(y(:,1),y(:,2),'*'),hold on
  8 B2 p# L8 Z/ M" M3 `- }) n
  
• 
  " \5 ]+ u" z8 b- ^( a' E
  7 r5 t, L' q: t* }6 Rx=0:0.01:1; y=-5*(1-x).^(4/5)/8+5*(1-x).^(6/5)/12+5/24;
  
  6 X  b) B; D# c6 R2 ?" n. z* T
• 
  
  plot(x,y,'r')
  
  
• 
  
  
  
  
  

（3）专用求解器

对于复杂的微分方程模型的求解， 可以借助 MATLAB 偏微分方程工具箱中的专用求解器。以下将以一个实例来看看如何借助偏微分方程工具箱来实现一个微分方程的求解与数值仿真。

所研究的对象是一个二阶波的方程：

这个时候要查看一下 MALTAB 中哪个函数能求解相类似的方程， solvepde 可以求解的方程形式为：

可以发现只要通过参数设定就可以将所要求解的方程转化成这种标准形式。

具体求解步骤如下：

(1)  设置参数

• 
  % j% _1 \7 j" u2 j* J" w
  3 Z4 z8 G! b  Q2 ]4 Qc = 1;
  
  & U  t$ h0 `: L; Z1 x
• 
  0 ?. `' t8 C4 L2 u- h
  
  . v& w1 @) f, q
  
• 
  
    Z8 C2 _7 M: A2 j2 L" I$ ba = 0;
  
  
• 
  1 q* w1 k# Z5 \: j4 F" U5 U$ m
  * ?3 w$ o5 \4 a* L7 ~, }
  0 k" h+ o; N( E! V, r- ?
  # g" X& s1 B. H
• 
  
  ) F# |* o( X  i7 o" Nf = 0;
  
  ; T/ J4 w+ Z9 Q$ }$ Q
• 
  0 F: F! D) l9 [+ I& @) p( c
  6 q; U! X9 P5 O
  
  
• 
  
  2 H) Y( F' @- F% S3 ~: Om = 1;
  - u. k, ?: W) I) o0 h( I
  4 D9 l) J% C! K* ]( O0 p2 n
  

(2)  定义波的空间位置

• 
  
  numberOfPDE = 1;
  
  ) }2 |! a0 E, R2 i7 D* y
• 
  : t" h- [, m  _7 J4 A7 n
  + s# v% N$ J5 h
  . u# [7 {4 }4 [1 f$ f! \
  6 I2 ~" _  C8 P4 ~8 r
• 
  ( u1 a: @4 C$ K- q* `2 J& \
  9 f$ }3 I: m1 g2 _- c7 b( |model = createpde(numberOfPDE);
  
  $ p4 ?3 ~( E3 K
• 
  
  & p  r, k4 S- A" h+ w8 K& y1 k7 c
  
  
• 
  
  4 k. [, ~+ ?/ x4 v: O1 M, `geometryFromEdges(model,@squareg);
  
  
• 
  
  ' n; K; r- @+ j- K
  
  . V+ ~+ ?5 E8 y3 A0 @  o- o
• 
  
  3 x* |; d% k$ \- y* P$ Jpdegplot(model,'EdgeLabels','on');
  
  
• 
  
  
  
  / g) y( o0 \6 r/ p; _
• 
  + R. u6 S% Q4 o  [5 m; b2 S
  9 R' o8 R3 D0 x( g4 M# ~# Lylim([-1.1 1.1]);
  " F% l# u; n* M4 W, U
  0 g" k: u4 q7 U( a
• 
  
  
  0 j. p. t# z7 I9 c% Q2 L
  ; ?8 u& X$ T- b: I$ x" m
• 
  - a, L, k/ i9 q+ I+ P) D' U( B
  axis equal
  ! O8 j1 ~- G" t* d$ D- b/ q
  
• 
  % w! u; g1 c. Z# t) b/ q8 I7 U0 V
  
  ( [8 r# V" F/ O+ S
  . d. m6 k' ]; l
• 
  
  title 'Geometry With Edge Labels Displayed';
  
  6 G" U; R2 q$ k# i  @0 a3 \
• 
  % ]1 \- x5 {' t  x  X0 E- W
  
  : c; Q  |8 v: O( C) g, S! D
  ' ?! k9 P4 z& P7 {9 w6 i
• 
  
  xlabel x
  
  
• 
  
  
  5 {, B9 s4 m+ }( S) C- z
  
• 
  
  ylabel y
  . A* D$ y6 f# V7 d, g, k
  & c8 {( t4 ^& V* C4 N3 e
  

(3)  定义微分方程模型的系数和边界条件

• 
  
  3 \- Z5 F% h* Q& s9 zspecifyCoefficients(model,'m',m,'d',0,'c',c,'a',a,'f',f);
  9 V$ Q1 V$ o. p+ y) o7 ^" S, I
  0 R% v* }' w6 l& ~- k& p# M  ^
• 
  
  9 z' f: q7 |) W
  
  3 @" p. N8 F  y$ P, I- Q9 ~
• 
  2 I; |& a5 g* D  T+ ~1 O5 D
  applyBoundaryCondition(model,'dirichlet','Edge',[2,4],'u',0);
  9 i# |+ J( x, g8 `; \
  
• 
  ( e6 h9 ?( m6 D9 [
  $ X% ]" w' K, V3 B2 u
  6 a  N" [% }7 U8 r8 x
  $ P4 t, O: K% b& g, h- V. @
• 
  ! f  Z% D9 Z6 ?  s
  ; y! v" s# A) U; m7 QapplyBoundaryCondition(model,'neumann','Edge',([1 3]),'g',0);
  + o3 D" I, F# x( C2 z. Y7 W/ v
  7 d" Y  w4 q4 B! Q
  

4)  定义该问题的有限元网格

• 
  
  generateMesh(model);
  2 N, {# p" U( A# \0 s5 I- \& g
  
• 
  
  
  
  & n8 f  J4 a) {; |  Z
• 
  
  1 `1 C- b2 o" m3 wfigure
  ' U5 j, W4 K7 Z( `/ T
  
• 
  " Q1 Q0 F, j2 ~. o
  1 f7 H0 F# \6 S5 b' y8 }
  
  ) U9 v! U4 c6 X7 X
• 
  ( X" z& L  h% m+ i1 @5 }7 I& _
  ( N& [, f! i; V4 vpdemesh(model);
  
  
• 
  # E7 K6 n4 ^3 L1 D; _5 j8 z
  5 I7 |2 D' F/ u
  
  
• 
    H) ~" f7 n$ m/ S1 _' w1 W
  ; {/ u: D" [& s0 k1 X& Kylim([-1.1 1.1]);
  % V8 m$ b3 {: h( K+ p; `( j  n
  
• 
  6 P" W; s+ i* t( g8 G2 S, u+ [
  + x4 u6 |4 d9 X4 @0 \0 p
  8 j8 D5 m- ~7 p$ m6 G/ D
  . P7 n* j- O: i" E  V0 x  `  u0 @5 _
• 
  
  axis equal
  
  
• 
  
  
  ' ^6 P7 Y+ ~% e) C  M' S2 B$ K5 z
  
• 
  # f( U- o4 N: L) ~$ V: v
  xlabel x
  
  5 e. u( M/ J5 V6 T
• 
  : n! Y- O* X% O' ?# x6 l
  8 j7 ~  u4 d$ j
  
  
• 
  , k! D6 g# P+ o8 E9 f
  . D( |0 ]# h. H( K/ t% r* Aylabel y
  " h+ S( G3 P9 U0 V" {+ a
  0 T% \$ f" i& O7 a
  3 B1 J$ j4 Q9 `2 M

(5)  定义初始条件

• 
  ! J  B. S5 Y" W4 `) |8 W
  u0 = @(location) atan(cos(pi/2*location.x));
  $ h, n( Y1 @: t/ [) L, p) w; _
  
• 
  
  * ?% P, b( L  |, c
  4 L# A" q/ E- Y8 p
  6 D$ g! M- O& O
• 
  
  ut0 = @(location) 3*sin(pi*location.x).*exp(sin(pi/2*location.y));
  2 [% X5 M; U& v( u% t! ]: n
  
• 
  
  
  # Z/ t* j$ U# n% |9 \5 \: h, b  t. E
  
• 
  
  ( c! h" v3 N, ysetInitialConditions(model,u0,ut0);
  
  ( i& h( ^" s8 q: L
  

(6)  方程的求解

• 
  
  n = 31;  % 求解次数
  . ~6 l& H# V$ ]& T6 b
  
• 
  
  
  $ W0 ^8 X% S. x/ ?; ?
  
• 
  + m2 q8 N: e8 I( E1 U6 s5 L
  tlist = linspace(0,5,n);
  
  
• 
  2 \7 Q, }7 R7 v0 J( V" y- h
  ; h0 _$ V% C3 A
  
  3 a. y) d3 I9 Q1 @" g
• 
  
  model.SolverOptions.ReportStatistics ='on';
  
  7 r2 ^7 P) l$ Q1 _8 c* g1 r" d
• 
  
  
  + E+ S2 J4 X! M* t! D6 l, g2 B( G" D
  
• 
  # i/ r4 w& L0 h/ W, B- S8 R- X
  result = solvepde(model,tlist);
  
  
• 
  $ r: l6 v6 ^8 }5 m
    m9 M% ?3 l  }2 k) l
  6 Q2 g) v& n! W% o8 H( b
  
• 
  
  u = result.NodalSolution;
  : W9 A! q+ c5 B" w
  ( l% V. ], l; ?8 N" ^1 B
  . S0 Z1 D# t4 B

(7)  模型的数值仿真

• 
  
  figure
  ( U' ], I4 {/ _& U
  2 c1 t& s  V7 A+ p, p
• 
  3 a$ g2 }6 C. b7 I
  3 u! i7 _0 x& z7 k* S3 Q
  $ c3 C9 @% d% r& V6 k* e2 \1 V
  8 I( {7 v/ R! M% t1 L! e. E5 l
• 
  / K# P9 {$ _9 j& y
  ) R- f. x  \. N) Uumax = max(max(u));
  0 D  d3 a/ P, j3 `0 c; e
  1 V' r5 X$ h$ z0 O
• 
  : V* V' Z/ B9 o7 v! p
  ) V* L$ f  j2 O" R+ ?# A1 e
  
  
• 
  
  umin = min(min(u));
  4 I3 A; a9 f1 ?5 C
  
• 
    b; Y! ]  X/ q) Y- f# e# G9 T6 J
  $ T* [8 A/ I4 ]$ N- V
  , G3 d. }: x1 a/ n! p
  4 K6 m* m# T+ O9 ?4 M' O
• 
  " ^( l8 a, _/ a4 i. B
  2 a9 {9 d( [: O9 E6 B5 Wfor i = 1:n
  / v; I9 v0 M8 A5 P& O% q4 x; o7 y
  
• 
  0 [5 |' E$ L5 m; |2 r. M9 o# ?
  ( T- S8 Z( f1 ?( n# p
  
  3 S8 I+ H1 q, W/ l
• 
  
      pdeplot(model,'XYData',u(:,i),'ZData',u(:,i),'ZStyle','continuous',...
  
  
• 
  3 y" s/ {' C4 ^
  ( s0 H. C" T6 ~& o5 Q0 L* ?! }; c
  ! s+ Y* v1 U- B3 g# Q
  $ M2 y  ]7 {: g& e7 b; g
• 
  & b# W+ v& e6 h, k( \4 U
                    'Mesh','off','XYGrid','on','ColorBar','off');
  
  / ^  H7 V, {0 C7 o, t
• 
  ( q5 Z" Y) P6 N6 W: _
  
  5 h$ @0 w6 U' u8 i& p
  
• 
  ! m5 _+ g& d# G7 Z
      axis([-1 1 -1 1 umin umax]);
  : ?+ V: o" l( L* V
  
• 
  
  ) Z, O7 v! ~* R+ j. H+ P
  " A, G! k/ X1 ^/ j0 W  G
  . z4 B3 u" k. T9 l0 r- [5 @: Z( N/ P
• 
  0 ?7 ], X! n7 m$ [4 M( B1 x5 m3 h
  % |2 y/ D, m( Q5 {; H    caxis([umin umax]);
  $ W5 P  h2 @! S1 r* n: {, j7 N/ L
  
• 
  
  
  1 m! X2 \( ~: a' b
  1 ?* Z7 p" C8 C$ Y6 J3 Z' @, `
• 
  . \% W: y1 f' T8 H* m( z0 T
  8 E6 A9 {) z; k    xlabel x
  ( _2 f5 x1 O" `0 i
  
• 
  
  4 I6 Z# r% [2 s1 P
  
  : [: d  O; F$ Q2 G$ B2 @+ _. k
• 
  7 Z2 ^  h% {5 ~/ U
      ylabel y
  1 F3 }; q. y; \' m8 `4 p3 b; O
  
• 
  0 [9 d4 {4 o) A: v
  
  
  - }0 e5 ~2 O. @. D$ I% O) k. X0 ^
• 
  
  ! s  O1 k) B( W6 ?8 l5 ?; D    zlabel u
  
  
• 
  
  - j- B) G+ T8 d1 f! w0 W2 K  @
  
  : _% ?) y5 j- \/ K; {
• 
  
      M(i) = getframe;
  
  # `7 E  N$ F* P) `
• 
  
  
  
  
• 
  1 W! @1 P( O8 X4 j8 f; r- e* w( T
  $ n, P0 k7 ~2 b: Fend
  
  " G% Y( R% Y7 M7 V( q! U- C$ d
• 
  
  
  
  - x+ j% x, k' L+ ~
  & r7 R% R; ^4 D- E7 u+ P

& ^- m2 x5 w! b6 M
/ s' o  K1 F5 D