[Date Index]
[Thread Index]
[Author Index]
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**
| |