// JavaScript Document


var G_thick_1 = $F('G_thick-1');

function init(){
	$('content').addClassName('wideContent');
}


function updateHeaters(form){
	
	switch(form){
		case 'reservoirs':
		  reservoir_size();
		  break; 
		 
		 case 'reservoirs2':
		  reservoir_ht_disp();
		  break; 
		  
		 case 'conversions':
		  ht_converions();
		  break;
		  
		 case 'vehicles':
		  vehicle_wt();
		  wheels();
		  vcl_conversions();
		 break;
		
	}
	
}


function reservoir_size(){
	var res_size = $F('res_size'); // G3
	var wgt_fld = $F('wgt_fld'); // G6
	var spc_heat_fld = $F('spc_heat_fld'); // G7
	var srtng_temp = $F('srtng_temp'); // G8
	var fnl_temp = $F('fnl_temp'); // G9
	var ttl_time_heat = $F('ttl_time_heat'); //G11
	var tmp_rise; // G10
	var res_srf_area = $F('res_srf_area'); // G15
	var ht_sys_coef = $F('ht_sys_coef'); // G16
	var ttl_btu_kw_hr; // E12
	var ht_lss_kw_hr; // E20
	var cyl_res_dia = $F('cyl_res_dia'); // M13
	var cyl_res_lngth = $F('cyl_res_lngth'); // M14
	var rec_res_lngth = $F('rec_res_lngth'); // M6
	var rec_res_wdth = $F('rec_res_wdth'); // M7
	var rec_res_hdth = $F('rec_res_hdth'); // M8
	
	tmp_rise = (fnl_temp-srtng_temp);
	tmp_rise = (isNaN(tmp_rise)) ? 0 : tmp_rise;
	tmp_rise = roundNumber(tmp_rise, 2);
	$('tmp_rise').value = tmp_rise;
	
	ttl_btu_kw_hr = (res_size*wgt_fld*spc_heat_fld*tmp_rise/3412);
	ttl_btu_kw_hr = (isNaN(ttl_btu_kw_hr)) ? 0 : ttl_btu_kw_hr;
	ttl_btu_kw_hr = roundNumber(ttl_btu_kw_hr, 2);
	$('ttl_btu_kw_hr').value = ttl_btu_kw_hr;
	
	ht_lss_kw_hr = (res_srf_area*ht_sys_coef*tmp_rise/1000);
	ht_lss_kw_hr = (isNaN(ht_lss_kw_hr)) ? 0 : ht_lss_kw_hr;
	ht_lss_kw_hr = roundNumber(ht_lss_kw_hr, 2);
	$('ht_lss_kw_hr').value = ht_lss_kw_hr;
	
	ttl_kw_req4req = (ttl_btu_kw_hr/ttl_time_heat)+(ht_lss_kw_hr/2);
	ttl_kw_req4req = (isNaN(ttl_kw_req4req)) ? 0 : ttl_kw_req4req;
	ttl_kw_req4req = roundNumber(ttl_kw_req4req, 2);
	$('ttl_kw_req4req').value = ttl_kw_req4req;
	
	rec_res_gals = (rec_res_lngth*rec_res_wdth*rec_res_hdth/231);
	rec_res_gals = (isNaN(rec_res_gals)) ? 0 : rec_res_gals;
	rec_res_gals = roundNumber(rec_res_gals, 2);
	$('rec_res_gals').value = rec_res_gals;
	
	//rec_res_srf_area = (rec_res_lngth*rec_res_wdth) (rec_res_lngth+rec_res_hdth)+(rec_res_wdth*rec_res_hdth))*2/144);
	rrsa_a = (rec_res_lngth*rec_res_wdth);
	rrsa_b = (rec_res_lngth*rec_res_hdth);
	rrsa_c = (rec_res_wdth*rec_res_hdth);
	rec_res_srf_area = (rrsa_a + rrsa_b + rrsa_c)*(2/144);
	rec_res_srf_area = (isNaN(rec_res_srf_area)) ? 0 : rec_res_srf_area;
	rec_res_srf_area = roundNumber(rec_res_srf_area, 2);
	$('rec_res_srf_area').value = rec_res_srf_area;
	
	cyl_res_gals = (((3.1417*((cyl_res_dia/2)*(cyl_res_dia/2)))*cyl_res_lngth)/231);
	cyl_res_gals = (isNaN(cyl_res_gals)) ? 0 : cyl_res_gals;
	cyl_res_gals = roundNumber(cyl_res_gals, 2);
	$('cyl_res_gals').value = cyl_res_gals;
	
	cyl_res_srf_area = (((0.7854*(cyl_res_dia*cyl_res_dia))*2)/144)+(3.1417*cyl_res_dia*cyl_res_lngth/144);
	cyl_res_srf_area = (isNaN(cyl_res_srf_area)) ? 0 : cyl_res_srf_area;
	cyl_res_srf_area = roundNumber(cyl_res_srf_area, 2);
	$('cyl_res_srf_area').value = cyl_res_srf_area;
	
}

