Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: How To invert ColorFunction

  • To: mathgroup at smc.vnet.net
  • Subject: [mg106753] Re: [mg106719] How To invert ColorFunction
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Fri, 22 Jan 2010 05:41:43 -0500 (EST)
  • References: <201001211131.GAA20635@smc.vnet.net>

Hi,

what about

c4 = 1;

z4[rho_, theta_] := rho^2*Cos[2*theta]

RevolutionPlot3D[c4*z4[rho, theta], {rho, 0, 1}, {theta, 0, 2*Pi}, 
 ColorFunction -> Function[{x, y, z}, ColorData["Rainbow"][1 - z]]]

?

Cheers
Patrick

On Thu, 2010-01-21 at 06:31 -0500, Vladimir wrote:
> Hi everybody,
> 
> I am plotting Zernike-Polynomials like this:
> 
> ---------
> c4 = 1;
> 
> z4[rho_, theta_] := rho^2*Cos[2*theta]
> 
> RevolutionPlot3D[c4*z4[rho, theta], {rho, 0, 1}, {theta, 0, 2*Pi},
>  ColorFunction -> "Rainbow"]
> ---------
> 
> To be able to compare the plot to measured data from an
> interferometer, I would like to invert the Rainbow colouring, that is
> red at the bottom and blue on top. However, I can't find to work this
> out. Does anyone know how to do this?
> 
> Thank you,
>  Vladimir.
> 



  • Prev by Date: Re: How To invert ColorFunction
  • Next by Date: Re: How To invert ColorFunction
  • Previous by thread: Re: How To invert ColorFunction
  • Next by thread: Re: How To invert ColorFunction