Re: FourierTransform help

*To*: mathgroup at smc.vnet.net*Subject*: [mg72905] Re: [mg72869] FourierTransform help*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 24 Jan 2007 17:49:39 -0500 (EST)*Reply-to*: hanlonr at cox.net

s[t_] := Cos[t]*Exp[-t^2]; f[w_] = FullSimplify[FourierTransform[s[t], t, w]] (E^(-(1/4) - w^2/4)*Cosh[w/2])/Sqrt[2] Plot[f[w], {w, -3, 3}, PlotRange -> {0, 0.6}]; Bob Hanlon ---- rob <robIV at piovere.com> wrote: > I can't seem to plot the result of what I would think would > be a simple transform. The following code at least attempts > to run with no errors but it doesn't seem to stop. I plan to > let it run all night. But surely one of you wizards knows a > way to get this to output a result quickly. If so, I would > appreciate your help. > > > s[t_] := Cos[t] Exp[-t^2] > > Plot[Abs[Evaluate[FourierTransform[s[t], t, Ã?â?°]]], {Ã?â?°, -3,3}] >