bromssträcka

%Variering av parametrar except bh.

Bromsvek = 1000:100:16000;

%                                                     (m  , r  , R , k, F    , h  , g   , hb , n , A , C)
[x, xdot, xdotdot, t] = Bromsfrittfall(850, 0.5, 1, 10, Bromsvek, 100, 9.82, 35, 0.01, 3, 0.45) ;


bromsdist = zeros(4, numel(i));
j = 1;
f = 1;
z = 1;
for i = 0.5:0.5:5.5
    [x, xdot, xdotdot, t] = Bromsfrittfall(850, i, 1, 10, Bromsvek, 100, 9.82, 35, 0.01, 3, 0.45);
    bromsdist(1,j) = x(end);
    j = j + 1;
end

for k = 1:0.5:6
    [x, xdot, xdotdot, t] = Bromsfrittfall(850, 0.5, k, 10, Bromsvek, 100, 9.82, 35, 0.01, 3, 0.45);
    bromsdist(2,f) = x(end);
    f = f + 1;
end

for c = 850:150:2350
   [x, xdot, xdotdot, t] = Bromsfrittfall(c, 0.5, 1, 10, Bromsvek, 100, 9.82, 35, 0.01, 3, 0.45);
   bromsdist(3,z) = x(end);
   z = z + 1;
end

stegvek = 0.5:0.5:5.5;
plot(stegvek,bromsdist(1,:));
title('Inre radien variation');
ylabel('Bromssträcka')
xlabel('Radien av inre hjulet');