r=[0,0,5];			%Dette er startverdien for r=[x,y,z]
lagraX=[r(1)];
lagraY=[r(2)];			%Nå må vi også ha en lagraY !
lagraZ=[r(3)];
deltat=0.01;			%En ganske fornuftig verdi for deltat
theta=60*pi/180;		%Vi vil ha vinkelen i radianer
v=4*[cos(theta),0,sin(theta)];			%Startverdien som gitt i oppg. a)
g=[0,0,-9.81];			%Dette er startverdien for akselerasjonen
a=g;
m = 3;
K = 2;


while (r(3)>0)				%Merk: vi har byttet ut r(2) med r(3) !!!
    r=r+v*deltat;				%Ingen endringer nødvendige
    v=v+a*deltat;				
    a=g;						%Denne bør skrives på vektorform
    lagraX=[lagraX, r(1)];
    lagraY=[lagraY, r(2)];
    lagraZ=[lagraZ, r(3)];
end

plot3(lagraX,lagraY,lagraZ)

%Ikke bry deg så hardt om denne koden, den brukes til å tegne et fotballmål og oppmerking på banen.
%axis([-2,13,-7,7,0,5])
%hold on
%plot3( [11 11], [3.71 3.71], [0 2.44] , 'r')
%plot3( [11 11], [3.71 -3.71], [2.44 2.44] , 'r')
%plot3( [11 11], [-3.71 -3.71], [2.44 0] , 'r')
%plot3( [5 5], [-5 5], [0 0], 'g')
%plot3( [5 11], [5 5], [0 0], 'g')
%plot3( [5 11], [-5 -5], [0 0], 'g')
%plot3( [11 11], [-7 7], [0 0], 'g')
%scatter3(0,0,0)
%hold off
