```Date: Feb 3, 2013 2:51 AM
Author: emammendes@gmail.com
Subject: Re: Labelling each curve and changing grid in ParametricPlot

Hi DavidMany 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.EdOn 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>>>
```