function [RosnyBod] = FceRosnyBod(lambda)
%UNTITLED2 Summary of this function goes here
%   Detailed explanation goes here

lam=lambda;
a= 1.077;       %součinitel teoretické potřeby vzduchu [-]
%t=60;           %teplota spalin [°C]
x=0.14;         %měrná vlhkost spalin [kg/kg t.s.s.]
p=100;           %atmosferický tlak [kPa]


%parciální tlak páry v závislosti na měrné vlhkosti spalin
ppx=p/(0.622/(x*(1+a*(lam-1)))+1); %x=0.14

%teplota rosného bodu 
tr=(-4044.2/(-23.58+log(ppx)-log(0.001)))-235.6; 
%[3] Chyský, J., Hemzal,K. a kol.: Technický průvodce "Větrání a klimatizace". Bolit, 1993

RosnyBod=tr;

end

