Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Change the sum order in a polynomial
  • Next by Date: Re: Selecting by first element of each list
  • Previous by thread: Re: Change the sum order in a polynomial
  • Next by thread: Re: System of DE's