function reservoir_ht_disp(){
	var rsv_srf_area = $F('rsv_srf_area'); // E28
	var rsv_oil_tmp = $F('rsv_oil_tmp'); // E29
	var rsv_air_tmp = $F('rsv_air_tmp'); // E30
	var rsv_tmp_dif;
	var rsv_ht_dsp_btu;
	
	rsv_tmp_dif = (rsv_oil_tmp-rsv_air_tmp);
	rsv_tmp_dif = (isNaN(rsv_tmp_dif)) ? 0 : rsv_tmp_dif;
	rsv_tmp_dif = roundNumber(rsv_tmp_dif, 2);
	$('rsv_tmp_dif').value = rsv_tmp_dif;
	
	rsv_ht_dsp_btu = (2*rsv_tmp_dif*rsv_srf_area);
	rsv_ht_dsp_btu = (isNaN(rsv_ht_dsp_btu)) ? 0 : rsv_ht_dsp_btu;
	rsv_ht_dsp_btu = roundNumber(rsv_ht_dsp_btu, 0);
	$('rsv_ht_dsp_btu').value = rsv_ht_dsp_btu;
	
	rsv_ht_dsp_hp = (rsv_ht_dsp_btu/2545);
	rsv_ht_dsp_hp = (isNaN(rsv_ht_dsp_hp)) ? 0 : rsv_ht_dsp_hp;
	rsv_ht_dsp_hp = roundNumber(rsv_ht_dsp_hp, 2);
	$('rsv_ht_dsp_hp').value = rsv_ht_dsp_hp;
	
}

