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)*Reply-to*: hanlonr at cox.net

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 ? Thanks in advance. 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. Thank you in advance Mathias Blandeau

**Follow-Ups**:**Re: Contour ColorFunction in a ParametricPlot***From:*"Blandeau M.N." <mnb1f10@soton.ac.uk>

**Re: Contour ColorFunction in a ParametricPlot***From:*Heike Gramberg <heike.gramberg@gmail.com>