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

```

• Prev by Date: Re: ListPlot the output of Print
• Next by Date: Re: Exporting and Editing MMA Graphics?
• Previous by thread: Re: Help with ParametricPlot3D in color
• Next by thread: Help!! Kernel shutting down(pc)