
%Damon Praefke
%Fourier function
%Provided in EE483 to obtain centered fourier plots

function[S,f]=fouriert(s,t);

Dt=t(2)-t(1);
Df=(1/((length(s)-1)*Dt));
f=(-0.5/Dt):Df:(0.5/Dt);
S=fftshift(fft(fftshift(s)));