function prenos_RC
% Urèení napì�ového pøenosu a vykreslení amplitudové a fázové frekvenèní
% charakteristiky filtru v rozsahu 10 rad/s až 1000000 rad/s
% v semilogaritmických souøadnicích s osou x s logaritmickým dìlením.
% --------------------------------------------------------------------
% Filtr je obvod pøenášející pouze vybrané frekvence a tlumící ostatní.
% Pasivní filtry se skládají z pasivních souèástek (rezistor, cívka a
% kondenzátor). Pomìr výstupního a vstupního napìtí se nazývá napì�ový
% pøenos Ku. Amplitudová frekvenèní charakteristika je závislost absolutní
% hodnoty pøenosu Ku na frekvenci omega[rad/s] a fázová frekvenèní
% charakteristika je závislost úhlu phi=arctg(Im(Ku)/Re(Ku)) na frekvenci
% omega[rad/s].
% --------------------------------------------------------------------
% RC integraèní èlen (dolní propus� - odfiltruje vyšší kmitoèty), 
% dáno R[Ohm], C[F].
%         R
%        ___ 
%   o---|___|---------------o-----------o
%   |                       |           |
%   |                       |           |
%   |                       |           |
%   U1                    -----         U2
%   |                     ----- C       |
%   |                       |           |
%  \|/                      |          \|/     Pøenos: Ku=U2/U1
%   |                       |           |
%   o-----------------------o-----------o

w=logspace(1,6,100); % vytvoøení øady s logaritmickým dìlením
                     % logspace(poèátek,konec,poèet bodù na ose)
                     % w je z intervalu od 10^1 do 10^4, tj. od 10 
                     % do 10 000 rozdìleného na 100 bodù
R = 10; % R [Ohm]
C = 1e-3; % C [F]
Ku = (1./(j*w*C))./(R+(1./(j*w*C))); % výpoèet napì�ového pøenosu Ku

amplituda = abs(Ku); % výpoèet velikosti (absolutní hodnoty) komplexního èísla podle vzorce: sqrt(Re^2+Im^2)
faze = angle(Ku)*180/pi; % výpoèet úhlu komplexního èísla podle vzorce: arctg(Im(Ku)/Re(Ku))
                         % úhel pøeveden na stupnì

subplot(2,1,1); % rozdìlení grafického okna na 2 èásti (nasledující graf v 1. èásti)
semilogx(w,amplituda); % graf  v semilogaritmických souøadnicích s osou x s logaritmickým dìlením
                       % amplitudová frekvenèní charakteristika - závislost
                       % absolutní hodnoty pøenosu Ku na frekvenci w
grid                      % møížka v grafu
xlabel('\omega [rad/s]'); % popis osy x
                          % \omega - øecké písmeno omega
ylabel('|K_u|'); % popis osy y
                 % _u - u je zobrazeno jako dolní index

subplot(2,1,2); % rozdìlení grafického okna na 2 èásti (nasledující graf v 2. èásti)
semilogx(w,faze); % graf v semilogaritmických souøadnicích s osou x s logaritmickým dìlením
                     % fázová frekvenèní charakteristika - závislost úhlu
                     % (fáze) pøenosu Ku na frekvenci w
grid                      % møížka v grafu
xlabel('\omega [rad/s]'); % popis osy x
                          % \omega - øecké písmeno omega
ylabel('\phi [\circ]'); % popis osy y
                        % \phi - øecké písmeno fi
                        % \circ - znak pro stupeò (koleèko)