function [ Rbe, Rki ] = R_beki( IC0, UT, R1, R2, B, RC, RE1 )
rB= (B+1)*(UT/IC0);
rBplusRE1= rB+((B+1)*RE1);
R1xR2= RePlus(R1,R2);

Rbe = RePlus(R1xR2,rBplusRE1);
Rki = RC;

disp(['Rbe= ', num2str(Rbe)]);
disp(['Rki= ', num2str(Rki)]);
end