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