HP 50g Guia Del Usuario página 577

DEFINE('c(n) = - (((-1)^n-1)/(n^2*π^2*(-1)^n)')
es decir,
Después, definimos la función F(X,k,c0) para calcular la serie de Fourier (si
usted terminó el ejemplo 1, usted tiene ya esta función almacenada):
DEFINE('F(X,k,c0) = c0+Σ(n=1,k,c(n)*EXP(2*i*π*n*X/T)+
c(-n)*EXP(-(2*i*π*n*X/T))'),
Para comparar la función original y la serie de Fourier podemos producir el
diagrama simultáneo de ambas funciones. Los detalles son similares a los del
ejemplo 1, excepto que aquí utilizamos un rango horizontal de 0 a 2 y de un
rango vertical de 0 a 1, y ajustar las ecuaciones del diagrama según lo
demostrado aquí:
El gráfico que resulta se muestra abajo para k = 5 (el número de elementos en
la serie es 2k+1, es decir, 11, en este caso):
Página 16-41