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