VIBRACIONES DE UNA CUERDA

Solución de u_{tt}(x,t) =u_{xx}(x,t),   si x en (0,1), t en (0,10],

u(0,t)=u(1,t)= 0,   si t en [0,10],

u(x,0)=x(1-x),   si x en (0,1),

u_t(x,0)=0,  si x en (0,1),

usando series de Fourier.

>	with(plots):animate(plot,[sum('4*(1-(-1)^n)/(n^3*Pi^3)*sin(n*Pi*x)*cos(n*Pi*t)','n'=1..100),x=0..1],t=0..10);

>