SERIES DE FOURIER Y FENÓMENO GIBBS

LA FUNCIÓN DE SALTO

Clear["Global`*"]

f[x_] := 
      Which[-π ≤ x < 0, -1, 
        0 ≤ x ≤ π, 1]

Plot[f[x], {x, -π, π}]

s[x_] := (4/π) (∑_(r = 1)^n)((1/(2  r - 1))*
              Sin[(2  r - 1)*x])

Introducimos el valor de n

n := 10

s[x]

Dibujamos en un mismo gráfico, la función salto f(x) y la serie de Fourier de s(x)

Plot[{f[x], s[x]}, {x, -π, π}, 
      PlotStyle -> {RGBColor[1, 0, 0], RGBColor[0, 0, 1]}]

Nota: Observar el comportamiento de s(x) en los puntos de discontinuidad