% Øving 1
% Oppg. a
% Fig. 1

clear
A=0.010*10^2;
T=0.010;
lambda=0.10*10^2;
x=[0:0.1:25];
t=0;
y=A*sin(2*pi*(x/lambda-t/T));

figure(1)
clf

t=0;
y=A*sin(2*pi*(x/lambda-t/T));
subplot(3,1,1)
plot(x,y)
axis([0 25 -1.5 1.5])
ymin=-1.5;
ymax=1.5;
xlabel('x [cm]')
ylabel('y [cm]')
gtext('t=0 s')
grid

t=0.0025;
y=A*sin(2*pi*(x/lambda-t/T));
subplot(3,1,2)
plot(x,y)
axis([0 25 -1.5 1.5])
xlabel('x [cm]')
ylabel('y [cm]')
gtext('t=0.0025 s')
grid

t=0.0050;
y=A*sin(2*pi*(x/lambda-t/T));
subplot(3,1,3)
plot(x,y)
axis([0 25 -1.5 1.5])
xlabel('x [cm]')
ylabel('y [cm]')
gtext('t=0.0050 s')
grid