function ht_converions(){
	var hp_conv = $F('hp_conv'); // G29
	var min_conv = $F('min_conv'); // G30
	var hr_conv = $F('hr_conv'); // G31
	var watt_conv = $F('watt_conv'); // G32
	var kw_conv = $F('kw_conv'); // G33
	var hp_hp; // I29
	var min_hp; // I30
	var hr_hp; // I31
	var watt_hp; // I32
	var kw_hp; // I33
	
	hp_hp = (hp_conv);
	hp_hp = (isNaN(hp_hp)) ? 0 : hp_hp;
	hp_hp = roundNumber(hp_hp, 2);
	$('hp_hp').value = hp_hp;
	
	min_hp = (min_conv/42.4);
	min_hp = (isNaN(min_hp)) ? 0 : min_hp;
	min_hp = roundNumber(min_hp, 2);
	$('min_hp').value = min_hp;
	
	hr_hp = (hr_conv/2545);
	hr_hp = (isNaN(hr_hp)) ? 0 : hr_hp;
	hr_hp = roundNumber(hr_hp, 2);
	$('hr_hp').value = hr_hp;
	
	watt_hp = (watt_conv/746);
	watt_hp = (isNaN(watt_hp)) ? 0 : watt_hp;
	watt_hp = roundNumber(watt_hp, 2);
	$('watt_hp').value = watt_hp;
	
	kw_hp = (kw_conv/0.746);
	kw_hp = (isNaN(kw_hp)) ? 0 : kw_hp;
	kw_hp = roundNumber(kw_hp, 2);
	$('kw_hp').value = kw_hp;
	
	// 2nd Column
	
	hp_min = (hp_hp*42.4);
	hp_min = (isNaN(hp_min)) ? 0 : hp_min;
	hp_min = roundNumber(hp_min, 2);
	$('hp_min').value = hp_min;
	
	min_min = (min_conv);
	min_min = (isNaN(min_min)) ? 0 : min_min;
	min_min = roundNumber(min_min, 2);
	$('min_min').value = min_min;
	
	hr_min = (hr_hp*42.4);
	hr_min = (isNaN(hr_min)) ? 0 : hr_min;
	hr_min = roundNumber(hr_min, 2);
	$('hr_min').value = hr_min;
	
	watt_min = (watt_hp*42.4);
	watt_min = (isNaN(watt_min)) ? 0 : watt_min;
	watt_min = roundNumber(watt_min, 2);
	$('watt_min').value = watt_min;
	
	kw_min = (kw_hp*42.4);
	kw_min = (isNaN(kw_min)) ? 0 : kw_min;
	kw_min = roundNumber(kw_min, 2);
	$('kw_min').value = kw_min;
	
	// 3rd Column
	
	hp_hr = (hp_hp*2545);
	hp_hr = (isNaN(hp_hr)) ? 0 : hp_hr;
	hp_hr = roundNumber(hp_hr, 0);
	$('hp_hr').value = hp_hr;
	
	min_hr = (min_hp*2545);
	min_hr = (isNaN(min_hr)) ? 0 : min_hr;
	min_hr = roundNumber(min_hr, 0);
	$('min_hr').value = min_hr;
	
	hr_hr = (hr_conv);
	hr_hr = (isNaN(hr_hr)) ? 0 : hr_hr;
	hr_hr = roundNumber(hr_hr, 0);
	$('hr_hr').value = hr_hr;
	
	watt_hr = (watt_hp*2545);
	watt_hr = (isNaN(watt_hr)) ? 0 : watt_hr;
	watt_hr = roundNumber(watt_hr, 0);
	$('watt_hr').value = watt_hr;
	
	kw_hr = (kw_hp*2545);
	kw_hr = (isNaN(kw_hr)) ? 0 : kw_hr;
	kw_hr = roundNumber(kw_hr, 0);
	$('kw_hr').value = kw_hr;
	
	// 4th Column
	
	hp_watt = (hp_hp*746);
	hp_watt = (isNaN(hp_watt)) ? 0 : hp_watt;
	hp_watt = roundNumber(hp_watt, 1);
	$('hp_watt').value = hp_watt;
	
	min_watt = (min_hp*746);
	min_watt = (isNaN(min_watt)) ? 0 : min_watt;
	min_watt = roundNumber(min_watt, 1);
	$('min_watt').value = min_watt;
	
	hr_watt = (hr_hp*746);
	hr_watt = (isNaN(hr_watt)) ? 0 : hr_watt;
	hr_watt = roundNumber(hr_watt, 1);
	$('hr_watt').value = hr_watt;
	
	watt_watt = (watt_conv);
	watt_watt = (isNaN(watt_watt)) ? 0 : watt_watt;
	watt_watt = roundNumber(watt_watt, 1);
	$('watt_watt').value = watt_watt;
	
	kw_watt = (kw_hp*746);
	kw_watt = (isNaN(kw_watt)) ? 0 : kw_watt;
	kw_watt = roundNumber(kw_watt, 1);
	$('kw_watt').value = kw_watt;
	
	// 5th Column
	
	hp_kw = (hp_hp*0.746);
	hp_kw = (isNaN(hp_kw)) ? 0 : hp_kw;
	hp_kw = roundNumber(hp_kw, 3);
	$('hp_kw').value = hp_kw;
	
	min_kw = (min_hp*0.746);
	min_kw = (isNaN(min_kw)) ? 0 : min_kw;
	min_kw = roundNumber(min_kw, 3);
	$('min_kw').value = min_kw;
	
	hr_kw = (hr_hp*0.746);
	hr_kw = (isNaN(hr_kw)) ? 0 : hr_kw;
	hr_kw = roundNumber(hr_kw, 3);
	$('hr_kw').value = hr_kw;
	
	watt_kw = (watt_hp*0.746);
	watt_kw = (isNaN(watt_kw)) ? 0 : watt_kw;
	watt_kw = roundNumber(watt_kw, 3);
	$('watt_kw').value = watt_kw;
	
	kw_kw = (kw_conv);
	kw_kw = (isNaN(kw_kw)) ? 0 : kw_kw;
	kw_kw = roundNumber(kw_kw, 3);
	$('kw_kw').value = kw_kw;
	
}

