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