
Help with ParametricPlot3D in color
Posted:
Jul 17, 1996 1:35 AM


I'm trying to plot some phase portraits of a threedimensional 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@nauplius.rsmas.miami.edu  \__ _/ \ http://nauplius.rsmas.miami.edu/homepage/home.html  \_

