MathGroup Archive 2009

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

Search the Archive

Re: Delay Differential Equations



Yun Zhao wrote:

> Hi,

> 

> Does anyone have experience working with delay differential equations in

> Mathematica 7? I found some help files on wolfram and Mathematica help, but

> the information available there were very limited. If anyone can refer me to

> other online or textual sources, I would really appreciate it. Thank you

> very much.

> 

> Mike

> 

> 

Hi,

you do not need a delayed differential equation. You simple have a rate 

change somewhere in time and NDSolve can handle this nicely:



sol = p /.

    NDSolve[ {p'[t] == - 0.0123 p[t] - 0.0367  If[t < 37, 0, p[t]],

       p[0] == 30000}

      , p, {t, 0, 120}][[1]];

Plot[sol[t], {t, 0, 120}]



cheers, Daniel Huber




  • Prev by Date: How to convert functionsto a form in terms of standard special
  • Next by Date: How to make large graphics object fit within a plot?
  • Previous by thread: Re: Re: Delay Differential Equations
  • Next by thread: how to find a function