(* MATHEMATICA Programm zur Schwingungsgleichung: Saite *)
(* Animation: Schwingende Saite *)

Do[ Plot[
	 Sum[((-1)^k / (2 k + 1)^2) 
         Sin[(2 k + 1) x] Cos[(2 k + 1) t],{k,0,10}],
              {x, 0, Pi}, PlotRange->{{0, Pi}, {-1.5, 1.5}}],
                  {t, 0,  2 Pi, Pi/10}]

(* Animation der Graphik-Zellen mittels  Mod1-y *)
