restart;Wave examplesg:=x->piecewise(x<-1,0,x>1,0,x>-1 and x<1, ((1+x)*(1-x))^3);plot(g(x),x=-2..2,color=red,thickness=3);with(plots):animate(plot,[g(x-t),x=-10..10,color=red,thickness=3,axes=none],t=0..10);animate(plot,[g(x+t),x=-10..10,color=red,thickness=3,axes=none],t=0..10);animate(plot,[(g(x-t)+g(x+t))/2,x=-10..10,color=red,thickness=3,axes=none],t=0..10,frames=50);animate(plot,[(g(x-t)+g(x+t))/2,x=-10..10,color=red,thickness=3,axes=none],t=-10..10,frames=50);animate(plot,[(2*g(x-t)-g(x+t))/2,x=-10..10,color=red,thickness=3,axes=none],t=-10..10,frames=50);Examples of standing wavesanimate(plot,[sin(x-t),x=-5*Pi..5*Pi,color=blue,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);animate(plot,[sin(x+t),x=-5*Pi..5*Pi,color=green,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);animate(plot,[sin(x+t)+sin(x-t),x=-5*Pi..5*Pi,color=magenta,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);A:=array(1..3,1..1);A[1,1]:=animate(plot,[sin(x-t),x=-5*Pi..5*Pi,color=blue,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);A[2,1]:=animate(plot,[sin(x+t),x=-5*Pi..5*Pi,color=green,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);A[3,1]:=animate(plot,[sin(x+t)+sin(x-t),x=-5*Pi..5*Pi,color=magenta,thickness=3,axes=none,scaling=constrained],t=0..5*Pi);display(A,axes=none,scaling=unconstrained,insequence=true);