function [s_n,delka_odr]=priklad2(n,odr)
%[s_n,delka_odr]=priklad2(n,odr)
%
%Vyresi Priklad2 (Dve mesta A a B jsou od sebe po zeleznici vzdalena 90 km. Z mesta A do
% mesta B vyjede vlak rychlost? 10 km/h. V tu samou chv?li vyjede z mesta B vlak do mesta
% A po te same koleji stejnou rychlost?. Ve chvili, kdy se vlaky rozjedou vstric jiste zkaze,
% z predniho okna lokomotivy vlaku jedouciho z A do B se odrazi moucha rychlosti 100 km/h
% a leti vstric druhemu vlaku. Ve chvili, kdy k nemu doleti, dotkne se nozkou jeho predniho
% skla a leti zpatky. Takto moucha lita mezi vlaky nez ji rozmacknou na placku pri jejich
% srazce. Kolik kilometru moucha celkem naletala? Jakou vzdalenost moucha urazila mezi
% 15. a 16. odrazenim se od oken lokomotiv (jinymi slovy: jak dlouhy byl jeji 15. let mezi
% vlaky)?
%
%
% n    ... pocet clenu castecneho souctu
% odr ... cislo odrazu mouchy
%
% delka_odr ... delka letu mouchy mezi odrazem cislo "odr" a cislo "odr+1"
% f ... maximalni hustoty sily, ktera muze pu

v_m = 100; % rychlost mouchy
v_v = 10; % rychlost vlaku
vzd = 90; % vzdalenost mezi mesty

t_n = vzd / (v_m + v_v); % t_1
s_n = v_m * t_n; 

if odr == 1
    fprintf('Mezi 1. a 2. odrazenim moucha uletla %f km.\n', s_n);
end

pom = 0;
for k = 2 : n
    pom = pom + t_n;
    t_n = (vzd - 2*v_v*pom) / (v_m + v_v); % t_n
    s_n = s_n + v_m * t_n;
    if odr == k
        fprintf('Mezi %d. a %d. odrazenim moucha uletla %f km.\n', odr, odr+1, v_m*t_n);
        delka_odr = v_m*t_n; 
    end        
end

fprintf('Po %d odrazenich moucha uletla %f km.\n', n, s_n);

% konec