已知含有9个微分的微分方程组，带参数，根据已知数据，拟合曲线，得参数最优解

adogpp

% syms s(t) e(t) i1(t) p(t) h(t) f(t) iph(t) %定义符号变量
0 [- {# N; J+ n) W/ t9 j$ y. u2 g, X% syms Beta IoTa Beta_2 Kappa Rho_1 Rho_2 Gamma_a Gamma_i Gamma_r Delta_i Delta_p Delta_h 希腊字母参数
N = 11000000/250;
* F2 A% k) ~- B8 s+ o# [! F%dS/dt
dy(1)=-Beta*(y(3)/N)*y(1)-Iota*Beta*(y(6)/N)*y(1)-Beta_2*(y(4)/N)*y(1);
%dE/dt
; Q* ^  J- u/ O! }' wdy(2)=Beta*(y(3)/N)*y(1)+Iota*Beta*(y(6)/N)*y(1)+Beta_2*(y(4)/N)*y(1)-Kappa*y(2);
%dI/dt
dy(3)=Kappa*Rho_1*y(2)-(Gamma_a+Gamma_i)*y(3)-Delta_i*y(3);
%dP/dt
dy(4)=Kappa*Rho_2*y(2)-(Gamma_a+Gamma_i)*y(4)-Delta_p*y(4);
%dA/dt
4 `) J4 j/ d9 o2 E6 R9 F: a( jdy(5)=Kappa*(1-Rho_1-Rho_2)*y(2);
: K, x1 x3 p- g9 Z9 f% j2 R% `%dH/dt
0 Z2 Z' m8 k4 V( Pdy(6)=Gamma_a*(y(3)+y(4))-Gamma_r*y(6)-Delta_h*y(6);
%dR/dt
; I$ {6 G4 E4 {. }0 Xdy(7)=Gamma_i*(y(3)+y(4))+Gamma_r*y(6);
/ Q+ G+ y, o  T%dF/dt
( p2 O' g. p$ j! U& @2 S, Sdy(8)=Delta_i*y(3)+Delta_p*y(4)+Delta_h*y(6);%
%d(I+P+H)/dt
dy(9)=dy(3)+dy(4)+dy(6);
" Y3 e3 q9 h" }( T%y(9)数据
y9data1 = [6,  12,  19,  25,  31,  38,  44,  60,  80,  131,  131,  259,  467,  688,  776 ...,
, {: D. z' o1 z. b3 P: e         1776,  1460,  1739,  1984,  2101,  2590,  2827,  3233,  3892,  3697,  3151 ...,
- g2 ?7 i5 b& L         3387,  2653,  2984,  2473,  2022,  1820,  1998,  1506,  1278,  2051,  1772 ...,
         1891,  399,  894,  397,  650,  415,  518,  412,  439,  441,  435,  579,  206 ...,
         130,  120,  143,  146,  102,  46,  45,  20,  31,  26,  11,  18,  27,  29,  39,  39];
%y(8)数据
0 v9 v2 O" r1 B+ m0 F& Ly8data1= [0,  0,  0,  0,  0,  0,  0,  0,  4,  4,  4,  8,  15,  15,  25,  26,  26 ...,
    38,  43,  46,  45,  57,  64,  66,  73,  73,  86,  89,  97,  108,  97,  254 ...,
    121,  121,  142,  106,  106,  98,  115,  118,  109,  97,  150,  71,  52,  29 ...,
6 K3 ^' B9 ^7 G) t) k    44,  37,  35,  42,  31,  38,  31,  30,  28,  27,  23,  17,  22,  11,  7,  14 ...,
    10,  14,  13,  13];
2 \) Y8 e$ n: }1 x

csbo125

不怎么了解，有待学习

xiaogegepcb

帮顶

CCxiaom

这是让我们看你写的程序呀

pulbieup

你这个看着应该属于微分方程拟合问题吧，不知道t数据在哪儿？

adogpp

pulbieup 发表于 2020-12-8 13:48
. z- o0 v  e9 C( }7 V你这个看着应该属于微分方程拟合问题吧，不知道t数据在哪儿？

$ p( r2 o* N: ~% ]; n2 L* k0 P是的，t=1:1:66.我在网上收了很多相关数据，目前找到很多拟合的方法，但就对这个微分方程组难处理

pulbieup

adogpp 发表于 2020-12-8 14:08
是的，t=1:1:66.我在网上收了很多相关数据，目前找到很多拟合的方法，但就对这个微分方程组难处理

+ \. l* c8 f+ T6 M5 m5 V用1stOpt试试，应该可以解决
  o. b$ n* |0 ?4 _