function vehicle_wt(){
	var vehicle_wgt = $F('vehicle_wgt');
	var grd_rest = $F('grd_rest');
	var F4 = $F('vehicle_wgt');
	
	con_a = (vehicle_wgt*0.01);
	con_a = (isNaN(con_a)) ? 0 : con_a;
	con_a = roundNumber(con_a, 2);
	$('con_a').value = con_a;
	
	con_b = (vehicle_wgt*0.02);
	con_b = (isNaN(con_b)) ? 0 : con_b;
	con_b = roundNumber(con_b, 2);
	$('con_b').value = con_b;
	
	asp_a = (vehicle_wgt*0.012);
	asp_a = (isNaN(asp_a)) ? 0 : asp_a;
	asp_a = roundNumber(asp_a, 2);
	$('asp_a').value = asp_a;
	
	asp_b = (vehicle_wgt*0.022);
	asp_b = (isNaN(asp_b)) ? 0 : asp_b;
	asp_b = roundNumber(asp_b, 2);
	$('asp_b').value = asp_b;
	
	mac_a = (vehicle_wgt*0.015);
	mac_a = (isNaN(mac_a)) ? 0 : mac_a;
	mac_a = roundNumber(mac_a, 2);
	$('mac_a').value = mac_a;
	
	mac_b = (vehicle_wgt*0.037);
	mac_b = (isNaN(mac_b)) ? 0 : mac_b;
	mac_b = roundNumber(mac_b, 2);
	$('mac_b').value = mac_b;
	
	cob_a = (vehicle_wgt*0.055);
	cob_a = (isNaN(cob_a)) ? 0 : cob_a;
	cob_a = roundNumber(cob_a, 2);
	$('cob_a').value = cob_a;
	
	cob_b = (vehicle_wgt*0.085);
	cob_b = (isNaN(cob_b)) ? 0 : cob_b;
	cob_b = roundNumber(cob_b, 2);
	$('cob_b').value = cob_b;
	
	snw_a = (vehicle_wgt*0.025);
	snw_a = (isNaN(snw_a)) ? 0 : snw_a;
	snw_a = roundNumber(snw_a, 2);
	$('snw_a').value = snw_a;
	
	snw_b = (vehicle_wgt*0.037);
	snw_b = (isNaN(snw_b)) ? 0 : snw_b;
	snw_b = roundNumber(snw_b, 2);
	$('snw_b').value = snw_b;
	
	drt_a = (vehicle_wgt*0.025);
	drt_a = (isNaN(drt_a)) ? 0 : drt_a;
	drt_a = roundNumber(drt_a, 2);
	$('drt_a').value = drt_a;
	
	drt_b = (vehicle_wgt*0.037);
	drt_b = (isNaN(drt_b)) ? 0 : drt_b;
	drt_b = roundNumber(drt_b, 2);
	$('drt_b').value = drt_b;
	
	mud_a = (vehicle_wgt*0.037);
	mud_a = (isNaN(mud_a)) ? 0 : mud_a;
	mud_a = roundNumber(mud_a, 2);
	$('mud_a').value = mud_a;
	
	mud_b = (vehicle_wgt*0.15);
	mud_b = (isNaN(mud_b)) ? 0 : mud_b;
	mud_b = roundNumber(mud_b, 2);
	$('mud_b').value = mud_b;
	
	sand_a = (vehicle_wgt*0.06);
	sand_a = (isNaN(sand_a)) ? 0 : sand_a;
	sand_a = roundNumber(sand_a, 2);
	$('sand_a').value = sand_a;
	
	sand_b = (vehicle_wgt*0.3);
	sand_b = (isNaN(sand_b)) ? 0 : sand_b;
	sand_b = roundNumber(sand_b, 2);
	$('sand_b').value = sand_b;


	con_c = (con_a+(vehicle_wgt*(grd_rest/100)));
	con_c = (isNaN(con_c)) ? 0 : con_c;
	con_c = roundNumber(con_c, 2);
	$('con_c').value = con_c;
	
	con_d = (con_b+(vehicle_wgt*(grd_rest/100)));
	con_d = (isNaN(con_d)) ? 0 : con_d;
	con_d = roundNumber(con_d, 2);
	$('con_d').value = con_d;
	
	asp_c = (asp_a+(vehicle_wgt*(grd_rest/100)));
	asp_c = (isNaN(asp_c)) ? 0 : asp_c;
	asp_c = roundNumber(asp_c, 2);
	$('asp_c').value = asp_c;
	
	asp_d = (asp_b+(vehicle_wgt*(grd_rest/100)));
	asp_d = (isNaN(asp_d)) ? 0 : asp_d;
	asp_d = roundNumber(asp_d, 2);
	$('asp_d').value = asp_d;
	
	mac_c = (mac_a+(vehicle_wgt*(grd_rest/100)));
	mac_c = (isNaN(mac_c)) ? 0 : mac_c;
	mac_c = roundNumber(mac_c, 2);
	$('mac_c').value = mac_c;
	
	mac_d = (mac_b+(vehicle_wgt*(grd_rest/100)));
	mac_d = (isNaN(mac_d)) ? 0 : mac_d;
	mac_d = roundNumber(mac_d, 2);
	$('mac_d').value = mac_d;
	
	cob_c = (cob_a+(vehicle_wgt*(grd_rest/100)));
	cob_c = (isNaN(cob_c)) ? 0 : cob_c;
	cob_c = roundNumber(cob_c, 2);
	$('cob_c').value = cob_c;
	
	cob_d = (cob_b+(vehicle_wgt*(grd_rest/100)));
	cob_d = (isNaN(cob_d)) ? 0 : cob_d;
	cob_d = roundNumber(cob_d, 2);
	$('cob_d').value = cob_d;
	
	snw_c = (snw_a+(vehicle_wgt*(grd_rest/100)));
	snw_c = (isNaN(snw_c)) ? 0 : snw_c;
	snw_c = roundNumber(snw_c, 2);
	$('snw_c').value = snw_c;
	
	snw_d = (snw_b+(vehicle_wgt*(grd_rest/100)));
	snw_d = (isNaN(snw_d)) ? 0 : snw_d;
	snw_d = roundNumber(snw_d, 2);
	$('snw_d').value = snw_d;
	
	drt_c = (drt_a+(vehicle_wgt*(grd_rest/100)));
	drt_c = (isNaN(drt_c)) ? 0 : drt_c;
	drt_c = roundNumber(drt_c, 2);
	$('drt_c').value = drt_c;
	
	drt_d = (drt_b+(vehicle_wgt*(grd_rest/100)));
	drt_d = (isNaN(drt_d)) ? 0 : drt_d;
	drt_d = roundNumber(drt_d, 2);
	$('drt_d').value = drt_d;
	
	mud_c = (mud_a+(vehicle_wgt*(grd_rest/100)));
	mud_c = (isNaN(mud_c)) ? 0 : mud_c;
	mud_c = roundNumber(mud_c, 2);
	$('mud_c').value = mud_c;
	
	mud_d = (mud_b+(vehicle_wgt*(grd_rest/100)));
	mud_d = (isNaN(mud_d)) ? 0 : mud_d;
	mud_d = roundNumber(mud_d, 2);
	$('mud_d').value = mud_d;
	
	sand_c = (sand_a+(vehicle_wgt*(grd_rest/100)));
	sand_c = (isNaN(sand_c)) ? 0 : sand_c;
	sand_c = roundNumber(sand_c, 2);
	$('sand_c').value = sand_c;
	
	sand_d = (sand_b+(vehicle_wgt*(grd_rest/100)));
	sand_d = (isNaN(sand_d)) ? 0 : sand_d;
	sand_d = roundNumber(sand_d, 2);
	$('sand_d').value = sand_d;
}

