Activair air conditioning size calculator

Floor Area

Length:   "> metres
Width:   "> metres
 

North facing windows

Width:   "> metres
Height:   "> metres
Shading:  
 

South facing windows

Width:   "> metres
Height:   "> metres
Shading:  
 

Number of workers

Occupants:   ">  
 

Equipment

Total power of equipment:   "> watts
 

Lighting

Total power of lighting:   "> watts
 
   
<% 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