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>