function T=wire_t(r)
	a=.02;   % wire radius in m
	q=40;    % heat generation in wire in W/m 
	k=0.016; % thermal conductivity of isolation in W/(m*K)
	h=1;  % coefficient of convective heat-transfer in W/(m^2*K)
	T_ambient=280; % ambient temperature for far away points (at infinity)

	T=q/(2*pi)*(log(r/a)/k + 1/(h*r)) + T_ambient;
end
