Riflessione su corda tesa (vari r)

dimimm=1000;

xmax=10;
nx=50;

tmin=-10;
tmax=13;
nt=20.;
tpasso=Pi/nt;

Manipulate[Column[{Plot[{Exp[-( x-t)^2],r Exp[-(x+t)^2]},{x,-xmax,0},PlotRange->2,AspectRatio->1/5,ImageSize->dimimm,PlotPoints->nx],Plot[If[x<0,Exp[-( x-t)^2]+r Exp[-(x+t)^2],0],{x,-xmax,0},PlotRange->2,AspectRatio->1/5,ImageSize->dimimm,PlotPoints->nx]}],{t,tmin,tmax,tpasso},{{r,0},-1,1}]

Riflessione e trasmissione di onda armonica (vari η)

dimimm=1000;

xmax=4. Pi;
nx=50;

tmax=2. Pi;
nt=20.;
tpasso=Pi/nt;

Manipulate[Column[{Plot[{If[x<0,Cos[ x-t],2/(n+1)Cos[n x-t]],If[x<0,(1-n)/(1+n)Cos[x+t],0]},{x,-xmax,xmax},PlotRange->2,AspectRatio->1/5,ImageSize->dimimm,PlotPoints->nx,Mesh->1,MeshStyle->{PointSize[Large]}],Plot[If[x<0,Cos[ x-t]+(1-n)/(1+n) Cos[x+t],2/(n+1)Cos[n x-t]],{x,-xmax,xmax},PlotRange->2,AspectRatio->1/5,ImageSize->dimimm,PlotPoints->nx]}],{t,0,tmax,tpasso},{{n,1,"η"},0,20,.1}]