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