aoizdjoijdsfpoqskdfmlkpok kekekekeke

fE = 20000;
tMax = 1;

n = fE*tMax;

t = (0:n-1)/fE;

s = 3;
m = 0;

r = 3 * randn(1, n) + m;

% figure(1);
% plot(r);
%
% figure(2)
% hist(r);
%
% m = mean(r);    disp(m);
% s = std(r);     disp(s);

% cor = xcorr(r);     plot(cor);

f = fE*(0:n)/n;

h = 0.05 * f / (f - 0.95);

ft = abs(fft(r)) .* h;%    plot(t, ft);

r2 = fft(ft);

figure(3);
clf;
plot(t, r);
hold on;
%plot(t, r2, 'r');