function wheels(){
	var whl_dia = $F('whl_dia'); // M4
	var veh_spd = $F('veh_spd'); // M6
	var drw_pull = $F('drw_pull'); // M10
	var t2_acc = $F('t2_acc'); // M17
	var vcl_wgt = $F('vcl_wgt'); // F4
	var f2_acc; // M19
	
	
	whl_spd = (336*veh_spd/whl_dia);
	whl_spd = (isNaN(whl_spd)) ? 0 : whl_spd;
	whl_spd = roundNumber(whl_spd, 2);
	$('whl_spd').value = whl_spd;
	
	axl_trq = (drw_pull*(whl_dia/2));
	axl_trq = (isNaN(axl_trq)) ? 0 : axl_trq;
	axl_trq = roundNumber(axl_trq, 2);
	$('axl_trq').value = axl_trq;
	
	f2_acc = ((veh_spd*1.467)*vcl_wgt)/(32.16*t2_acc);
	f2_acc = (isNaN(f2_acc)) ? 0 : f2_acc;
	f2_acc = roundNumber(f2_acc, 2);
	$('f2_acc').value = f2_acc;
	
	vhc_trq_rec = (f2_acc*(whl_dia/2));
	vhc_trq_rec = (isNaN(vhc_trq_rec)) ? 0 : vhc_trq_rec;
	vhc_trq_rec = roundNumber(vhc_trq_rec, 0);
	$('vhc_trq_rec').value = vhc_trq_rec;
	
	veh_mom = ((vcl_wgt*(veh_spd*1.467))/32.16);
	veh_mom = (isNaN(veh_mom)) ? 0 : veh_mom;
	veh_mom = roundNumber(veh_mom, 2);
	$('veh_mom').value = veh_mom;
	
}

