clc;
clear all;
x=[0:0.01:2];
c=343;
f=1000;
w=2*pi*f;
lambda=c/f;
k=2*pi/lambda;
close all;
for t=0:1e-5:0.005
    plot(x,sin(w*t-k*x))
    drawnow;
end