
Re: Labelling each curve and changing grid in ParametricPlot
Posted:
Feb 3, 2013 2:51 AM


Hi David
Many thanks.
Grid  Instead of the normal grid (horizontal and vertical lines) I wonder whether there is a way to draw lines (just like grid) for specific values of Omega.
Ed
On Feb 2, 2013, at 1:16 PM, "djmpark" <djmpark@comcast.net> wrote:
> Ed, > > This is a little difficult because the curves are so closely spaced. One has > to make the plot rather large to identify the labels with the curves. In the > following example I put the labels all at the end of the curves and labeled > only every other one. I also put Tooltips on the curves in case it is being > viewed in a notebook. > > I don't understand what you mean by having the Grid based on Omega. I just > drew a grid but make it very light and avoided the Dashed style (a al > Tufte). > > << Presentations` > > plot[\[Tau]_, \[CapitalOmega]_] := > Module[{arg, abs}, {arg, abs} = > Factor[Together[ > ComplexExpand[ > Through[{Arg, > Abs}[(1 + I*2*\[CapitalOmega])/(1 + > I*2*\[Tau]*\[CapitalOmega])]]]]]; > {arg/Degree, 20*Log10[abs]}] > > Draw2D[ > {ParametricDraw[ > Tooltip[plot[#, \[CapitalOmega]], #], {\[CapitalOmega], 0.5, > 0.01}] & /@ {7, 8, 9, 10, 11, 12, 13, 14, 15}, > Text[Framed[Style[phrase["\[Tau] = ", #], 12], FrameMargins > 0], > plot[#, 0.5], {1, 0}, Background > White] & /@ {8, 10, 12, 14}}, > AspectRatio > 1, > Frame > True, FrameLabel > {"phase/\[Degree]", "db"}, > RotateLabel > False, > GridLines > {CustomGridLines[# &, {10, 60, 10}, {LightGray}], > CustomGridLines[# &, {20, 0, 5}, {LightGray}]}, > BaseStyle > {FontSize > 12}, > ImageSize > 600] > > > David Park > djmpark@comcast.net > http://home.comcast.net/~djmpark/index.html > > > > > From: Eduardo M. A. M. Mendes [mailto:emammendes@gmail.com] > > > Hello > > I wonder whether someone out there could help me with the following problem. > > plot[\[Tau]_, \[CapitalOmega]_] := Module[{arg, abs}, > {arg, abs} = Factor[Together[ComplexExpand[ > Through[{Arg, Abs}[(1 + I*2*\[CapitalOmega])/(1 + > I*2*\[Tau]*\[CapitalOmega])]]]]]; > {arg/Degree, 20*Log10[abs]}] > > ParametricPlot[Table[plot[\[Tau], \[CapitalOmega]], {\[Tau], {7, 8, 9, 10, > 11, 12, 13, 14, 15}}], > {\[CapitalOmega], 0.5, 0.01}, AspectRatio > 1, GridLines > Automatic, > GridLinesStyle > Dashed, ImageSize > Large] > > I need to label each curve with the value of tau and, instead of the normal > grid, a grid based on the values of Omega. > > I saw something related to the label problem on the net but could not figure > out how to change it to my case. Something with Epilog. > > Many thanks > > Ed > > >

