// JavaScript Document

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

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


function updateCylinder(form){
	
	switch(form){
		case 'cylExtend':
		  cylinder_extend();
		  extend_flow();
		  retract_pres();
		  break; 
		  
		case 'conversions':
		  convert();
		  break;
		  
		case 'cyl_sum':
		  cyl_sum();
		  break;
		  
		case 'hyd_motor':
		  table_a();
		  table_b(); 
		  break;
		  
		case 'hyd_conv':
		  hydCon();
		  motCon();
		  pumpPulse();
		  break;
		  
		case 'formula_sht':
		  form_mot_spd();
		  form_mot_tor();
		  form_cyl_force();
		  form_cyl_spd();
		  form_force_pres_1();
		  form_force_pres_2();
		  form_pmp_hp();
		  form_pmp_hp_alt();
		  form_tor_in_to_ft();
		  form_tor_ft_to_in();
		  form_tor_hp_1();
		  form_tor_hp_2();
		  form_tor_to_force();
		  form_force_to_tor();
		  form_ori_pres_1();
		  form_ori_pres_2();
		  form_ori_pres_3();
		  pressure_drop();
		  velocity_in_pipe();
		  oil_compress();
		  area_vol_1();
		  area_vol_2();
		  area_vol_3();
		  form_fld_cv_1();
		  form_fld_cv_2();
		  form_fld_cv_3();
		  form_accumulator();
		  planetary_ratio();
		  fan_bld_tip();
		  break;
	}
	
}

// Cylinder Extend funcs
function cylinder_extend(){ // Test Ok
	var cyl_bore = $F('cyl_bore');
	var cyl_stroke = $F('cyl_stroke');
	var cyl_rod = $F('cyl_rod');
	var ex_force_req = $F('ex_force_req');
	var ex_pres;
	
	/*ex_pres = (ex_force_req/(3.1417*((cyl_bore/2)*(cyl_bore/2))));
	ex_pres = (isNaN(ex_pres)) ? 0 : ex_pres;
	ex_pres = roundNumber(ex_pres, 2);
	$('ex_pres').value = ex_pres;*/
}

