function vypocet_proudu
% uživatel zadá hodnoty 2 odporù zapojených paralelnì a napìtí
% je vypoèten proud podle Ohmova zákona
% využita funkce paralel.m - viz http://home.zcu.cz/~lsroubov/PPEL

r1=input('1.odpor [Ohm] =');    % uživatel zadá hodnotu 1. odporu
r2=input('2.odpor [Ohm] =');    % uživatel zadá hodnotu 2. odporu
R=paralel(r1,r2);               % funkce R=paralel(R1,R2) - viz http://home.zcu.cz/~lsroubov/PPEL
U=input('napeti [V] =');        % uživatel zadá napìtí
I=U/R;                          % výpoèet proudu podle Ohmova zákona
fprintf('\nParaleni kombinaci odporu %5.2f Ohm a %5.2f Ohm \npri napeti %5.2f tece proud %5.2f A.\n',r1,r2,U,I)
fprintf('\nCelkový odpor je %5.2f Ohm.\n',R)