MathGroup Archive 2009

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

Search the Archive

Re: Multiple DE solutions in ParametricPlot


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