function RL_reseni
% 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

R=4; % R=4 Ohm
L=0.3; % L=0,3 H
U0=24; % U0=24V
[t,proud]=ode45(@RL_dif_rov,[0,1],0);  
   % resi diferencialni rovnici danou v m-file RL_dif_rov
   % v casovem intervalu od 0 do 1 s pocatecni podminkou i(0)=0

% napetove odezvy
uR=R*proud; % ze vztahu uR = R*i
uL=U0-uR; % z 2. Kirchhoffova zakona: uR + uL =  U0,
          % lze tez vypocitat ze vztahu: uL = L*di/dt

          plot(t,proud,t,uR,t,uL) % vykresleni dvourozmerneho grafu
xlabel('t [s]') % popis osy x
ylabel('i_L,  u_R,  u_L') % popis osy y, znak _ vytvori dolni index
legend('i_L [A]','u_R [V]','u_L [V]') % popis krivek (legenda), znak _ vytvori dolni index
% proud iL stoupa k hodnote U0/R=24/4=6A
% napeti uR stoupa k hodnote U0=24V
% napeti uL klesa z hodnoty U0=24V na hodnotu 0
