Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #2372

Re: color-coding two sets of plotted curves?

Show all headers | View raw

The two ParametricPlots can be collapsed down to a single one

ParametricPlot[Evaluate[
   Thread[
    Table[{
      xy[(j + 1)/4, Pi u],
      xy[6 (u + 1), j Pi/6]},
     {j, 0, 11}]]],
  {u, -1, 1},
  PlotPoints -> 50,
  PlotStyle -> {Red, Blue},
  PlotRange -> {{0, 4.2}, {-2, 2}}] // Quiet


Bob Hanlon

---- Dushan Mitrovich <dushanm@spinn.net> wrote: 

=============
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

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: color-coding two sets of plotted curves? Bob Hanlon <hanlonr@cox.net> - 2011-05-14 07:14 +0000

csiph-web