Re: Piecewise ColorFunction
- To: mathgroup at smc.vnet.net
- Subject: [mg125664] Re: Piecewise ColorFunction
- From: Alexei Boulbitch <Alexei.Boulbitch at iee.lu>
- Date: Wed, 28 Mar 2012 00:31:51 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
On Sunday, March 25, 2012 12:19:21 AM UTC-5, Hugh Goyder wrote:
> The first example below works to give a plot style with colours that vary
with y-values. I then try to define a Piecewise function for the colour and this does not work. Am I doing something wrong? Thanks for any assistance.
>
> Plot[Sin[x], {x, 0, 4 Pi}, PlotStyle -> Thick,
> ColorFunction -> Function[{x, y}, ColorData["NeonColors"][y]]]
>
>
> ClearAll[f];
> f[x_, y_] := Piecewise[{{Green, y < 0}, {Red, y >= 0}}]
>
>
> Plot[Sin[x], {x, 0, 4 Pi}, PlotStyle -> Thick, ColorFunction -> f]
I think this does what you want:
Plot[Sin[x], {x, 0, 4 Pi}, PlotStyle -> Thick, ColorFunctionScaling -> False, ColorFunction -> (Piecewise[{{Green, #2 < 0}, {Red, #2 >= 0}}] &)]
Dear community,
In the above solution (given by David) the parentheses play an intriguing role. Indeed the solution above works, while the same solution but without the round parentheses flanking the Piecewise function, i.e. the following:
Plot[Sin[x], {x, 0, 4 Pi}, PlotStyle -> Thick, ColorFunctionScaling -> False, ColorFunction -> Piecewise[{{Green, #2 < 0}, {Red, #2 >= 0}}] &]
does not work. I wonder, why?
Alexei BOULBITCH, Dr., habil.
IEE S.A.
ZAE Weiergewan,
11, rue Edmond Reuter,
L-5326 Contern, LUXEMBOURG
Office phone : +352-2454-2566
Office fax: +352-2454-3566
mobile phone: +49 151 52 40 66 44
e-mail: alexei.boulbitch at iee.lu
- Follow-Ups:
- Re: Piecewise ColorFunction
- From: Bob Hanlon <hanlonr357@gmail.com>
- Re: Piecewise ColorFunction