ER

rcz=20000;
rc=rcz/159;
re=3.46;
rb=16.7;
Ec=40;
R0=10;
Rg=2160;
Rn=50;
Rc=580;
B=158;
Ucea=8;
Ueba=0.650;
Ic=0.015;
Iba=0.3*10^(-3);
Iea=Ic+Iba;
Re=(Ec-Ucea)/Iea;
R_epR_n=((Re+R0)*Rn)/((Re+R0)+Rn);
skobka=(rcz*(R_epR_n+re))/(rcz+(R_epR_n+re));
R_in=rb+(1+B)*skobka;
disp("R_in");
disp(R_in);
R_inmax= (1+B)*rcz;
disp("R_inmax");
disp(R_inmax);
Rb=2*R_in;
disp("Rb");
disp(Rb);
disp("Re");
disp(Re);
R1=(Ec*Rb)/(Ueba+Iea*Re+Iba*Rb);
disp("R1");
disp(R1);
R2=(R1*Rb)/(R1-Rb);
disp("R2");
disp(R2);
gammab=(Re+R0)/(Re+R0 +Rb);
disp("gammab");
disp(gammab);
S=B/(1+B*gammab);
disp("S");
disp(S);
Ring=(R_in*Rb)/(R_in+Rb);
disp("Ring");
disp(Ring);
Kumax=rc/(rb+rc);
disp("Kumax");
disp(Kumax);
Ku=(1+B)*skobka/(Rg+rb+(1+B)*skobka);
disp("Ku");
disp(Ku);
Ki=(1+B)*((Rg)/(Rg+R_in))*(((Re*rcz)/(Re+rcz))/(Rn+((Re*rcz)/(Re+rcz))));
disp("Ki");
disp(Ki);
Rout = re + (Rg+rb)/(1+B);
disp("Rout");
disp(Rout);
Routmin = (rb)/(1+B);
disp("Routmin");
disp(Routmin);