Re: Plotting colorfunctions over multiple parametric curves

*To*: mathgroup at smc.vnet.net*Subject*: [mg125209] Re: Plotting colorfunctions over multiple parametric curves*From*: Andrew Green <kiwibooga at googlemail.com>*Date*: Wed, 29 Feb 2012 07:22:50 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

Hi Bob Thanks for the reply. I am a step further thank you, but the results are strange. It is as if the colorfunction is clipping values below 0 and above 1 - it is not scaling even if ColorFunctionScaling->true is added. Consider potential[theta_,i_] = theta+1.0, I would have expected you should still get a full rainbow of colors (0 to 2pi mapped to 0 to 1), instead all are red. n = 3; XYR = ( { {-2.1, 0, 1.0}, {0, 0, 0.5}, {2.1, 0, 1.0} } ); x[i_] := XYR[[i, 1]]; y[i_] := XYR[[i, 2]]; r[i_] := XYR[[i, 3]]; potential[theta_, i_] := theta + 1.0; circle[i_, theta_] := {x[i] + r[i]*Cos[theta], y[i] + r[i]*Sin[theta]}; Show[Table[ ParametricPlot[circle[i, theta], {theta, 0, 2 Pi}, PlotStyle -> Thick, Axes -> False, ImageSize -> 200, ColorFunction -> Function[{x, y, theta}, ColorData["TemperatureMap"][potential[theta, i]]], ColorFunctionScaling -> True], {i, 1, n}], PlotRange -> All] Any ideas why? Thanks - Andrew