% This demonstration uses the FFT function to analyze the variations of
% the EI.centro seismic wave
load EL.dat
time=EL(:,1);
acceler=EL(:,2);
figure(1)
subplot(1,2,1)
plot(time,acceler,'k')
xlabel('t/s')
ylabel('acceleration')
t=time(1:400);
a=acceler(1:400);
subplot(1,2,2)
plot(t,a,'b.-');
figure(2)
f=0:0.125:25-0.125;
Y=fft(a);
Y=Y(1:200);
plot(f,Y,'r')