Taking the Log causing Mathematica kernel crash.
- To: mathgroup at smc.vnet.net
- Subject: [mg57051] Taking the Log causing Mathematica kernel crash.
- From: "me" <nma at 12000.org>
- Date: Thu, 12 May 2005 22:44:41 -0400 (EDT)
- Reply-to: "me" <nma at 12000.org>
- Sender: owner-wri-mathgroup at wolfram.com
Mathematica 5.1 on Windows.
Clear["Global`*"]
f[t_] := Sin[3.5 t] + 2 Cos[2 t];
g[t_] := Piecewise[{{0, t < -2Pi}, { f[t], t = -2Pi && t = 2Pi}, {0, t >
2Pi}}];
c[w_] := Integrate[ g[t] Exp[-I w t], {t, -Infinity, Infinity}] ;
Plot[20 Log[10, Abs[c[w]]], {w, -5, 5}, PlotRange -> All]
The above code causes Mathemtica kernel crash.
Change the last line above to remove the Log, then it is OK:
Plot[20 Abs[c[w]], {w, -5, 5}, PlotRange -> All]
Nasser