Re: Multiple DE solutions in ParametricPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg102326] Re: [mg102284] Multiple DE solutions in ParametricPlot
• From: "David Park" <djmpark at comcast.net>
• Date: Wed, 5 Aug 2009 05:46:09 -0400 (EDT)
• References: <5122060.1249375510967.JavaMail.root@n11>

```XY = {x, y} /.
First /@ (NDSolve[{y'[t] + x[t] 2 == 0, -x'[t] + y[t]^3 == 2,
x[0] == #1, y[0] == #2}, {x, y}, {t, 0, 3.4}] & @@@ {{-2.1,
0.8}, {.5, .6}, {1, -.2}})

desolutions = Through[#[t]] & /@ XY

ParametricPlot[desolutions, {t, 0, 3.4}]

David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/

From: Narasimham [mailto:mathma18 at hotmail.com]

How may it be possible to get several ParametricPlots together? TIA
for pointing errors here.

XY = {x, y} /.
First /@ (NDSolve[{y'[t] + x[t] 2 == 0, -x'[t] + y[t]^3 == 2,
x[0] == #1, y[0] == #2},
{x, y}, {t, 0, 3.4}] & @@@ {{-2.1, 0.8}, {.5, .6}, {1, -.2}})

ParametricPlot[Evaluate[#[t] & /@ XY], {t, 0, 3.4}]

Regards
Narasimham

```

• Prev by Date: Manipulate
• Next by Date: Re: Slow start to AstronomicalData[]David Bailey,http://www.dbaileyconsultancy.co.uk
• Previous by thread: Re: Multiple DE solutions in ParametricPlot
• Next by thread: Re: Multiple DE solutions in ParametricPlot