function [ IC0, UE0 ] = munkapont( R1, R2, RE, Up, UBE0, B )

UB0=Up*(R2/(R1+R2));
UE0=UB0-UBE0;
IE0=UE0/RE;
IB0=IE0/(B+1);
IC0=B*IB0;

UCE0=(Up-UE0)/2;
RC=(Up-UCE0-UE0)/IC0;

format long

disp(['IB0= ', num2str(IB0)]);

disp(['IC0= ', num2str(IC0)]);

disp(['IE0= ', num2str(IE0)]);

disp(['UE0= ', num2str(UE0)]);

disp(['UB0= ', num2str(UB0)]);

disp(['UCE0= ', num2str(UCE0)]);

disp(['RC= ', num2str(RC)]);

end

