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