%  Programmet beräknar fallsträcka 
%  enligt formeln s=0.5*m*g*t.^2+v_0*t .  
%  /stig 

clf        % clear figure
hold on    % behåll figur
clear all  % radera all variabler

m=10;              % massa [kg]
g=9.82;            % tyngdacceleration [m/s^2]
v_0=3;             % utgångsfart [m/s]
t=linspace(0,3);   % vektor av tidpunkter [s]

s=0.5*m*g*t.^2+v_0*t;   % vektor av fallsträckor [m]
plot(t,s)               % plotta s som funktion av t 
tabell=[t',s']          % gör en tabell

m=5;                    % nytt värde på massan
s=0.5*m*g*t.^2+v_0*t;   % beräkna nya värden på fallsträckan
plot(t,s,'r')           % plotta ny kurva, röd färg 

grid                    % skapa rutnät i figuren
legend('m=10', 'm=5')   % lägg in text i figuren 
xlabel('t')
ylabel('s')
title('Fallsträckan som funktion av tiden')

hold off