function extend_flow(){ // Test OK
	var cyl_bore = $F('cyl_bore');
	var cyl_stroke = $F('cyl_stroke');
	var cyl_rod = $F('cyl_rod');
	var ex_spd = $F('ex_spd');
	var ret_flow_a = $F('ret_flow_out_rod');
	var ret_flow_b = $F('ret_flow_out_cap');
	var ex_flow;
	var cyl_ex;
	var cyl_ret;
	var ex_retr;
	var ret_spd = $F('ret_spd');
	var cyl_rod_area;
	var ex_force_req = $F('ex_force_req');
	var ex_pres;
	var cyl_sec = $F('cyl_sec');
	var rep_cyl_stroke;
	var cyl_psi = $F('cyl_psi');
	
	ex_flow = (12*60*((3.1417*(cyl_bore/2*cyl_bore/2)*ex_spd/720))/231);
	ex_flow = (isNaN(ex_flow)) ? 0 : ex_flow;
	ex_flow = roundNumber(ex_flow, 2);
	$('ex_flow').value = ex_flow;
	
	cyl_ex = (3.1417*(cyl_bore/2*cyl_bore/2));
	cyl_ex = (isNaN(cyl_ex)) ? 0 : cyl_ex;
	cyl_ex = roundNumber(cyl_ex, 3);
	$('cyl_ex').value = cyl_ex;
	
	cyl_ret = (cyl_ex-(3.1417*(cyl_rod/2*cyl_rod/2)));
	cyl_ret = (isNaN(cyl_ret)) ? 0 : cyl_ret;
	cyl_ret = roundNumber(cyl_ret, 3);
	$('cyl_ret').value = cyl_ret;
	
	ex_retr = ((cyl_ex/cyl_ret)*100);
	ex_retr = (isNaN(ex_retr)) ? 0 : ex_retr;
	ex_retr = roundNumber(ex_retr, 3);
	$('ex_retr').value = ex_retr;
	
	retr_ex = ((cyl_ret/cyl_ex)*100);
	retr_ex = (isNaN(retr_ex)) ? 0 : retr_ex;
	retr_ex = roundNumber(retr_ex, 3);
	$('retr_ex').value = retr_ex;
	
	ret_flow_a = ((ex_flow* retr_ex)/100);
	ret_flow_a = (isNaN(ret_flow_a)) ? 0 : ret_flow_a;
	ret_flow_a = roundNumber(ret_flow_a, 2);
	$('ret_flow_out_rod').value = ret_flow_a;
	
	cyl_ex_vol_in = (cyl_ex* cyl_stroke);
	$('cyl_ex_vol_in').value = cyl_ex_vol_in;
	
	cyl_ex_vol_gal = (cyl_ex_vol_in/231);
	cyl_ex_vol_gal = (isNaN(cyl_ex_vol_gal)) ? 0 : cyl_ex_vol_gal;
	cyl_ex_vol_gal = roundNumber(cyl_ex_vol_gal, 3);
	$('cyl_ex_vol_gal').value = cyl_ex_vol_gal;
	
	ret_flow_gpm = (((((3.1417*(cyl_bore/2*cyl_bore/2))-(3.1417*(cyl_rod/2*cyl_rod/2)))*ret_spd)/231));
	ret_flow_gpm = (isNaN(ret_flow_gpm)) ? 0 : ret_flow_gpm;
	ret_flow_gpm = roundNumber(ret_flow_gpm, 2);
	$('ret_flow_gpm').value = ret_flow_gpm;
	
	ret_flow_b = ((ret_flow_gpm* ex_retr)/100);
	ret_flow_b = (isNaN(ret_flow_b)) ? 0 : ret_flow_b;
	ret_flow_b = roundNumber(ret_flow_b, 2);
	$('ret_flow_out_cap').value = ret_flow_b;
	
	cyl_ret_vol_1 = (cyl_ret* cyl_stroke);
	$('cyl_ret_vol_1').value = cyl_ret_vol_1;
	
	cyl_ret_vol_2 = (cyl_ret_vol_1/231);
	cyl_ret_vol_2 = (isNaN(cyl_ret_vol_2)) ? 0 : cyl_ret_vol_2;
	cyl_ret_vol_2 = roundNumber(cyl_ret_vol_2, 3);
	$('cyl_ret_vol_2').value = cyl_ret_vol_2;
	
	cyl_rod_area = (cyl_ex -cyl_ret);
	cyl_rod_area = (isNaN(cyl_rod_area)) ? 0 : cyl_rod_area;
	cyl_rod_area = roundNumber(cyl_rod_area, 3);
	$('cyl_rod_area').value = cyl_rod_area;
	
	ex_pres = (ex_force_req/(3.1417*((cyl_bore/2)*(cyl_bore/2))));
	ex_pres = (isNaN(ex_pres)) ? 0 : ex_pres;
	ex_pres = roundNumber(ex_pres, 2);
	$('ex_pres').value = ex_pres;
	
	reg_ex_for = (cyl_rod_area* ex_pres);
	reg_ex_for = (isNaN(reg_ex_for)) ? 0 : reg_ex_for;
	reg_ex_for = roundNumber(reg_ex_for, 0);
	$('reg_ex_for').value = reg_ex_for;
	
	reg_spd_inc = (cyl_ex/(cyl_rod_area)* 100);
	reg_spd_inc = (isNaN(reg_spd_inc)) ? 0 : reg_spd_inc;
	reg_spd_inc = roundNumber(reg_spd_inc, 2);
	$('reg_spd_inc').value = reg_spd_inc;
	
	reg_ex_flw = ((ex_flow* reg_spd_inc)/100);
	reg_ex_flw = (isNaN(reg_ex_flw)) ? 0 : reg_ex_flw;
	reg_ex_flw = roundNumber(reg_ex_flw, 2);
	$('reg_ex_flw').value = reg_ex_flw;
	
	rep_cyl_stroke = $F('cyl_stroke');
	$('rep_cyl_stroke').value = rep_cyl_stroke;
	
	cyl_in_min = (cyl_stroke/cyl_sec*60);
	$('cyl_in_min').value = cyl_in_min;
	
	bore_cyl = $F('cyl_bore');
	$('bore_cyl').value = bore_cyl;
	
	for_sum = (cyl_psi * cyl_ex);
	$('for_sum').value = for_sum;

}

