function [t,C] = koncentrace(tN,n,C0,Cl,v_d)
% [t,C] = koncentrace(tN,n,C0,Cl,v_d)
%
% Funkce vyresi rovnici C'(t) = -k*C(t) popisujici pokles koncentrace leku 
% v krvi s pocatecni podminkou C(0) = C0 na <0,tN> Eulerovou metodou
%
% tN  ... horni mez intervalu, na kterem resime nasi rovnici (v hodinach)
% n   ... pocet deleni
% C0  ... koncentrace leku v case 0
% Cl  ... clearance
% v_d ... distribucni objem
%
% t ... diskretizace <0,tN>
% C ... hodnoty hledane koncentrace

k = Cl*60/1000/v_d;

%dodelat
%
%
%
%
%
%dodelat

plot(t,C)

% konec
