Re: FourierTransform help

*To*: mathgroup at smc.vnet.net*Subject*: [mg72892] Re: FourierTransform help*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Wed, 24 Jan 2007 06:10:26 -0500 (EST)*References*: <ep4k9c$qfu$1@smc.vnet.net>

Use Set instead of SetDelayed s[t_] = Cos[t]*Exp[-t^2]; Timing[FourierTransform[s[t], t, w]] Plot[Abs[%[[2]]], {w, -3, 3}] {2.969*Second, Cosh[(1/4)*(-1 + w)^2]/(2*Sqrt[2]) + Cosh[(1/4)*(1 + w)^2]/(2*Sqrt[2]) - Sinh[(1/4)*(-1 + w)^2]/(2*Sqrt[2]) - Sinh[(1/4)*(1 + w)^2]/(2*Sqrt[2])} (*plot to be displayed*) Execute the following command for more information FrontEndExecute[{HelpBrowserLookup["MainBook", "2.5.8"]}] Dimitris rob 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}]