Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1996
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1996

[Date Index] [Thread Index] [Author Index]

Search the Archive

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)