Drexel dragonThe Math ForumDonate to the Math Forum



Search All of the Math Forum:

Views expressed in these public forums are not endorsed by Drexel University or The Math Forum.


Math Forum » Discussions » Software » comp.soft-sys.math.mathematica

Topic: Labelling each curve and changing grid in ParametricPlot
Replies: 3   Last Post: Feb 3, 2013 2:51 AM

Advanced Search

Back to Topic List Back to Topic List Jump to Tree View Jump to Tree View   Messages: [ Previous | Next ]
David Park

Posts: 1,560
Registered: 5/19/07
Re: Labelling each curve and changing grid in ParametricPlot
Posted: Feb 3, 2013 2:51 AM
  Click to see the message monospaced in plain text Plain Text   Click to reply to this topic Reply

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







Point your RSS reader here for a feed of the latest messages in this topic.

[Privacy Policy] [Terms of Use]

© Drexel University 1994-2014. All Rights Reserved.
The Math Forum is a research and educational enterprise of the Drexel University School of Education.