function RL_reseni
% Reseni serioveho obvodu R,L s konstantnim zdrojem napeti,
% diferencialni rovnice obvodu dana v m-file RLobvod.m

% Na vetev tvorenou seriove spojenym odporem 200 Ohm a civkou 0,5 H pripojime 
% v okamziku t=0 zdroj napeti s konstantnim napetim Uo=100V               
%      R ___     _L _  _
%    ---|___|---/ \/ \/ \---        % podle 2. Kirchhoffova zakona:
%   |                       |       %  uR  +  uL   =  Uo
%   |     _                 |       % R*i  +  L*i' =  Uo
%   |____/ \________/ ______|       %           i' = (Uo - R*i) / L
%        \_/        t=0             % v MATLABu:    i oznacime proud
%        Uo                         %               i' oznacime dproud
                                    %       dproud = (Uo-R*proud)/L

[t,proud]=ode45(@RLobvod,[0,0.1],0);
        % ode45(@nazev, casovy interval, pocatecni podminka)
        % resi diferencialni rovnici danou v m-file RLobvod.m
        % v casovem intervalu od 0 do 1 s pocatecni podminkou i(0)=0
        % vysledkem je [t,proud], tj. pro kazdy cas z cas.intervalu vypocteny proud
plot(t,proud) % vykresleni dvourozmerneho grafu
xlabel('t') % popis osy x
ylabel('i [A]') % popis osy y