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

MathGroup Archive 2013

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

Search the Archive

Re: Labelling each curve and changing grid in ParametricPlot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg129654] Re: Labelling each curve and changing grid in ParametricPlot
  • From: Bob Hanlon <hanlonr357 at gmail.com>
  • Date: Sun, 3 Feb 2013 02:45:23 -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>

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
>>>
>>>
>>>
>



  • Prev by Date: Re: Dynamic scoping
  • Next by Date: Efficient algorithm/MRB constant
  • Previous by thread: Labelling each curve and changing grid in ParametricPlot
  • Next by thread: Re: Labelling each curve and changing grid in ParametricPlot