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] ====