Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2008

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Just primitive ColorFunction

  • To: mathgroup at smc.vnet.net
  • Subject: [mg87367] Re: [mg87348] Just primitive ColorFunction
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Wed, 9 Apr 2008 05:51:43 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

Plot[Sin[x], {x, 0, 4 Pi},
 ColorFunction -> (If[#2 > 0, Red, Blue] &),
 ColorFunctionScaling -> False,
 Filling -> Axis]

Plot[Sin[x], {x, 0, 4 Pi},
 FillingStyle -> {Blue, Red},
 Filling -> Axis]


Bob Hanlon

---- "=C5 er=C3=BDch Jakub" <Serych at panska.cz> 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: basic questions
  • Next by Date: Re: Filling problem in Plot3D
  • Previous by thread: Re: Just primitive ColorFunction
  • Next by thread: Re: Just primitive ColorFunction