>>
x=[0.8186083,0.8287811,0.7990494,0.8853216,0.9389696,0.7200537,0.6584187,0.9668407,0.
8144436,0.8800316,0.9079361,0.7661209,0.8836174,0.7440834,0.861908,0.8434639,0.91690
06,0.8214111,0.7635384,0.8728027,0.8624916,0.8487663,0.8139839,0.8863411,0.8332596,0.
7776337,0.8933868,0.939167,0.9087639,0.8243408,0.7736511,0.8158035,0.9011078,0.82603
45,0.7293015,0.8896484,0.7993774,0.7781143,0.7481308,0.8873825,0.9491043,0.9053421,0.
7913284,0.8960114,1.029015,1.17189,0.9091034,0.8553619,0.8253479,0.9777451,1.040733,
0.8980255,0.8623886,0.9780045,0.8683853,0.9064331,0.8769913,0.9246674,0.8026123,1.02
9251,0.8627319,0.8031006,0.9308929,1.025925,0.8662109,0.8791656,0.9002228,0.8479004,
0.9637451,1.119568,1.13887,1.006973,0.8427582,1.068207,0.8289642,0.9398346,0.9641876,
0.8873138,1.046234,0.8907776,0.7709808,0.8913574,0.8653717,0.8696289,0.9353485,1.002
579,0.7923889,0.9848328,0.8608551,0.9980011,0.6988831,0.7780304,0.9496155,0.8250885,
1.015396,0.9697571,0.8503571,0.8251343,0.7729645,0.7840424,0.9386444,0.7505493,0.882
6447,0.8512115,0.9365387,1.042511,0.8660583,0.8172455,0.9848938,0.938446,0.8160095,0.
7942047,0.9220276,1.195129,0.8390503,0.8197632,1.002411,0.9238892,0.9874573,1.032318
];
N = length(x);
X = zeros(1,1)
t=0:N-1;
for k=0;N-1
for n=0;N-1
X(k+1)=X(k+1)+x(n+1)*exp(-j*pi/2*n*k)
end
end
fft(x)
subplot(311)
stem(fft(x), 'markersize',3,'markerfacecolor','r')
xlabel('frecuencia (Hz) ');
ylabel('|X(k) |');
title('transformada de Fourier ');
transformada de Fourier
2
1
|X(k) |
-1
-2
0 20 40 60 80 100 120
frecuencia (Hz)