Código de y gráficas obtenidas en los ejercicios
propuestos y especificados a usar un programa
P.7. Utilizar diferenciación para encontrar los coeficientes de Fourier de la función
𝑓(𝑡) definida por 𝑓(𝑡) = 𝑡 para (−𝜋, 𝜋) y 𝑓(𝑡 + 2𝜋) = 𝑓(𝑡) Mostrar las gráficas de la
aproximación de 𝑓(𝑡) (en un programa como Matlab) con: 5, 10, 15 y 20 primeros
coeficientes diferentes de cero.
Código:
Se aplica el mismo código para cada coeficiente planteado, con la diferencia que la
variable N cambia de acuerdo a los requerimientos.
%Grafica de la funcion
N=20;
t = -pi:0.01:pi; %Dominio
f = t; %funcion
plot(t,f,'b','LineWidth',3)
hold on
grid on
%Serie de fourier
Asub0 = 0;
sum = Asub0;
for n = 1:1:N
A(n) = 0;
B(n) = 2 * ((-1)^(n+1))/n;
sum = sum + A(n)*cos(n*t) + B(n)*sin(n*t);
end
title('Con N valores igual a 20')
plot(t,sum,'r','LineWidth',2)
hold off
Gráficas obtenidas:
