Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

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

Search the Archive

Re: Help with ParametricPlot3D in color

  • To: mathgroup at smc.vnet.net
  • Subject: [mg4467] Re: Help with ParametricPlot3D in color
  • From: wolfram at 3rd.eye.world (Wolfram)
  • Date: Mon, 29 Jul 1996 02:37:22 -0400
  • Organization: 3rd Eye
  • Sender: owner-wri-mathgroup at wolfram.com

In article <4shu3n$g7n at ralph.vnet.net>, ivan at nauplius.rsmas.miami.edu
(Ivan Lima) wrote:

> I'm trying to plot some phase portraits of a three-dimensional system
> with ParametricPlot3D and I'd like it to plot the lines in
> color. After two days looking at the manuals I can't find any way to
> do that. Does anybody know how to do that?  Sorry for posting such a
> stupid question. I'm kind of new to Mathematica graphics and any
> help will be appreciated
> 
> Bellow are the commands I'm using.
> 
> In[1]:= NDSolve[{x'[t] == r x[t] - c x[t]^2 - g (x[t]/(x[t]+h)) y[t],
>          y'[t] == g (x[t]/(x[t]+h)) y[t] e - m y[t] - p (y[t]/(y[t]+i)) z[t],
>          z'[t] == p (y[t]/(y[t]+i)) z[t] e - n z[t],
>          x[0] == 0.1, y[0] == 0.1, z[0] == 0.1},
>          {x, y, z}, {t, 0, 20000}, MaxSteps->250000]    
> 
> Out[1]= {{x -> InterpolatingFunction[{0., 20000.}, <>], 
>  
> >     y -> InterpolatingFunction[{0., 20000.}, <>], 
>  
> >     z -> InterpolatingFunction[{0., 20000.}, <>]}}
> 
> In[2]:= ParametricPlot3D[Evaluate[{x[t],y[t],z[t]} /. %], 
>                           {t, 100, 20000}, PlotPoints -> 20000, 
>                            PlotRange -> {{0, 6}, {0, 2}, {0, 1}},
>                            ColorOutput -> RGBColor,
>                            ViewPoint -> {1.3, 2.4,
2.}]                                    
> Out[2]= -Graphics3D-
> 
> 
> Thanks
> 
> Ivan
> --
>                                                                /|
>   Ivan Lima                                           | O   __/ |_     
>   Rosenstiel School of Marine and Atmospheric Science |  o /o     \_/| 
>   Division of Marine Biology and Fisheries            |   (    <   _ | 
>   ivan at nauplius.rsmas.miami.edu                       |    \__   _/ \| 
>   http://nauplius.rsmas.miami.edu/homepage/home.html  |       \_|      


What might work is the following:

plst = ParametricPlot3D[Evaluate[{x[t],y[t],z[t]} /. %], 
>                           {t, 100, 20000}, PlotPoints -> 20000, 
>                            PlotRange -> {{0, 6}, {0, 2}, {0, 1}},
>                            ColorOutput -> RGBColor,
>                            ViewPoint -> {1.3, 2.4, 2.}]

Show[{Graphics3D[RGBColor[1,0,0]],plst}];

Should get you the graph in red.

==== [MESSAGE SEPARATOR] ====


  • Prev by Date: Re: reverse an axis
  • Next by Date: Re: Re: Re: help! to input data...
  • Previous by thread: Help with ParametricPlot3D in color
  • Next by thread: Re: Help with ParametricPlot3D in color