Sound Modes

Needs["Graphics`Animation`"];

Choose a value for the harmonic number and evaluate the cell which corresponds to the boundary conditions which you want to use.

n=1;

closedclosed:=Sin[n Pi x] Cos[t];

Animate[Plot[closedclosed,{x,0,1},
			PlotRange->{-1,1}],{t,0,2Pi}];

closedopen:=If[OddQ[n],
			Sin[n Pi x / 2] Cos[t],
			0];

Animate[Plot[closedopen,{x,0,1},
			PlotRange->{-1,1}],{t,0,2Pi}];

openopen:=Cos[n Pi x] Cos[t];

Animate[Plot[openopen,{x,0,1},
			PlotRange->{-1,1}],{t,0,2Pi}];