function dproud=RL_dif_rov(t,proud)
% diferencialni rovnice 1. radu s konstantnimi koeficienty
% pro reseni serioveho obvodu R,L s konstantnim zdrojem napeti

% Na vetev tvorenou seriove spojenym odporem 4 Ohm a civkou 0,3 H pripojime 
% v okamziku t=0 zdroj napeti s konstantnim napetim U0=24V

% obvod je resen volanim funkce RL_reseni.m

R=4; % R=4 Ohm
L=0.3; % L=0,3 H
U0=24; % U0=24V
% podle 2. Kirchhoffova zakona:
%  uR  +     uL   =  U0
% R*i  +  L*di/dt =  U0
%           di/dt = (U0 - R*i) / L

% resena diferencialni rovnice
% i oznacime proud, di/dt oznacime dproud
dproud=(U0-R*proud)/L;