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

>

>

```

• Prev by Date: Re: Problems with recursive function
• Next by Date: Re: Problems with recursive function
• Previous by thread: RE: Just primitive ColorFunction
• Next by thread: Re: Just primitive ColorFunction