<%
Dim debugging
debugging = "OFF"
Dim length, width, north_window_width, north_window_height, north_window_shading, south_window_width, south_window_height, south_window_shading, occupants, equipment, lighting
Dim area_kcal, north_window_kcal, south_window_kcal, occupants_kcal, equipment_kcal, lighting_kcal, total_kcal, total_btu
total_kcal = 0
total_btu = 0
length = Request.Form("length")
width = Request.Form("width")
north_window_width = Request.Form("north_window_width")
north_window_height = Request.Form("north_window_height")
north_window_shading = Request.Form("north_window_shading")
south_window_width = Request.Form("south_window_width")
south_window_height = Request.Form("south_window_height")
south_window_shading = Request.Form("south_window_shading")
occupants = Request.Form("occupants")
equipment = Request.Form("equipment")
lighting = Request.Form("lighting")
area_kcal = length * width * 84.23
If debugging = "ON" Then
Response.Write("DEBUG: area_kcal ")
Response.Write area_kcal
Response.Write("
")
End If
north_window_kcal = north_window_width * north_window_height * 41
If north_window_shading = "FALSE" Then
north_window_kcal = north_window_kcal * 1.4
End If
If debugging = "ON" Then
Response.Write("DEBUG: north_window_kcal ")
Response.Write north_window_kcal
Response.Write("
")
End If
south_window_kcal = south_window_width * south_window_height * 217
If south_window_shading = "FALSE" Then
south_window_kcal = south_window_kcal * 1.4
End If
If debugging = "ON" Then
Response.Write("DEBUG: south_window_kcal ")
Response.Write south_window_kcal
Response.Write("
")
End If
occupants_kcal = occupants * 150
If debugging = "ON" Then
Response.Write("DEBUG: occupants_kcal ")
Response.Write occupants_kcal
Response.Write("
")
End If
equipment_kcal = equipment * 0.85
If debugging = "ON" Then
Response.Write("DEBUG: equipment_kcal ")
Response.Write equipment_kcal
Response.Write("
")
End If
lighting_kcal = lighting * 1.1
If debugging = "ON" Then
Response.Write("DEBUG: lighting_kcal ")
Response.Write lighting_kcal
Response.Write("
")
End If
total_kcal = area_kcal + north_window_kcal + south_window_kcal + occupants_kcal + equipment_kcal + lighting_kcal
If debugging = "ON" Then
Response.Write("DEBUG: total_kcal pre fix ")
Response.Write total_kcal
Response.Write("
")
End If
total_kcal = fix(total_kcal)
If debugging = "ON" Then
Response.Write("DEBUG: total_kcal post fix ")
Response.Write total_kcal
Response.Write("
")
End If
total_btu = total_kcal * 4
If total_kcal <> 0 Then
Response.Write ("
Activair portable air conditioners totalling ")
Response.Write total_btu
Response.Write (" BTU (")
Response.Write total_kcal
Response.Write (" K/cal) are required.
")
Response.Write ("")
End If
%>
Notes on use
Equipment and Lighting - Add together the total wattage for all items. The wattage can
is normally written on the equipment or light.
1kw = 1000w
This calculator assumes there is a reasonable level of insulation in the walls and roof or ceiling.
Disclaimer
This calculator is provided as a quick check of heat load. It is not a replacement for a detailed
heat load calculation. For precise calculations contact a specialist air conditioning
contractor.
W. Tombling Ltd has taken every precaution to ensure this calculator is accurate, however we accept no responsibility or
liability resulting from its use.
www.tombling.com