lambda=0.15;
alfa=9;
epsilon=0.7;
TPec=1200;
Tpovrch=50;
TVzduch=22;
TSalani=20;
sigma=5.66*(10^(-8));
rozmerPece=0.2;
tloustkaNadoby=0.01;

Svnitrni=6*(rozmerPece^2);
Svnejsi=6*(((rozmerPece+2*tloustkaNadoby+2*tlostkaIzolace))^2);

rce=(((TPec-Tpovrch))/tlostkaIzolace)*lambda*Svnitrni==Svnejsi*alfa*(Tpovrch-TVzduch)+Svnejsi*epsilon*sigma*((((Tpovrch+273))^4)-(((TSalani+273))^4));

k=FindRoot[rce,{tlostkaIzolace,5}]

(((TPec-Tpovrch))/tlostkaIzolace)*lambda*Svnitrni/.k