[Date Index]
[Thread Index]
[Author Index]
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**
| |