MathGroup Archive 2002

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

Search the Archive

Re: FourierTransform problem


In a message dated 6/24/02 4:58:37 AM, dturner at faulkner.edu writes:

>I am using Mathematica for Students 3.0.1 with Windows 98.  When I execute
>the following code, I get the error messages below:
>
>In[1]:=
><<Calculus`FourierTransform`
>
>In[2]:=
>Clear[fx, fw, a]
>
>In[3]:=
>a:=1
>
>In[4]:=
>fx[x_]:=Exp[-Abs[x*a]]
>
>In[5]:=
>fw[w_]:=InverseFourierTransform[fx[x], x, w]
>
>In[6]:=
>Plot[fw[w], {w, -5*a,5*a}]
>
>Plot::plnr : fw[w] is not a machine-size real number at w = -5..
>Plot::plnr : fw[w] is not a machine-size real number at w = -4.59433..
>Plot::plnr : fw[w] is not a machine-size real number at w = -4.15191..
>General:: stop : Further output of Plot::plnr will be suppressed during
>this
>calculation.
>
>Does anyone know where I might obtain a corrected FourierTransform.m package
>for Mathematica 3.0.1?  My copy is dated 7/21/97.  I contacted Wolfram
>about
>this matter.  However, they told me they no longer support version 3.0.
> I
>appreciate any help you may provide.
>

Your example works fine with version 4; however, it would be much faster 
and might work with your version if you use Evaluate in the RHS of the 
definition of fw.

$Version

4.1 for Mac OS X (November 5, 2001)

<<Calculus`FourierTransform`

Clear[fx, fw, a]
;

a=1;

fx[x_]:=Exp[-Abs[x*a]];

fw[w_]:=Evaluate[InverseFourierTransform[fx[x], x, w]];

Plot[fw[w], {w, -5*a,5*a}];


Bob Hanlon
Chantilly, VA  USA


  • Prev by Date: Re: FourierTransform problem
  • Next by Date: RE: Strange thing with exporting to PDF.
  • Previous by thread: Re: FourierTransform problem
  • Next by thread: Re: FourierTransform problem