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>