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

MathGroup Archive 2012

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

Search the Archive

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



  • Prev by Date: nested sums
  • Next by Date: Can I solve this system of nonlinear equations?
  • Previous by thread: Re: Plotting colorfunctions over multiple parametric curves
  • Next by thread: [solved] Re: FindMinimum v. NMinimize and an external program