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.
>
- References:
- Multiple Styles
- From: ace55555 <yeivanye@gmail.com>
- Multiple Styles