Hi,
Are there any tips to help the solving and plotting for FF1 go somewhat faster ? (I think the plotting is the real issue) I am indeed using a decent Laptop....but the solving and plotting may take more than 20 min +
Regards,
John
ClearAll["Global`*"]
f[t_] = Exp[- t^2]
Plot[f[t], {t, -10, 10}, PlotRange -> All]
acor[\[Tau]_] = 2*Integrate[f[t]*f[t + \[Tau]], {t, 0., Infinity}]
Plot[acor[\[Tau]], {\[Tau], 0., 10.}, PlotRange -> All]
eq[t_] = acor[t]*Exp[-2. Pi I \[Omega] t]
FF1 = Integrate[eq[t], {t, 0, Infinity}]
Plot[Abs[FF1], {\[Omega], 0, 100}]