f[t_] = HeavisideTheta[1 - t]*HeavisideTheta[1 + t] fhat[s_] = FourierTransform[f[t], t, s] p1 = Plot[f[t], {t, -4, 4}, Filling -> Axis, AxesLabel -> {"\...
Mathematica: https://en.wikipedia.org/wiki/File:Fourier_transform_of_rect_and_a_translation.png # Anyone can copy and revise this code without any copyright concern...
Commons Attribution-Share Alike 4.0 truetrue Computes external angles using Fourier harmonics /* b batch file for Maxima CAS ------------ maxima batch("h.mac");...