function retract_pres(){ // Test Ok
	var ret_force = $F('ret_force');
	var cyl_bore = $F('cyl_bore');
	var cyl_rod = $F('cyl_rod');
	var ret_pres;
	
	ret_pres = (ret_force/((3.1417*(cyl_bore/2*cyl_bore/2))-(3.1417*(cyl_rod/2*cyl_rod/2))));
	ret_pres = (isNaN(ret_pres)) ? 0 : ret_pres;
	ret_pres = roundNumber(ret_pres, 0);
	$('ret_pres').value = ret_pres;
}


function convert(){ // Tested Ok
	var in_sec = $F('in_sec');
	var ft_sec = $F('ft_sec');
	var ft_min = $F('ft_min');
	
	in_min_1 = (in_sec* 60);
	in_min_1 = (isNaN(in_min_1)) ? 0 : in_min_1;
	in_min_1 = roundNumber(in_min_1, 2);
	$('in_min_1').value = in_min_1;
	
	in_min_2 = (ft_sec* 12* 60);
	in_min_2 = (isNaN(in_min_2)) ? 0 : in_min_2;
	in_min_2 = roundNumber(in_min_2, 2);
	$('in_min_2').value = in_min_2;
	
	in_min_3 = (ft_min* 12);
	in_min_3 = (isNaN(in_min_3)) ? 0 : in_min_3;
	in_min_3 = roundNumber(in_min_3, 2);
	$('in_min_3').value = in_min_3;
}

function table_a(){ // Tested OK
	
	var displacement_1 = $F('displacement_1');
	var sys_pres_1 = $F('sys_pres_1');
	var spd_req_1 = $F('spd_req_1');
	var vol_eff_1 = $F('vol_eff_1');
	var mot_torque_in_1;
	
	mot_torque_in_1 = ((sys_pres_1*displacement_1)/ 6.2834);
	mot_torque_in_1 = (isNaN(mot_torque_in_1)) ? 0 : mot_torque_in_1;
	mot_torque_in_1 = roundNumber(mot_torque_in_1, 2);
	$('mot_torque_in_1').value = mot_torque_in_1;
	
	mot_torque_ft_1 = ((mot_torque_in_1)/ 12);
	mot_torque_ft_1 = (isNaN(mot_torque_ft_1)) ? 0 : mot_torque_ft_1;
	mot_torque_ft_1 = roundNumber(mot_torque_ft_1, 2);
	$('mot_torque_ft_1').value = mot_torque_ft_1;
	
	req_flw_1 = ((displacement_1* spd_req_1/231)/(vol_eff_1/100));
	req_flw_1 = (isNaN(req_flw_1)) ? 0 : req_flw_1;
	req_flw_1 = roundNumber(req_flw_1, 3);
	$('req_flw_1').value = req_flw_1;
	
	mot_hp_1 = ((mot_torque_in_1* spd_req_1)/63025);
	mot_hp_1 = (isNaN(mot_hp_1)) ? 0 : mot_hp_1;
	mot_hp_1 = roundNumber(mot_hp_1, 3);
	$('mot_hp_1').value = mot_hp_1;
	
}

function table_b(){
	var mot_torque_in_2 = $F('mot_torque_in_2');
	var sys_pres_2 = $F('sys_pres_2');
	var spd_req_2 = $F('spd_req_2');
	var vol_eff_2 = $F('vol_eff_2');
	var displacement_2;
	
	mot_torque_ft_2 = (mot_torque_in_2/12); 
	mot_torque_ft_2 = (isNaN(mot_torque_ft_2)) ? 0 : mot_torque_ft_2;
	mot_torque_ft_2 = roundNumber(mot_torque_ft_2, 2);
	$('mot_torque_ft_2').value = mot_torque_ft_2;
	
	displacement_2 = (0.0628*(mot_torque_in_2/(sys_pres_2/100))); 
	displacement_2 = (isNaN(displacement_2)) ? 0 : displacement_2;
	displacement_2 = roundNumber(displacement_2, 3);
	$('displacement_2').value = displacement_2;
	
	req_flw_2 = (displacement_2* spd_req_2/231/(vol_eff_2/100)); 
	req_flw_2 = (isNaN(req_flw_2)) ? 0 : req_flw_2;
	req_flw_2 = roundNumber(req_flw_2, 3);
	$('req_flw_2').value = req_flw_2;
	
	mot_hp_2 = (mot_torque_in_2* spd_req_2/63025);
	mot_hp_2 = (isNaN(mot_hp_2)) ? 0 : mot_hp_2;
	mot_hp_2 = roundNumber(mot_hp_2, 3);
	$('mot_hp_2').value = mot_hp_2;
	
}

