Transparentní mód – stojaté vlny

num=20;
Zs=Table[l,{l,0,num}];
Xs=Map[Cos[Sin[(k/2)] t]Cos[k #]&,Zs];
Pos=Transpose[{Zs,Xs}];

Animate[
Graphics[{
Style[Point[Pos/.{k->kk,t->tt}],PointSize[0.02]],
Line[Pos/.{k->kk,t->tt}]
},PlotRange->{{0.25,num-0.25},{-2,2}}],
{tt,0,∞},
{{kk,0.6,Dynamic["k a = "<>ToString[Round[kk/π,0.01]]<>"π,  λ = "<>ToString[Round[((2π)/kk),0.1]]<>"a"]},0.01,π},SaveDefinitions->True,AnimationRunning->False
]

Transparentní mód – postupné vlny

num=20;
Zs=Table[l,{l,0,num}];
Xs=Map[Cos[Sin[(k/2)] t-k#]&,Zs];
Pos=Transpose[{Zs,Xs}];

Animate[
Graphics[{
Style[Point[Pos/.{k->kk,t->tt}],PointSize[0.02]],
Line[Pos/.{k->kk,t->tt}]
},PlotRange->{{0.25,num-0.25},{-2,2}}],
{tt,0,∞},
{{kk,0.6,Dynamic["k a = "<>ToString[Round[kk/π,0.01]]<>"π,  λ = "<>ToString[Round[((2π)/kk),0.1]]<>"a"]},0.01,π},SaveDefinitions->True,AnimationRunning->False
]

Reaktivní mód – exponenciálně tlumené stojaté vlny

num=20;
Zs=Table[l,{l,0,num}];
Xsr=Map[(((-1))^(#))Cos[Cosh[(κ/2)] t]Exp[-κ #]&,Zs];
Posr=Transpose[{Zs,Xsr}];

Animate[
Graphics[{
Style[Point[Posr/.{κ->kk,t->tt}],PointSize[0.02]],
Line[Posr/.{κ->kk,t->tt}]
},PlotRange->{{-0.25,num-0.25},{-2,2}}],
{tt,0,∞},
{{kk,0.1,Dynamic["κ a = "<>ToString[Round[kk/π,0.01]]]},0.01,0.5},SaveDefinitions->True,AnimationRunning->False
]