Re: Labelling each curve and changing grid in ParametricPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg129666] Re: Labelling each curve and changing grid in ParametricPlot
- From: "Eduardo M. A. M. Mendes" <emammendes at gmail.com>
- Date: Sun, 3 Feb 2013 20:19:16 -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
- References: <20130202061807.DB0F768D2@smc.vnet.net> <20130203074523.6D2F868A1@smc.vnet.net>
Many thanks Ed On Feb 3, 2013, at 5:45 AM, Bob Hanlon <hanlonr357 at gmail.com> wrote: > plot[tau_, omega_] := > Module[{arg, abs}, > {arg, abs} = > Factor[ > Together[ > ComplexExpand[ > Through[{Arg, Abs}[(1 + I*2*omega)/ > (1 + I*2*tau*omega)]]]]]; > {arg/Degree, 20*Log10[abs]}] > > Show[ > ParametricPlot[ > Evaluate[ > Table[ > plot[tau, omega], > {omega, -0.5, -0.1, 0.05}]], > {tau, 7, 15}, > PlotStyle -> > Directive[ > Gray, > AbsoluteDashing[{5, 5}]]], > ParametricPlot[ > Evaluate[ > Table[ > plot[tau, omega], > {tau, Range[7, 15]}]], > {omega, -0.5, -0.01}, > AspectRatio -> 1], > Frame -> True, > Axes -> False, > PlotRange -> All, > AspectRatio -> 1, > Epilog -> { > Table[ > Text[tau, plot[tau, -0.5], {2, 0}], > {tau, 8, 14, 2}], > Table[ > Text[omega, plot[7, omega], {1.25, -1}], > {omega, -0.45, -0.15, 0.1}]}] > > > Bob Hanlon > > > On Sat, Feb 2, 2013 at 11:17 AM, Eduardo M. A. M. Mendes > <emammendes at gmail.com> wrote: >> Dear Bob >> >> Many thanks. As usual I will have to spend time to understand your = code. I am too much of beginner. >> >> As for the grid, I was thinking of removing the standard grid all = together and draw (just the dashed grid lines) lines for specific values = of Omega. >> >> Regards >> >> Ed >> >> >> On Feb 2, 2013, at 12:06 PM, Bob Hanlon <hanlonr357 at gmail.com> wrote: >> >>> plot[tau_, omega_] := >>> Module[{arg, abs}, >>> {arg, abs} = >>> Factor[ >>> Together[ >>> ComplexExpand[ >>> Through[{Arg, Abs}[ >>> (1 + I*2*omega)/(1 + I*2*tau*omega)]]]]]; >>> {arg/Degree, 20*Log10[abs]}] >>> >>> ParametricPlot[ >>> Evaluate[ >>> Table[ >>> plot[tau, omega], >>> {tau, Range[7, 15]}]], >>> {omega, -0.5, -0.01}, >>> AspectRatio -> 1, >>> GridLines -> Automatic, >>> GridLinesStyle -> Dashed, >>> ImageSize -> Large, >>> Epilog -> { >>> Table[ >>> Text[tau, plot[tau, -0.5], {2, 0}], >>> {tau, 7, 15}]}, >>> Mesh -> 5] >>> >>> >>> Bob Hanlon >>> >>> >>> On Sat, Feb 2, 2013 at 1:18 AM, Eduardo M. A. M. Mendes >>> <emammendes at gmail.com> wrote: >>>> 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 >>>> >>>> >>>> >> >
- References:
- Labelling each curve and changing grid in ParametricPlot
- From: "Eduardo M. A. M. Mendes" <emammendes@gmail.com>
- Re: Labelling each curve and changing grid in ParametricPlot
- From: Bob Hanlon <hanlonr357@gmail.com>
- Labelling each curve and changing grid in ParametricPlot