d’Alembertovo řešení

F[x_]:=-1.0Exp[-1.0(x^2)]
G[x_]:=1.0Exp[-1.0(x^2)]
ψ[z_,t_]:=F[z-t]+G[z+t]

Animate[
Plot[ψ[z,t],{z,-9,9},PlotRange->{-2.0,2.0},Axes->None,PlotStyle->{{Black,Thick}}],
{t,-9.5,9.5}]

Tvar funkcí F(x) a G(x)

GraphicsRow[{
Plot[F[x],{x,-5,5},PlotRange->{-2,2}],
Plot[G[x],{x,-5,5},PlotRange->{-2,2}]
}]

d’Alembertovo řešení včetně energetických veličin

F[x_]:=-1.0Exp[-1.0(x^2)]
G[x_]:=1.0Exp[-1.0(x^2)]
ψ[z_,t_]:=F[z-t]+G[z+t]
dψt[z_,t_]=D[ψ[z,t],t];
dψz[z_,t_]=D[ψ[z,t],z];
Animate[
Plot[{1.0+ψ[z,t],-1.0+((dψt[z,t])^2),-2.0+((dψz[z,t])^2),-3.0-dψz[z,t] dψt[z,t]},{z,-9,9},PlotRange->{-4.0,2.5},Axes->None,PlotStyle->{{Black,Thick},Red,Blue,Purple}],
{t,-9.5,9.5}]