Untitled

> with(plots):

> c:=proc(n) #This procedure computes the coeffients.
  8/(n^2*Pi^2) * sin(n*Pi/2)
end;

>

c := proc (n) 8*sin(1/2*n*Pi)/(n^2*Pi^2) end proc

> c(1);

8/Pi^2

> c(2);

0

> c(3);

-8/9/Pi^2

> m:=100: # This is how many terms (including terms that are zero) we will compute.

> animate((sum((c(n)*sin(n*Pi*x/2)*cos(n*Pi*t/2)),n=1..m)),
x=0..2, t=0..10,frames=50, color=green);

[Plot]

>