Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: ParametricPlot problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg97802] Re: ParametricPlot problem
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Sun, 22 Mar 2009 05:47:08 -0500 (EST)

On 3/21/09 at 5:17 AM, Serych at panska.cz (Serych Jakub) wrote:

>Dear M users, I'm trying to draw phasor characteristic of simple RC
>low pass filter. Its transfer function is:

>r = 100; c = 0.00001; transfer[f_] := 1/(1 + I 2 \[Pi] f r c);

>The phasor characteristic should be drawn with:

>ParametricPlot[{Re[transfer[f]], Im[transfer[f]]}, {f, 0, Infinity}]

>I can understand, that Mathematica has problem with calculation of
>the transfer function for frequency from 0 to Infinity, so I tried
>to use 10^8 in the place of infinity. But as the ParametricPlot IMHO
>subdivides the frequency range  into constant intervals, it draws
>piece of the curve only for frequencies near to 10^8. I found that
>the relatively reasonable result is with frequency range 0 to 10^3:

>ParametricPlot[{Re[transfer[f]], Im[transfer[f]]}, {f, 0, 10^3}]

>but there is missing the part of curve near to coordinates origin.

Are you sure something is missing? Looking at your transfer
function I see

In[15]:= {Re@#, Im@#} &@transfer[f] /. f -> 0

Out[15]= {1,0}

and

In[16]:= {Re@#, Im@#} &@transfer[f] /. f -> 1000

Out[16]= {0.0247045,-0.155223}

Looking at the plot, I see the right end of the curve at {1,0}
and a gap between where the axes cross and the left hand end of
the curve. But the left hand end does seem to be at
{0.0247045,-0.155223} which indicates Mathematica did plot the
curve over the entire range you specified. This is using version
7.01 on Mac OS X




  • Prev by Date: Re: ParametricPlot problem
  • Next by Date: Re: DirectSum (feature request)
  • Previous by thread: Re: ParametricPlot problem
  • Next by thread: Re: ParametricPlot problem