clear
clc

Amplitude=3;
X=-10:1/100:10;
Wavelength=3;
WaveNumber=2*pi*(1/Wavelength);
Velocity=0.1;

for Time=1:50
    
Wave(Time,1:length(X))=Amplitude.*sin(WaveNumber.*(X-(Velocity.*Time)));

end

PropagationParameter=[1:1:Time];
PropagationEvolution=Wave(PropagationParameter,:);
mesh(X,PropagationParameter,PropagationEvolution);
h=mesh(X,PropagationParameter,PropagationEvolution);
%set(h,'EdgeColor',[0 0 0]);
set(h,'MeshStyle','row');
title(['A Moving Wave (WaveNumber :',num2str(WaveNumber),' and Period T=',num2str(Wavelength/Velocity),')']);
xlabel('Distance');
ylabel('Time');
zlabel('Amplitude');
hidden off