function [Is,Ip] = vypocet_proudu(R1,R2,U0)
% proud seriovym a paralelnim spojenim R1 a R2
Rs = soucet(R1,R2);
Rp = paralelne(R1,R2);
Is = U0/Rs;
Ip = U0/Rp;
end

