r=[0,20];			%Dette er startverdien for r=[x,z]
lagraX=[r(1)];			%Startverdien for x = r(1) lagres i lagraX
lagraZ=[r(2)];
deltat=0.01;			%En ganske fornuftig verdi for deltat
v=[5,2];			%Dette er utgangshastigheten.
a=[0,-5];			%Dette er startverdien for akselerasjonen
ztopp = 0;			%Denne skal lagre maksimal z


while (r(2)>0)					%Vi kjorer helt til vi treffer bakken
    r=r+v*deltat;				%Her endrer vi r-verdien som tidligere forklart.
    v=v+a*deltat;				%Her endrer vi v likedan.
    a=[a(1), a(2) - 0.07];			%Her endres kun z-verdien av akselerasjonen.
    lagraX=[lagraX, r(1)];			%Legger til den nye x-verdien til lagraX-vektoren.
    lagraZ=[lagraZ, r(2)];
    if (v(2) > 0)
    	ztopp = r(2);		%Mens farten i z-retning er positiv, oppdaterer vi ztopp.
    end
end
 
plot(lagraX, lagraZ)	%Plotter punktene vi har funnet, og viser grafen.
disp(r(1))			%Skriver ut x-verdien for punktet der objektet lander.
