close all
clear all
Nx = 128;
x = linspace(-2, 5, Nx);
dx = x(2)-x(1);
k1 = 2*pi/(Nx) *[0:Nx/2];
k2 = 1/(dx*Nx) *[0:Nx/2];
alpha = 0.3;
f = @(x) exp(-alpha*abs(x));
F = @(k) 2*alpha./(alpha^2 + k.^2);
f = f(x);
F1 = F(k1);
F2 = F(k2);
figure(1)
plot(x, f, 'r');
figure(2);
plot(k1, F1, 'r', k2, F2, 'b--');
F1 = cat(2, F1, conj(F1(end-1:-1:2)));
f1 = ifft(F1, [],1)*1/(dx*Nx);
F2 = cat(2, F2, conj(F2(end-1:-1:2)));
f2 = ifft(F2, [],1)*1/(dx*Nx);
figure(1)
hold on
plot(x, f1, 'b--', x, f2, 'b.-')
energy_f = sum(f.*conj(f) *dx)
energy_F1 = sum(F1.*conj(F1)*1/(dx*Nx))
energy_F2 = sum(F2.*conj(F2)*1/(dx*Nx))
energy_f1 = sum(f.*conj(f) *dx)
energy_f2 = sum(f.*conj(f) *dx)