function hydCon(){
	var hp_req = $F('hp_req');
	var spd_hp = $F('spd_hp');
	
	tor_in = ((hp_req* 63025)/spd_hp);
	tor_in = (isNaN(tor_in)) ? 0 : tor_in;
	tor_in = roundNumber(tor_in, 2);
	$('tor_in').value = tor_in;
}

function motCon(){
	var mot_spd = $F('mot_spd');
	var whl_dia = $F('whl_dia');
	
	lin_spd_in_sec = (whl_dia* 3.1416/60* mot_spd);
	lin_spd_in_sec = (isNaN(lin_spd_in_sec)) ? 0 : lin_spd_in_sec;
	lin_spd_in_sec = roundNumber(lin_spd_in_sec, 2);
	$('lin_spd_in_sec').value = lin_spd_in_sec;
	
	lin_spd_in_min = (whl_dia*3.1416* mot_spd);
	lin_spd_in_min = (isNaN(lin_spd_in_min)) ? 0 : lin_spd_in_min;
	lin_spd_in_min = roundNumber(lin_spd_in_min, 2);
	$('lin_spd_in_min').value = lin_spd_in_min;
	
	lin_spd_ft_sec = (whl_dia*3.1416/60/12* mot_spd);
	lin_spd_ft_sec = (isNaN(lin_spd_ft_sec)) ? 0 : lin_spd_ft_sec;
	lin_spd_ft_sec = roundNumber(lin_spd_ft_sec, 2);
	$('lin_spd_ft_sec').value = lin_spd_ft_sec;
	
	lin_spd_ft_min = (whl_dia*3.1416/12* mot_spd);
	lin_spd_ft_min = (isNaN(lin_spd_ft_min)) ? 0 : lin_spd_ft_min;
	lin_spd_ft_min = roundNumber(lin_spd_ft_min, 2);
	$('lin_spd_ft_min').value = lin_spd_ft_min;
	
	lin_spd_mph = (mot_spd* whl_dia/336);
	lin_spd_mph = (isNaN(lin_spd_mph)) ? 0 : lin_spd_mph;
	lin_spd_mph = roundNumber(lin_spd_mph, 2);
	$('lin_spd_mph').value = lin_spd_mph;
	
}

function pumpPulse(){
	var num_pistons = $F('num_pistons');
	var drv_spd = $F('drv_spd'); 
	var pulse_min;

	pulse_min = (num_pistons* drv_spd);
	pulse_min = (isNaN(pulse_min)) ? 0 : pulse_min;
	pulse_min = roundNumber(pulse_min, 3);
	$('pulse_min').value = pulse_min;
	
	pulse_freq = (pulse_min/60);
	pulse_freq = (isNaN(pulse_freq)) ? 0 : pulse_freq;
	pulse_freq = roundNumber(pulse_freq, 3);
	$('pulse_freq').value = pulse_freq;
	
}

function form_mot_spd(){
	var mot_disp = $F('mot_disp');
	var mot_flw = $F('mot_flw');
	var mot_vol_eff = $F('mot_vol_eff');
	
	mot_spd_rpm = ((231* mot_flw/mot_disp)*(mot_vol_eff/100));
	mot_spd_rpm = (isNaN(mot_spd_rpm)) ? 0 : mot_spd_rpm;
	mot_spd_rpm = roundNumber(mot_spd_rpm, 1);
	$('mot_spd_rpm').value = mot_spd_rpm;
		
}

function form_mot_tor(){
	var mot_tor_disp = $F('mot_tor_disp');
	var mot_tor_pres = $F('mot_tor_pres');
	var mot_tor_spd = $F('mot_tor_spd');
	
	mot_tor_torque = ((mot_tor_pres* mot_tor_disp)/6.2834);
	mot_tor_torque = (isNaN(mot_tor_torque)) ? 0 : mot_tor_torque;
	mot_tor_torque = roundNumber(mot_tor_torque, 1);
	$('mot_tor_torque').value = mot_tor_torque;
	
	mot_tor_hp = (mot_tor_torque* mot_tor_spd/63025);
	mot_tor_hp = (isNaN(mot_tor_hp)) ? 0 : mot_tor_hp;
	mot_tor_hp = roundNumber(mot_tor_hp, 2);
	$('mot_tor_hp').value = mot_tor_hp;
	
}

