% T_1_0.m
% Jarkovskeho jev 1-D: amplituda povrchove teploty T_1(0).
% Miroslav Broz (miroslav.broz@email.cz), Jan 28th 2006

function y = T_1_0(f,T_eq,K)

global sigma C rho eps F1 A;

y = (1.-A)*F1./(4.*eps*sigma*T_eq.^3.) ./ (2.*Theta(f,T_eq,K).^2. + 2.*Theta(f,T_eq,K) + 1.);

return

