Re: Just primitive ColorFunction

*To*: mathgroup at smc.vnet.net*Subject*: [mg87361] Re: Just primitive ColorFunction*From*: dh <dh at metrohm.ch>*Date*: Tue, 8 Apr 2008 07:16:38 -0400 (EDT)*References*: <ftfej7$bu7$1@smc.vnet.net>

Hi Jakub, you may e.g. try: Plot[Sin[x], {x, 0, 4 Pi}, Filling -> Axis, FillingStyle -> {Red, Blue}] hope this helps, Daniel ?erých Jakub wrote: > I think, that it must be something very simple, but I cannot find the > solution.... > > I need to fill the Plot so, that area above the axis will be red and area > below the axis will be blue. I tried it in a such way: > > Plot[Sin[x], {x, 0, 4 Pi} , > AxesOrigin -> {0, 0}, > Axes -> {True, True}, > PlotStyle -> Thick, > ColorFunction -> > If[Sin[x] >= 0, RGBColor[1, 0, 0], RGBColor[0, 0, 1]], > Filling -> Axis, > ImageSize -> {380, 280}] > > But Mathematica says, that If is not a valid Color. > > If I try it with Function (according to examples in ColorFunction help), > > ColorFunction -> > Function[x, If[Sin[x] >= 0, RGBColor[1, 0, 0], RGBColor[0, 0, 1]]], > > it is working, but the color of Filling is red allover the range. > > Thanks for any hint, how to achieve the +Red/-Blue filling. > > Jakub > >