Mathematica 9 is now available
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: [mg87385] Re: Just primitive ColorFunction
  • From: ucervan at gmail.com
  • Date: Wed, 9 Apr 2008 05:55:08 -0400 (EDT)
  • References: <ftfej7$bu7$1@smc.vnet.net> <ftfk8g$fab$1@smc.vnet.net>

You could also use:

Plot[Sin[x], {x, 0, 4 Pi}, AxesOrigin -> {0, 0}, Axes -> {True, True},
  PlotStyle -> Thick,
 ColorFunction -> (If[Sin[#] >= 0, RGBColor[1, 0, 0],
     RGBColor[0, 0, 1]] &), Filling -> Axis, ImageSize -> {380, 280},
 ColorFunctionScaling -> False, FillingStyle -> Automatic]

Note that the output will be much bigger since VertexColors are
generated for each vertex. Also, segments crossing the x axis will
have end vertices of different colors, so some color bleeding will
occur.

This kind of plots are useful to represent "spectrum" coloring as in:


Plot[Sin[x], {x, 0, 4 Pi}, AxesOrigin -> {0, 0}, Axes -> {True, True},
  PlotStyle -> Thick,
 ColorFunction -> (ColorData["VisibleSpectrum"][
     380 + # (750 - 380)] &), Filling -> Axis,
 ImageSize -> {380, 280}, ColorFunctionScaling -> True,
 FillingStyle -> Automatic]

-Ulises Cervantes
WRI


  • Prev by Date: Re: Problems with recursive function
  • Next by Date: Pattern problem: How to count from a long list of numbers all occurrences of 2 numbers next to each others?
  • Previous by thread: Re: Just primitive ColorFunction
  • Next by thread: Re: Just primitive ColorFunction