System of DE's
- To: mathgroup at smc.vnet.net
- Subject: [mg48164] System of DE's
- From: Virgil Stokes <virgil.stokes at neuro.ki.se>
- Date: Fri, 14 May 2004 20:59:37 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
How can the following system of differential equations be solved in
Mathematica 5.0.0.0?
Note, f3 has a delay in it.
vars = {x[t], y[t], z[t]};
k1 = 0.0001; k2 = 0.1;
k3 = 0.0001;
n = 2000;
f1 = -k1 x[t] y[t] - k3 x[t] z[t];
f2 = -k2 y[t] + k1 x[t] y[t] + k3 x[t] z[t];
f3 = k2 (y[t] - y[t - 14]);
inits = {x[0] == n - 10, y[0] == 10, z[0] == 0};
eqns = {x'[t] == f1, y'[t] == f2, z'[t] == f3};
Thanks,
--V. Stokes