Re: Help with ParametricPlot3D in color
- To: mathgroup at smc.vnet.net
- Subject: [mg4480] Re: Help with ParametricPlot3D in color
- From: vvs124 at rsphy1.anu.edu.au (Victoria Steblina)
- Date: Mon, 29 Jul 1996 02:37:31 -0400
- Organization: Optical Sciences Centre, ANU
- Sender: owner-wri-mathgroup at wolfram.com
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.
>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.}]
Hi,
you need to use the LineForm primitive in Graphics3D.
Do the ParametricPlot first then display the result using Show:
ParametricPlot3D[Evaluate[{x[t],y[t],z[t]} /. %],
{t, 100, 20000}, PlotPoints -> 20000,
PlotRange -> {{0, 6}, {0, 2}, {0, 1}},
ViewPoint -> {1.3, 2.4, 2.}]
Show[ Graphics3D[ {LineForm[Hue[0.5]], %[[1]]}, %[[2]] ],
AspectRatio -> Automatic ]
Latter will redisplay lines in radiant blue. For 3D surfaces analogous
directive would be the EdgeForm.
I hope this helps
Vicki
________________________________________________________________
Victoria Steblina
vvs124 at rsphy1.anu.edu.au
Optical Sciences Centre
Australian National University
==== [MESSAGE SEPARATOR] ====