       Re: Contour ColorFunction in a ParametricPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg120090] Re: Contour ColorFunction in a ParametricPlot
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Fri, 8 Jul 2011 04:51:55 -0400 (EDT)

```contours = 6;
ParametricPlot3D[
{Cos[p] Sin[t], Sin[p] Sin[t], Cos[t]},
{p, 0, 2 Pi}, {t, 0, Pi},
PlotPoints -> 200,
Mesh -> None,
ColorFunction -> Function[{x, y, z, p, t},
Hue[Round[Sin[6 p] Sin[6 t], 1/contours]]],
ColorFunctionScaling -> True]

Bob Hanlon

---- "Blandeau M.N." <mnb1f10 at soton.ac.uk> wrote:

=============
Hello,
I looked for this specific question in the archive and I did not find.

I want to create a contour (ie. not smooth) ColorFunction over a parametricplot.

For example:
ParametricPlot3D[ {Cos[ \[Phi]] Sin[\[Theta]],
Sin[\[Phi]] Sin[\[Theta]], Cos[\[Theta]]}, {\[Phi], 0,
2 \[Pi]}, {\[Theta], 0, \[Pi]}, PlotPoints -> 100, Mesh -> None,
ColorFunction ->
Function[{x, y, z, \[Phi], \[Theta]},
Hue[Sin[6 \[Phi]] Sin[6 \[Theta]]]], ColorFunctionScaling -> True]

Here the colorfunction is smooth, what directive should I add to obtain a contour of the colour and to manage the number of contours ?

Mathias Blandeau

From: Blandeau M.N.
Sent: 06 July 2011 14:35
To: 'mathgroup at smc.vnet.net'
Subject: [mg120090] subscription to mathgroup mailing list

Hi,
I would like to be added to the mathgroup mailing list, I am using Mathematica for my PhD and I have several questions to ask.