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