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