% forslag til løsning av Ukesoppgaver 5 oppgave 4
z=load('freak.data');
N=length(z)
z=mean(z)-z;
zft = ifft(z);
domain = (N/20:N/2);
loglog (domain,abs(zft(domain)).^2,'b');
hold on
loglog (domain, 2e8*domain.^(-4), '--g')
loglog (domain, 2e9*domain.^(-5), '--r')
loglog (domain, 2e10*domain.^(-6), '--k')
axis([N/20 N/2 1e-8 1])
% Det ser ut til at stigningstall -5 for spektrum er riktig svar,
% det vil si -2.5 for Fourier transformen.
hold off