vcl_conversions

function vcl_conversions(){
	var veh_fps = $F('veh_fps'); // I32
	var veh_fpm = $F('veh_fpm'); // I33
	
	veh_fps_mph = (veh_fps/1.467);
	veh_fps_mph = (isNaN(veh_fps_mph)) ? 0 : veh_fps_mph;
	veh_fps_mph = roundNumber(veh_fps_mph, 2);
	$('veh_fps_mph').value = veh_fps_mph;
	
	veh_fpm_mph = (veh_fpm/88);
	veh_fpm_mph = (isNaN(veh_fpm_mph)) ? 0 : veh_fpm_mph;
	veh_fpm_mph = roundNumber(veh_fpm_mph, 2);
	$('veh_fpm_mph').value = veh_fpm_mph;
	
}

/* FUNCTION TEMPLATE -- CUT AND PASTE
function [[NAME]](){
	var [[VAR]] = $F('[[VAR]]');
	
	[[UPDATE]] = ([[CALC]]);
	[[UPDATE]] = (isNaN([[UPDATE]])) ? 0 : [[UPDATE]];
	[[UPDATE]] = roundNumber([[UPDATE]], 2);
	$('[[UPDATE]]').value = [[UPDATE]];
}
*/


//Helpers
function roundNumber(num, dec) {
	dec = typeof(dec) != 'undefined' ? dec : 2;
	var result = Math.round(num*Math.pow(10,dec))/Math.pow(10,dec);
	return result;
}

function setNum(num){
	num = (isNaN(num)) ? 0 : num;
	return num;
}