MathGroup Archive 2011

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

Search the Archive

color-coding two sets of plotted curves?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg118849] color-coding two sets of plotted curves?
  • From: Dushan Mitrovich <dushanm at spinn.net>
  • Date: Fri, 13 May 2011 06:26:13 -0400 (EDT)

After a lot of experimentation I finally found a way to plot two sets of 
curves orthogonal using one color per set.  The following relates 
Bipolar and Cartesian coordinates, then plots the sets of coordinate 
lines Red and Blue:

xy[Xi_, Theta_] := {  Sinh[Xi]/(Cosh[Xi]+Cos[Theta]),
                     Sin[Theta]/(Cosh[Xi]+Cos[Theta])}

pXi = ParametricPlot[Evaluate@Table[xy[(j+1)/4, Pi u], {j,0,11}],
                      {u,-1,1}, PlotRange->{{0,4.2},{-2,2}},
                      PlotPoints->50, PlotStyle->{Red}];

pTheta = ParametricPlot[Evaluate@Table[xy[6 (u+1), j Pi/6], {j,0,11}],
                      {u,-1,1}, PlotRange->{{0,4.2},{-2,2}},
                      PlotPoints->50, PlotStyle->{Blue}];

Show[pXi,pTheta]

Everything else I tried plotted all the curves the same color.  Am I 
using the recommended approach or is there another, more direct one?

- Dushan


  • Prev by Date: Re: Notebooks windows lost bug
  • Next by Date: Complex arithmetic identity question
  • Previous by thread: Re: Rotating a surface similar to a helix
  • Next by thread: Re: color-coding two sets of plotted curves?