Heat calculation

heat.m

function q = heat(mph)
% Given a walking speed in miles per hour, returns the energy given off as heat
% in 30 degree celsius temperature with no wind.

% No simple formula for energy taken by exercise, unfortunately
if mph == 3
	exCalPerH = 230;
elseif mph == 4
	exCalPerH = 350;
elseif mph == 5
	exCalPerH = 544;
end

calFromSun = 172;
windSpeed = mph * .447; % mph -> m/s
convection = 59.8 * sqrt(windSpeed);
convectionCals = 860.42 / 1000 * convection % 1 W = 860 Cal/h
timeTaken = (1/2) / mph; % walking half a mile
q = (exCalPerH + calFromSun - convectionCals) * timeTaken;