Re: differential equation solve

• To: mathgroup at smc.vnet.net
• Subject: [mg68851] Re: differential equation solve
• From: Peter Pein <petsie at dordos.net>
• Date: Mon, 21 Aug 2006 03:28:02 -0400 (EDT)
• References: <ec97f9\$4bn\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```elvis schrieb:
> Here we often use mathematica to solve differential equations, when I
> encouter a equation with several constrains I set them to those values.
> But it cannot solve it and have the following warnings:
>
>     DSolve::deqx: Supplied equations are not differential equations of
> the given functions.
>
> Give a very simple differential equation here:
>
>   DSolve[{y'[x] == r*y[x], y[0] == a}, y, x]
>
> another equation:
>
> \!\(DSolve[{\(x'\)[t] == r*x[t] \((1 - x[t]\/xm)\), x[0] == x0}, x,
> t]\)
>
> this face anothe prolbem
>
> Can anyone help to "solve" this problem for me?
> Thanks!
>
Do you use Mathematica 0.1 alpha?

Even this one solves these equations:

\$Version
"4.0 for Microsoft Windows (July 16, 1999)"

DSolve[{Derivative[1][y][x] ==
r*y[x], y[0] == a}, y, x]

{{y -> (a*E^(r*#1) & )}}

DSolve[{Derivative[1][x][t] ==
r*x[t]*(1 - x[t]/xm),
x[0] == x0}, x, t]

{{x -> ((E^(r*#1)*x0*xm)/(-x0 + E^(r*#1)*x0 +
xm) & )}}

and so does 5.1 for Windows:

{{y -> Function[{x}, a*E^(r*x)]}}

{{x -> Function[{t}, (E^(r*t)*x0*xm)/
(-x0 + E^(r*t)*x0 + xm)]}}

Peter

```

• Prev by Date: Re: differential equation solve
• Next by Date: Re: "Skip this Input cell" module?
• Previous by thread: Re: differential equation solve
• Next by thread: RE: differential equation solve