( * Onda periódica *)

Animate[Plot[Cos[x+4t],{x,-5Pi,5Pi},PlotRange->All],{t,0,2}]

( * Onda estacionária *)

Animate[Plot[Cos[x+4t]+Cos[x-4t],{x,-5Pi,5Pi},PlotRange->{{-5Pi,5Pi},{-2.,2.}}],{t,0,2}]

( * Superposição de ondas estacionárias *)

Animate[Plot[2/Pi*Sin[Pi*t]*Sin[Pi*x]-3/(2Pi)*Sin[2Pi*t]*Sin[2*Pi*x],{x,-4Pi,4Pi},PlotRange->{{-3Pi,3Pi},{-2,2.}}],{t,0,3}]

( * Uma frente *)

Animate[Plot[ArcTan[-Exp[(x-6t)]],{x,-10Pi,10Pi},PlotRange->All],{t,0,2}]

( * Um pulso *)

Animate[Plot[Exp[-(x-4t)^2],{x,-5,10},PlotRange->All],{t,0,2}]

( * Um solitão (um pulso) *)

Animate[Plot[6*(Sech[(x-2t)])^2,{x,-4Pi,4Pi},PlotRange->All],{t,0,2}]

( * Colisão de dois solitões*)

Animate[Plot[6*(Sech[(5+x-2t)])^2+6*(Sech[(-5+x+2t)])^2,{x,-4Pi,4Pi},PlotRange->{{-3Pi,3Pi},{0,12.}}],{t,0,3}]

( * Interação entre dois solitões de amplitudes e velocidades diferentes*)

u1[x_,t_]:=Exp[8t-2x];u2[x_,t_]:=Exp[x-t];A=(2-1)^2/(2+1)^2;

u[x_,t_]:=12(2^2u1[x,t]+1^2u2[x,t]+2(2-1)^2*u1[x,t]*u2[x,t]+A*u1[x,t]*u2[x,t](2^2*u2[x,t]+1^2*u1[x,t]))/(1+u1[x,t]+u2[x,t]+A*u1[x,t]*u2[x,t])^2

Animate[Plot[u[x,t],{x,-10,10},PlotRange->{{-10,10},{0,12}}],{t,-10,10}]

( * Onda de choque*)

uchoque[x_,t_]:=Piecewise[{{50,x<-30t},{150,x≥-30t}}];

Animate[Plot[uchoque[x,t],{x,-1,1},PlotRange->{{-1,1},{0,150}}],{t,0,0.04}]

( * Solução de viscosidade*)

uvisco[x_,t_,r_]:= 150-(150-50)/(1+Exp[(150-50)*90/(r*150)*(x+(90*50)/150*t)]);

Animate[Plot[uvisco[x,t,r],{x,-2,2},PlotRange->{{-2,2},{0,150}}],{t,0,0.04},{r,0.1,10}]