Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

[Date Index] [Thread Index] [Author Index]

Search the Archive

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