A=1;
T=1;
λ=1;
w=2*Pi/T;
k=2*Pi/λ;
plot=Animate[Plot[A*Sin[k*x-w*t],{x,0,2},PlotRange->{{0,2},{-1,1}}],{t,0,2,0.01}]

A=1;
T=1;
λ=1;
w=2*Pi/T;
k=2*Pi/λ;
plot=Animate[Plot[A*Sin[k*x+w*t],{x,0,2},PlotRange->{{0,2},{-1,1}}],{t,0,2,0.01}]

A=1;
T=1;
λ=1;
w=2*Pi/T;
k=2*Pi/λ;
plot=Animate[Plot[A*Sin[k*x-w*t]+A*Sin[k*x+w*t],{x,0,2},PlotRange->{{0,2},{-2,2}}],{t,0,2,0.01}]

A=1;
T=1;
λ=1;
w=2*Pi/T;
k=2*Pi/λ;
plot=ListAnimate[Table[Plot3D[A*Sin[k*x-w*t],{x,0,2},{y,0,2},PlotRange->{{0,2},{0,2},{-1,1}}],{t,0,2,0.01}]]

A=1;
T=1;
λ=1;
w=2*Pi/T;
k=2*Pi/λ;
plot=ListAnimate[Table[Plot3D[A*Sin[k*x-w*t]+A*Sin[k*x+w*t],{x,0,2},{y,0,2},PlotRange->{{0,2},{0,2},{-2,2}}],{t,0,2,0.01}]]

f=440;
exp=Play[Sin[2*Pi*f*t],{t,0,5}]

Export["som.wav",Sound[exp]]