function form_cyl_force(){
	var cf_piston_dia = $F('cf_piston_dia');
	var cf_rod_dia = $F('cf_rod_dia');
	var cf_pres = $F('cf_pres');
	
	cf_ex_force = ((3.1417*((cf_piston_dia/2)*(cf_piston_dia/2)))*cf_pres);
	cf_ex_force = (isNaN(cf_ex_force)) ? 0 : cf_ex_force;
	cf_ex_force = roundNumber(cf_ex_force, 0);
	$('cf_ex_force').value = cf_ex_force;
	
	cf_ret_force = (((3.1417*((cf_piston_dia/2)*(cf_piston_dia/2)))-(3.1417*((cf_rod_dia/2)*(cf_rod_dia/2))))*cf_pres);
	cf_ret_force = (isNaN(cf_ret_force)) ? 0 : cf_ret_force;
	cf_ret_force = roundNumber(cf_ret_force, 0);
	$('cf_ret_force').value = cf_ret_force;
	
	cf_reg_force = (cf_pres*(3.1417*((cf_rod_dia/2)*(cf_rod_dia/2))));
	cf_reg_force = (isNaN(cf_reg_force)) ? 0 : cf_reg_force;
	cf_reg_force = roundNumber(cf_reg_force, 0);
	$('cf_reg_force').value = cf_reg_force;
	
}

function form_cyl_spd(){
	var cs_piston_dia = $F('cs_piston_dia');
	var cs_rod_dia = $F('cs_rod_dia');
	var cs_flw = $F('cs_flw');
	
	cs_ex_spd = ((231*cs_flw)/(3.1417*((cs_piston_dia/2)*(cs_piston_dia/2))));
	cs_ex_spd = (isNaN(cs_ex_spd)) ? 0 : cs_ex_spd;
	cs_ex_spd = roundNumber(cs_ex_spd, 2);
	$('cs_ex_spd').value = cs_ex_spd;
	
	cs_ret_spd = ((231*cs_flw)/((3.1417*((cs_piston_dia/2)*(cs_piston_dia/2))-(3.1417*((cs_rod_dia/2)*(cs_rod_dia/2))))));
	cs_ret_spd = (isNaN(cs_ret_spd)) ? 0 : cs_ret_spd;
	cs_ret_spd = roundNumber(cs_ret_spd, 2);
	$('cs_ret_spd').value = cs_ret_spd;
	
	cs_reg_spd = ((231*cs_flw)/(3.1417*((cs_rod_dia/2)*(cs_rod_dia/2))));
	cs_reg_spd = (isNaN(cs_reg_spd)) ? 0 : cs_reg_spd;
	cs_reg_spd = roundNumber(cs_reg_spd, 2);
	$('cs_reg_spd').value = cs_reg_spd;
	
}

function form_force_pres_1(){
	var force_pres_1 = $F('force_pres_1');
	var force_area_1 = $F('force_area_1');
	
	force_lbs_1 = (force_pres_1*force_area_1);
	force_lbs_1 = (isNaN(force_lbs_1)) ? 0 : force_lbs_1;
	force_lbs_1 = roundNumber(force_lbs_1, 0);
	$('force_lbs_1').value = force_lbs_1;
	
}

function form_force_pres_2(){
	var force_lbs_2 = $F('force_lbs_2');
	var force_area_2 = $F('force_area_2');
	
	force_pres_2 = (force_lbs_2/force_area_2);
	force_pres_2 = (isNaN(force_pres_2)) ? 0 : force_pres_2;
	force_pres_2 = roundNumber(force_pres_2, 0);
	$('force_pres_2').value = force_pres_2;
	
}

function form_pmp_hp(){
	var pmp_disp = $F('pmp_disp');
	var pmp_spd = $F('pmp_spd');
	
	pmp_flw_1 = (pmp_disp*pmp_spd/231);
	pmp_flw_1 = (isNaN(pmp_flw_1)) ? 0 : pmp_flw_1;
	pmp_flw_1 = roundNumber(pmp_flw_1, 2);
	$('pmp_flw_1').value = pmp_flw_1;
}

