Date: Feb 3, 2013 2:51 AM Author: emammendes@gmail.com Subject: Re: Labelling each curve and changing grid in ParametricPlot 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

>

>

>