Ejercicio 13

k = 5;
m = 10;
fo = 10;
Bo = 2.5;
N = 2^m;
T = 2^k/fo;

ts = (0:N-1)*T/N;
df = (0:N/2-1)/T;

figure(1)
g1 = Bo*sin(2*pi*fo*ts)+Bo/2*sin(2*pi*fo*2*ts);
An1 = abs(fft(g1, N))/N;
plot(df, 2*An1(1:N/2))

figure(2)
g2 = exp(-2*ts).*sin(2*pi*fo*ts);
An2 = abs(fft(g2, N))/N;
plot(df, 2*An2(1:N/2))

figure(3)
g3 = sin(2*pi*fo*ts+5*sin(2*pi*(fo/10)*ts));
An3 = abs(fft(g3, N))/N;
plot(df, 2*An3(1:N/2))

figure(4)
g4 = sin(2*pi*fo*ts-5*exp(-2*ts));
An4 = abs(fft(g4, N))/N;
plot(df, 2*An4(1:N/2))