Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

[Date Index] [Thread Index] [Author Index]

Search the Archive

Labelling each curve and changing grid in ParametricPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129649] Labelling each curve and changing grid in ParametricPlot
  • From: "Eduardo M. A. M. Mendes" <emammendes at gmail.com>
  • Date: Sat, 2 Feb 2013 01:18:07 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-newout@smc.vnet.net
  • Delivered-to: mathgroup-newsend@smc.vnet.net

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





  • Prev by Date: Re: Using NDSolve solution as an initial condition for another
  • Next by Date: Re: Labelling each curve and changing grid in ParametricPlot
  • Previous by thread: Re: Using NDSolve solution as an initial condition for another
  • Next by thread: Re: Labelling each curve and changing grid in ParametricPlot