MathGroup Archive 2010

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

Search the Archive

Q about ParametricPlot3D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109998] Q about ParametricPlot3D
  • From: "S. B. Gray" <stevebg at ROADRUNNER.COM>
  • Date: Fri, 28 May 2010 07:21:33 -0400 (EDT)
  • Reply-to: stevebg at ROADRUNNER.COM

I would appreciate advice on these questions:

1. Why do I need Table in this expression:

ParametricPlot3D[Table[{(Cos[ang] xb + Sin[ang] yb)*radb + cenb,
    	  		(Cos[ang] xa + Sin[ang] ya)*rada + cena}^], {ang, 0, 2\[Pi]}, 
PlotStyle -> {Blue, Thickness[.01]}]

2. In the no-Table form that I expected to work,
  ParametricPlot3D[{(Cos[ang] xb + Sin[ang] yb)*radb + cenb,
   	  	   (Cos[ang] xa + Sin[ang] ya)*rada + cena},
{ang, 0, 2\[Pi]}, PlotStyle -> {Blue, Thickness[.01]}]

the Blue option works only for the first line and the Thickness option 
works only on the second line. (?) The first version (1.) works 
correctly but I don't know the syntax for giving each circle a different 
color. In actual use I will have a dozen or more circles and it is 
desirable to make every one have a different color.

3. In the first version I have put a ^ after "cena}" as a substitute for 
a similar symbol put there by Mathematica that's aligned with the bottom of the 
line. I think it's a warning but I don't know what it means. The plot 
works correctly even with it.

Steve Gray


  • Prev by Date: Re: exporting publishable 3D graphics
  • Next by Date: Re: Why?
  • Previous by thread: Re: Lists: how to?
  • Next by thread: Re: Q about ParametricPlot3D