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}] >