Animate[
Graphics[{
{
pruzina[-5,x1,2.5,0.25],
Rectangle[{x1,2}],
pruzina[x1,5+x2,2.5,0.25],
Rectangle[{5+x2,2}],
pruzina[5+x2,10+x3,2.5,0.25],
Rectangle[{10+x3,2}],
pruzina[10+x3,15,2.5,0.25]
}/.{x1->Sin[2t],x2->0,x3->-Sin[2t]},
{
pruzina[-5,x1,0.5,0.25],
Rectangle[{x1,0}],
pruzina[x1,5+x2,0.5,0.25],
Rectangle[{5+x2,0}],
pruzina[5+x2,10+x3,0.5,0.25],
Rectangle[{10+x3,0}],
pruzina[10+x3,15,0.5,0.25]
}/.{x1->Sin[(2+(Sqrt[2]))t],x2->-(Sqrt[2])Sin[(2+(Sqrt[2]))t],x3->Sin[(2+(Sqrt[2]))t]},
{
pruzina[-5,x1,-1.5,0.25],
Rectangle[{x1,-2}],
pruzina[x1,5+x2,-1.5,0.25],
Rectangle[{5+x2,-2}],
pruzina[5+x2,10+x3,-1.5,0.25],
Rectangle[{10+x3,-2}],
pruzina[10+x3,15,-1.5,0.25]
}/.{x1->Sin[(2-(Sqrt[2]))t],x2->(Sqrt[2])Sin[(2-(Sqrt[2]))t],x3->Sin[(2-(Sqrt[2]))t]},
{
pruzina[-5,x1,4.5,0.25],
Rectangle[{x1,4}],
pruzina[x1,5+x2,4.5,0.25],
Rectangle[{5+x2,4}],
pruzina[5+x2,10+x3,4.5,0.25],
Rectangle[{10+x3,4}],
pruzina[10+x3,15,4.5,0.25]
}/.{{
x1->A1 Sin[2t]+A2 Sin[(2+(Sqrt[2]))t]+A3 Sin[(2-(Sqrt[2]))t],
x2->-(Sqrt[2])A2 Sin[(2+(Sqrt[2]))t]+(Sqrt[2])A3 Sin[(2-(Sqrt[2]))t],
x3->-A1 Sin[2t]+A2 Sin[(2+(Sqrt[2]))t]+A3 Sin[(2-(Sqrt[2]))t]
}/.{A1->1/2,A2->1/2,A3->1/2}},
Text["Superpozice módů",{-4.5,5.3},Left],
Text["1.mód; (ω^2)= 2k/m; (OverVector[a]) = (1,0,-1)",{-4.5,3.3},Left],
Text["2.mód; (ω^2)= (2+(Sqrt[2]))k/m; (OverVector[a]) = (1,-(Sqrt[2]),1)",{-4.5,1.3},Left],
Text["3.mód; (ω^2)= (2-(Sqrt[2]))k/m; (OverVector[a]) = (1,(Sqrt[2]),1)",{-4.5,-0.7},Left]
},
Frame->True,
FrameTicks->None,
PlotRange->{{-5,15},{-3,6}}],
{t,0,∞},
AnimationRunning->True,
Initialization:>{
n=15,
pruzina[x0_,x1_,y0_,W_]:=Line[Table[{ x0+((x1-x0)/n) k,y0+W(((-1))^k)},{k,0,n}]]
}
]