clear all

x=[0 0];
y=[0 0];

figure(100)
clf

% Forsta for-slingan
for ii=1:50
    
    x=x+[-1 1];
    y=y+[1 1];
    plot(x,y,'r*'), hold on
    pause(0.01)
    
end
% Andra for-slingan
for ii=1:25
    x=x+[1 -1];
    y=y+[1 1];
    plot(x,y,'b*'), hold on
    pause(0.01)
end
% Tredje for-slingan
for ii=1:25
    x=x+[1 -1];
    y=y+[-1 -1];
    plot(x,y,'m*'), hold on
    pause(0.01)
end


%% Villkor pa positionen 
% Detta hann vi inte med p? lektionen

x=[0 0];
y=[0 0];

%figure(100)
%clf
while x(2)<30
    x=x+[-1 1];
    y=y+[1 1];
    plot(x,y,'r*'), hold on
    pause(0.01)
end
%% Berakna medelavstand till origo
x=[0 0];
y=[0 0];
for ii=1:50
    
    x=x+[-1 1];
    y=y+[1 1];
    avs=sqrt(x.^2+y.^2);
    medelavs(ii)=sum(avs)/2;
    
end
figure(88)
plot(medelavs)

   