Re: color-coding two sets of plotted curves?
- To: mathgroup at smc.vnet.net
- Subject: [mg118876] Re: color-coding two sets of plotted curves?
- From: Peter Pein <petsie at dordos.net>
- Date: Sat, 14 May 2011 03:06:22 -0400 (EDT)
- References: <iqj13a$rev$1@smc.vnet.net>
Am 13.05.2011 12:27, schrieb Dushan Mitrovich: > 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 > Hi, I'd use ParametricPlot: ParametricPlot[xy[x,y]//Evaluate,{x,-0,3},{y,-Pi,Pi},PlotStyle->Opacity[0],MeshStyle->{Red,Blue},Axes->None,Frame->True,PlotRange->{{0,4.2},{-2,2}},PlotPoints->50]//Quiet Peter