Re: Multiple Styles
- To: mathgroup at smc.vnet.net
- Subject: [mg120643] Re: Multiple Styles
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Mon, 1 Aug 2011 06:57:44 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Reply-to: hanlonr at cox.net
Use Directive
ParametricPlot3D[
Evaluate[Table[Tooltip[{t, Sqrt[t], t^n}], {n, 4}]],
{t, 0, 1},
PlotStyle -> Table[Directive[Thickness[0.01], color],
{color, {Red, Green, Blue, Black}}]]
Bob Hanlon
---- ace55555 <yeivanye at gmail.com> wrote:
=============
I am trying to change both the thickness and color of four parametric curves using PlotStyle. However, I either get the thickness or the colors to work but not both. I tried two different lines of code at the end of ParametricPlot3D:
..,PlotStyle -> {{RGBColor[1,0,0]},{RGBColor[0,1,0]},{RGBColor[0,0,1]},{RGBColor[0,0,0]}},PlotStyle -> {Thickness[0.01]}
..,PlotStyle -> {{RGBColor[1,0,0]},{RGBColor[0,1,0]},{RGBColor[0,0,1]},{RGBColor[0,0,0]},{Thickness[0.01]}}
It would be deeply appreciated if someone could help me on this matter. Thanks.