%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Desenvolvido por Leonardo M. N. de Mattos. %
% www.mattos.eng.br                          %
% l (at) mattos.eng.br                       %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [ Txy ] = Tanalitica(x,y,H,L,Td)
%Tanalitica Calcula temperatura analitica de uma placa dados x e y
% 

soma = 0;
for k = 1:50
    soma = soma + (((-1)^(k+1)+1)/k)*sin(k*pi*x/L)*(sinh(k*pi*y/L)/sinh(k*pi*H/L));
end

Txy = Td*(2/pi)*soma;

end
