Q = (k*A/L)*(T1 - T2); fprintf('Heat transfer rate: %.2f W\n', Q);
A copper sphere (diameter ( D = 0.02 , \textm )) initially at ( T_i = 200^\circ \textC ) is cooled by air at ( T_\infty = 25^\circ \textC ) with ( h = 100 , \textW/m²·K ). Find temperature vs. time. (Copper: ( \rho = 8933 , \textkg/m^3 ), ( c_p = 385 , \textJ/kg·K ), ( k = 401 , \textW/m·K ). Check Biot number.) Q = (k*A/L)*(T1 - T2); fprintf('Heat transfer rate: %