Re: color-coding two sets of plotted curves?
- To: mathgroup at smc.vnet.net
- Subject: [mg118892] Re: color-coding two sets of plotted curves?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 14 May 2011 03:09:17 -0400 (EDT)
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 at 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