Re: Multiple Styles

• To: mathgroup at smc.vnet.net
• Subject: [mg120630] Re: Multiple Styles
• From: Heike Gramberg <heike.gramberg at gmail.com>
• Date: Sun, 31 Jul 2011 23:35:19 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• References: <201107311125.HAA05169@smc.vnet.net>

```If you want the curves to have the same thickness but a different
colour, you could use BaseStyle to set the thickness and
PlotStyle to set the colours of the individual curves, so for example:

ParametricPlot3D[
Evaluate[Table[{2 i + Cos[th i] Sin[th], Sin[th i] Sin[th],
Cos[th]}, {i, 1, 4}]], {th, 0, 2 Pi},
BaseStyle -> Thickness[0.01], PlotStyle -> Table[Hue[i/4], {i, 4}]]

If you want the different curves to have different thicknesses as well,
you can combine them with the colours in PlotStyle like
for example

ParametricPlot3D[
Evaluate[Table[{2 i + Cos[th i] Sin[th], Sin[th i] Sin[th],
Cos[th]}, {i, 1, 4}]], {th, 0, 2 Pi},
PlotStyle -> Table[{Thickness[i 0.01], Hue[i/4]}, {i, 4}]]

Heike

On 31 Jul 2011, at 12:25, ace55555 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.
>

```

• Prev by Date: Another way to represent complex function graphically
• Next by Date: Re: [Mathematica] special iterator
• Previous by thread: Multiple Styles
• Next by thread: Re: Multiple Styles