function form_pmp_hp_alt(){
	var pmp_flw_2 = $F('pmp_flw_2');
	var pmp_pres_2 = $F('pmp_pres_2');
	var pmp_eff_2 = $F('pmp_eff_2');
	
	pmp_hp = (pmp_flw_2*pmp_pres_2/(1714*(pmp_eff_2/100)));
	pmp_hp = (isNaN(pmp_hp)) ? 0 : pmp_hp;
	pmp_hp = roundNumber(pmp_hp, 2);
	$('pmp_hp').value = pmp_hp;
}

function form_tor_in_to_ft(){
	var torque_tor_in_a = $F('torque_tor_in_a');
	
	torque_tor_ft_a = (torque_tor_in_a/12);
	torque_tor_ft_a = (isNaN(torque_tor_ft_a)) ? 0 : torque_tor_ft_a;
	torque_tor_ft_a = roundNumber(torque_tor_ft_a, 2);
	$('torque_tor_ft_a').value = torque_tor_ft_a;
}

function form_tor_ft_to_in(){
	var torque_tor_ft_b = $F('torque_tor_ft_b');
	
	torque_tor_in_b = (torque_tor_ft_b*12);
	torque_tor_in_b = (isNaN(torque_tor_in_b)) ? 0 : torque_tor_in_b;
	torque_tor_in_b = roundNumber(torque_tor_in_b, 2);
	$('torque_tor_in_b').value = torque_tor_in_b;
}	

function form_tor_hp_1(){
	var torque_tor_hp_1 = $F('torque_tor_hp_1');
	var torque_tor_spd_1 = $F('torque_tor_spd_1');
	
	torque_tor_hp_in_1 = (torque_tor_hp_1*63025/torque_tor_spd_1);
	torque_tor_hp_in_1 = (isNaN(torque_tor_hp_in_1)) ? 0 : torque_tor_hp_in_1;
	torque_tor_hp_in_1 = roundNumber(torque_tor_hp_in_1, 2);
	$('torque_tor_hp_in_1').value = torque_tor_hp_in_1;
}

function form_tor_hp_2(){
	var torque_tor_hp_in_2 = $F('torque_tor_hp_in_2');
	var torque_tor_spd_2 = $F('torque_tor_spd_2');
	
	torque_tor_hp_2 = (torque_tor_hp_in_2*torque_tor_spd_2/63025);
	torque_tor_hp_2 = (isNaN(torque_tor_hp_2)) ? 0 : torque_tor_hp_2;
	torque_tor_hp_2 = roundNumber(torque_tor_hp_2, 2);
	$('torque_tor_hp_2').value = torque_tor_hp_2;
}

function form_tor_to_force(){
	var torque_force_in_1 = $F('torque_force_in_1');
	var torque_dist_1 = $F('torque_dist_1');
	
	torque_force_for_1 = (torque_force_in_1/torque_dist_1);
	torque_force_for_1 = (isNaN(torque_force_for_1)) ? 0 : torque_force_for_1;
	torque_force_for_1 = roundNumber(torque_force_for_1, 2);
	$('torque_force_for_1').value = torque_force_for_1;
}

function form_force_to_tor(){
	var torque_force_for_2 = $F('torque_force_for_2');
	var torque_dist_2 = $F('torque_dist_2');
	
	torque_force_in_2 = (torque_force_for_2*torque_dist_2);
	torque_force_in_2 = (isNaN(torque_force_in_2)) ? 0 : torque_force_in_2;
	torque_force_in_2 = roundNumber(torque_force_in_2, 2);
	$('torque_force_in_2').value = torque_force_in_2;
}

function form_ori_pres_1(){
	var ori_flw_1 = $F('ori_flw_1');
	var ori_pres_1 = $F('ori_pres_1');
	var ori_grav_1 = $F('ori_grav_1');
	var ori_coef_1 = $F('ori_coef_1');
	var sqr_1;
	
	sqr_1 = (ori_grav_1/ori_pres_1);
	sqr_1 = Math.sqrt(sqr_1);
	sqr_1 = (ori_flw_1*sqr_1);
	sqr_1 = (sqr_1/(29.81*ori_coef_1));
	ori_dia_1 = Math.sqrt(sqr_1);
	ori_dia_1 = (isNaN(ori_dia_1)) ? 0 : ori_dia_1;
	ori_dia_1 = roundNumber(ori_dia_1, 3);
	$('ori_dia_1').value = ori_dia_1;
}

