function dproud=RLobvod(t,proud)
% diferencialni rovnice 1. radu s konstantnimi koeficienty
% pro reseni serioveho obvodu R,L s konstantnim zdrojem napeti,
% obvod je resen volanim funkce RL_reseni.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
R=200; % R=200 Ohm
L=0.5; % L=0,5 H
Uo=100; % Uo=100V

dproud=(Uo-R*proud)/L; % resena diferencialni rovnice