Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Help with ParametricPlot3D in color
Replies: 2   Last Post: Jul 19, 1996 3:06 AM

 Messages: [ Previous | Next ]
 Ivan Lima Posts: 1 Registered: 12/11/04
Help with ParametricPlot3D in color
Posted: Jul 17, 1996 1:35 AM

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@nauplius.rsmas.miami.edu | \__ _/ \|
http://nauplius.rsmas.miami.edu/homepage/home.html | \_|

Date Subject Author
7/17/96 Ivan Lima
7/19/96 Wolfram
7/19/96 Victoria Steblina