function form_ori_pres_2(){
	var ori_flw_2 = $F('ori_flw_2');
	var ori_dia_2 = $F('ori_dia_2');
	var ori_grav_2 = $F('ori_grav_2');
	var ori_coef_2 = $F('ori_coef_2');
	
	ori_pres_2 = (ori_grav_2*((ori_flw_2/(29.81*ori_coef_2*(ori_dia_2*ori_dia_2)))*(ori_flw_2/(29.81*ori_coef_2*(ori_dia_2*ori_dia_2)))));
	ori_pres_2 = (isNaN(ori_pres_2)) ? 0 : ori_pres_2;
	ori_pres_2 = roundNumber(ori_pres_2, 0);
	$('ori_pres_2').value = ori_pres_2;
}

function form_ori_pres_3(){
	var ori_dia_3 = $F('ori_dia_3');
	var ori_grav_3 = $F('ori_grav_3');
	var ori_coef_3 = $F('ori_coef_3');
	var ori_pres_3 = $F('ori_pres_3');
	
	ori_flw_3 = (29.81*ori_coef_3*(ori_dia_3*ori_dia_3));
	ori_flw_3 = (ori_flw_3*Math.sqrt(ori_pres_3/ori_grav_3));
	ori_flw_3 = (isNaN(ori_flw_3)) ? 0 : ori_flw_3;
	ori_flw_3 = roundNumber(ori_flw_3, 2);
	$('ori_flw_3').value = ori_flw_3;
}

function pressure_drop(){
	var pd_flow = $F('pd_flow');
	var pd_visc = $F('pd_visc');
	var pd_pipe = $F('pd_pipe');
	
	pd_pres = ((pd_visc*pd_flow)/(18300*(pd_pipe*pd_pipe*pd_pipe*pd_pipe)));
	pd_pres = (isNaN(pd_pres)) ? 0 : pd_pres;
	pd_pres = roundNumber(pd_pres, 3);
	$('pd_pres').value = pd_pres;
}

function velocity_in_pipe(){
	var vel_flow = $F('vel_flow');
	var vel_pipe = $F('vel_pipe');
	
	velocity = (vel_flow*0.3208)/(3.1417*(vel_pipe/2)*(vel_pipe/2));
	velocity = (isNaN(velocity)) ? 0 : velocity;
	velocity = roundNumber(velocity, 2);
	$('velocity').value = velocity;

}

function oil_compress(){
	var oil_pres = $F('oil_pres');
	var oil_vol = $F('oil_vol');
	
	add_vol = (oil_pres*oil_vol/250000);
	add_vol = (isNaN(add_vol)) ? 0 : add_vol;
	add_vol = roundNumber(add_vol, 3);
	$('add_vol').value = add_vol;
}

function area_vol_1(){
	var area_dia_1 = $F('area_dia_1');
	
	area_area = (3.1417*(area_dia_1/2)*(area_dia_1/2));
	area_area = (isNaN(area_area)) ? 0 : area_area;
	area_area = roundNumber(area_area, 2);
	$('area_area').value = area_area;
	
	area_cir = (3.1417*area_dia_1);
	area_cir = (isNaN(area_cir)) ? 0 : area_cir;
	area_cir = roundNumber(area_cir, 2);
	$('area_cir').value = area_cir;
}

function area_vol_2(){
	var area_len_1 = $F('area_len_1');
	var area_width = $F('area_width');
	var area_height = $F('area_height');
	
	area_gals_1 = (area_len_1*area_width*area_height/231);
	area_gals_1= (isNaN(area_gals_1)) ? 0 : area_gals_1;
	area_gals_1 = roundNumber(area_gals_1, 2);
	$('area_gals_1').value = area_gals_1;
}

function area_vol_3(){
	var area_dia_2 = $F('area_dia_2');
	var area_len_2 = $F('area_len_2');
	
	area_gals_2 = (((3.1417*((area_dia_2/2)*(area_dia_2/2))*area_len_2)/231));
	area_gals_2 = (isNaN(area_gals_2)) ? 0 : area_gals_2;
	area_gals_2 = roundNumber(area_gals_2, 2);
	$('area_gals_2').value = area_gals_2;
}

