FUNCIÓN DE EULER

Clear["Global`*"]

f[t_] := ((π - t)/2)

funcion = 
      Plot[f[t], {t, 0, 2  π}, 
        PlotStyle -> RGBColor[1, 0, 0]]

s[t_] := (∑_(n = 1)^n) (1/n)*Sin[n*t]

n := 15

Plot[s[t], {t, 0, 6  π}, 
      PlotStyle -> RGBColor[0, 0, 1]]

serie = 
      Plot[s[t], {t, 0, 2  π}, 
        PlotStyle -> RGBColor[0, 0, 1]]

Show[funcion, serie]