Re: How To invert ColorFunction

• To: mathgroup at smc.vnet.net
• Subject: [mg106726] Re: [mg106719] How To invert ColorFunction
• From: Vivek Joshi <vivekj at wolfram.com>
• Date: Fri, 22 Jan 2010 05:36:18 -0500 (EST)
• References: <201001211131.GAA20635@smc.vnet.net>

```On 1/21/10 5:31 AM, 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,
>
>
c4 = 1;

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

RevolutionPlot3D[c4*z4[rho, theta], {rho, 0, 1}, {theta, 0, 2*Pi},
ColorFunction -> (ColorData["Rainbow", 1 - #3] &)]

Vivek

```

• Prev by Date: Mathematica gets stuck, only thing I can do is quit kernel
• Next by Date: Financial Planning Notebook
• Previous by thread: How To invert ColorFunction
• Next by thread: Re: How To invert ColorFunction