function form_fld_cv_1(){
	var fld_flw_1 = $F('fld_flw_1');
	var fld_grav_1 = $F('fld_grav_1');
	var fld_pres_1 = $F('fld_pres_1');
	
	sqr_1 = (Math.sqrt(fld_grav_1));
	sqr_2 = (Math.sqrt(fld_pres_1)); 
	fld_cv_1 = (fld_flw_1*(sqr_1/sqr_2));
	fld_cv_1 = (isNaN(fld_cv_1)) ? 0 : fld_cv_1;
	fld_cv_1 = roundNumber(fld_cv_1, 2);
	$('fld_cv_1').value = fld_cv_1;
}

function form_fld_cv_2(){
	var fld_flw_2 = $F('fld_flw_2');
	var fld_grav_2 = $F('fld_grav_2');
	var fld_cv_2 = $F('fld_cv_2');
	
	sqr_1 = (Math.sqrt(fld_grav_2));
	fld_pres_2 = ((fld_flw_2*sqr_1)/fld_cv_2)*((fld_flw_2*(sqr_1)/fld_grav_2)/fld_cv_2);
	fld_pres_2 = (isNaN(fld_cv_1)) ? 0 : fld_pres_2;
	fld_pres_2 = roundNumber(fld_pres_2, 2);
	$('fld_pres_2').value = fld_pres_2;
}

function form_fld_cv_3(){
	var fld_cv_3 = $F('fld_cv_3');
	var fld_grav_3 = $F('fld_grav_3');
	var fld_pres_3 = $F('fld_pres_3');
	
	sqr_1 = (Math.sqrt(fld_grav_3));
	sqr_2 = (Math.sqrt(fld_pres_3));
	fld_flw_3 = (fld_cv_3*(sqr_2)/(sqr_1));
	fld_flw_3 = (isNaN(fld_flw_3)) ? 0 : fld_flw_3;
	fld_flw_3 = roundNumber(fld_flw_3, 2);
	$('fld_flw_3').value = fld_flw_3;
}

function form_accumulator(){
	var P1 = $F('P1');
	var V1 = $F('V1');
	var P2 = $F('P2');
	
	V2 = (P1*V1/P2);
	V2 = (isNaN(V2)) ? 0 : V2;
	V2 = roundNumber(V2, 2);
	$('V2').value = V2;
}

function planetary_ratio(){
	var rng_gr = $F('rng_gr');
	var sun_gr = $F('sun_gr');
	
	gr_rat = (rng_gr/sun_gr+1);
	gr_rat = (isNaN(gr_rat)) ? 0 : gr_rat;
	gr_rat = roundNumber(gr_rat, 3);
	$('gr_rat').value = gr_rat;
}

function fan_bld_tip(){
	var fn_spd_rpm = $F('fn_spd_rpm');
	var fn_spd_in = $F('fn_spd_in');
	var tip_spd_in_min;
	var tip_spd_ft_min;
	
	tip_spd_in_min = ((3.1417*fn_spd_in)*fn_spd_rpm);
	tip_spd_in_min = (isNaN(tip_spd_in_min)) ? 0 : tip_spd_in_min;
	tip_spd_in_min = roundNumber(tip_spd_in_min, 0);
	$('tip_spd_in_min').value = tip_spd_in_min;
	
	tip_spd_ft_min = (tip_spd_in_min/12);
	tip_spd_ft_min = (isNaN(tip_spd_ft_min)) ? 0 : tip_spd_ft_min;
	tip_spd_ft_min = roundNumber(tip_spd_ft_min, 0);
	$('tip_spd_ft_min').value = tip_spd_ft_min;
	
	tip_spd_ft_sec = (tip_spd_ft_min/60);
	tip_spd_ft_sec = (isNaN(tip_spd_ft_sec)) ? 0 : tip_spd_ft_sec;
	tip_spd_ft_sec = roundNumber(tip_spd_ft_sec, 2);
	$('tip_spd_ft_sec').value = tip_spd_ft_sec;
	
}

/* 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;
}

function testing() {
	alert('Testing');
}