Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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