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