<!--- HIDE SCRIPT FROM NON-ENABLED BROWSERS
// WebMcalc (C) 1999 McElroy Manufacturing, Inc.

function compute(f) {


for (i = 0; i < f.MACHINE.length; i++)
   if (f.MACHINE[i].selected == true)
      // if (i != 0)              ignore the first option
           var MACHINENEW=eval(f.MACHINE[i].value);

for (i = 0; i < f.THICKUNIT.length; i++)
   if (f.THICKUNIT[i].selected == true)
      // if (i != 0)          ignore the first option
           var FTHICK=eval(f.THICKUNIT[i].value);

for (i = 0; i < f.ODUNIT.length; i++)
   if (f.ODUNIT[i].selected == true)
     // if (i != 0)           ignore the first option
           var FODUNIT=eval(f.ODUNIT[i].value);

for (i = 0; i < f.UNITS.length; i++)
   if (f.UNITS[i].selected == true)
      // if (i != 0)          ignore the first option
           var FUNITS=eval(f.UNITS[i].value);


if(FODUNIT==1 && f.OD.value==.5)
   var ODNEW=.84
        else
        if(FODUNIT==1 && f.OD.value==.75)
           var ODNEW=1.05
        else
        if(FODUNIT==1 && f.OD.value==1)
           var ODNEW=1.32
        else
        if(FODUNIT==1 && f.OD.value==1.25)
           var ODNEW=1.66
        else
        if(FODUNIT==1 && f.OD.value==1.5)
           var ODNEW=1.9
else
if(FODUNIT==1 && f.OD.value==2)
   var ODNEW=2.375
else
if(FODUNIT==1 && f.OD.value==2.5)
   var ODNEW=2.875
else
if(FODUNIT==1 && f.OD.value==3.0)
   var ODNEW=3.5
else
if(FODUNIT==1 && f.OD.value==3.5)
   var ODNEW=4.0
else
if(FODUNIT==1 && f.OD.value==4.0)
   var ODNEW=4.5
else
if(FODUNIT==1 && f.OD.value==5.0)
   var ODNEW=5.563
else
if(FODUNIT==1 && f.OD.value==6.0)
   var ODNEW=6.625
else
if(FODUNIT==1 && f.OD.value==8.0)
   var ODNEW=8.625
else
if(FODUNIT==1 && f.OD.value==10.0)
   var ODNEW=10.750
else
if(FODUNIT==1 && f.OD.value==12.0)
   var ODNEW=12.750
else
if(FODUNIT==1 && f.OD.value==14.0)
   var ODNEW=14.00
else
if(FODUNIT==1 && f.OD.value==16.0)
   var ODNEW=16.00
else
if(FODUNIT==1 && f.OD.value==18.0)
   var ODNEW=18.00
else
if(FODUNIT==1 && f.OD.value==20.0)
   var ODNEW=20.00
else
if(FODUNIT==1 && f.OD.value==22.0)
   var ODNEW=22.00
else
if(FODUNIT==1 && f.OD.value==24.0)
   var ODNEW=24.00
else
if(FODUNIT==1 && f.OD.value==26.0)
   var ODNEW=26.0
else
if(FODUNIT==1 && f.OD.value==28.0)
   var ODNEW=28.0
else
if(FODUNIT==1 && f.OD.value==30.0)
   var ODNEW=30.0
else
if(FODUNIT==1 && f.OD.value==32.0)
   var ODNEW=32.0
else
if(FODUNIT==1 && f.OD.value==34.0)
   var ODNEW=34.0
else
if(FODUNIT==1 && f.OD.value==36.0)
   var ODNEW=36.0
else
if(FODUNIT==1 && f.OD.value==42.0)
   var ODNEW=42.0
else
if(FODUNIT==1 && f.OD.value==48.0)
   var ODNEW=48.0
        else
        if(FODUNIT==1 && f.OD.value==52.0)
           var ODNEW=52.0
else
if(FODUNIT==1 && f.OD.value==54.0)
   var ODNEW=54.0
        else
        if(FODUNIT==1 && f.OD.value==63.0)
           var ODNEW=63.0
        else
        if(FODUNIT==1 && f.OD.value==65.0)
           var ODNEW=65.0
else
if(FODUNIT==1)
   alert("Incorrect value for Pipe size in IPS Units")
else
if(eval(FODUNIT)==2 && f.OD.value==3.0)
   var ODNEW=3.960
else
if(eval(FODUNIT)==2 && f.OD.value==4.0)
   var ODNEW=4.80
else
if(eval(FODUNIT)==2 && f.OD.value==6.0)
   var ODNEW=6.9
else
if(eval(FODUNIT)==2 && f.OD.value==8.0)
   var ODNEW=9.050
else
if(eval(FODUNIT)==2 && f.OD.value==10.0)
   var ODNEW=11.100
else
if(eval(FODUNIT)==2 && f.OD.value==12.0)
   var ODNEW=13.2
else
if(eval(FODUNIT)==2 && f.OD.value==14.0)
   var ODNEW=15.3
else
if(eval(FODUNIT)==2 && f.OD.value==16.0)
   var ODNEW=17.4
else
if(eval(FODUNIT)==2 && f.OD.value==18.0)
   var ODNEW=19.5
else
if(eval(FODUNIT)==2 && f.OD.value==20.0)
   var ODNEW=21.60
else
if(eval(FODUNIT)==2 && f.OD.value==24.0)
   var ODNEW=25.800
        else
        if(eval(FODUNIT)==2 && f.OD.value==30.0)
           var ODNEW=32.000
        else
        if(eval(FODUNIT)==2 && f.OD.value==36.0)
           var ODNEW=38.300
        else
        if(eval(FODUNIT)==2 && f.OD.value==42.0)
           var ODNEW=44.500
        else
        if(eval(FODUNIT)==2 && f.OD.value==48.0)
           var ODNEW=50.800
        else
        if(eval(FODUNIT)==2 && f.OD.value==54.0)
           var ODNEW=57.100
        else
        if(eval(FODUNIT)==2 && f.OD.value==60.0)
           var ODNEW=61.610
else
if(eval(FODUNIT)==2)
   alert("Incorrect Pipe size in DIPS units")
else

if(eval(FODUNIT)==4)
   var ODNEW=f.OD.value/25.4

else
if(eval(FODUNIT)==5)
{
	if (f.OD.value==20)
		var ODNEW=1.06
	else if(f.OD.value==25)
		var ODNEW=1.34
	else if(f.OD.value==30)
		var ODNEW=1.65
	else if(f.OD.value==40)
		var ODNEW=1.89
	else if(f.OD.value==50)
		var ODNEW=2.36
	else if(f.OD.value==75)
		var ODNEW=3.5
	else if(f.OD.value==100)
		var ODNEW=4.49
	else if(f.OD.value==125)
		var ODNEW=5.51
	else if(f.OD.value==150)
		var ODNEW=6.49
	else if(f.OD.value==175)
		var ODNEW=7.48
	else if(f.OD.value==200)
		var ODNEW=8.5
	else if(f.OD.value==250)
		var ODNEW=10.51
	else if(f.OD.value==300)
		var ODNEW=12.52
	else if(f.OD.value==350)
		var ODNEW=14.57
	else if(f.OD.value==400)
		var ODNEW=16.54	
	else 
	   alert("Incorrect Pipe size in JIS units")
}

else
   var ODNEW=f.OD.value * 1
       

if(eval(FTHICK)==1)
    var T=ODNEW/f.THICK.value 
else
if(eval(FTHICK)==2)
 {   
   if(eval(f.THICK.value)>eval(f.OD.value))
    alert("Please check pipe size values")
   var T=f.THICK.value
 }
else
if(eval(FTHICK)==3)
  {  var T=f.THICK.value/25.4
     if(T>f.OD.value)
     alert("Please check pipe size values")
  }

if(f.DRAG.value=="")
  {
    alert("Please enter a value for DRAG")
    f.JOINT.value=0
  }
    
if(eval(FUNITS)==2)
    
    {
    var JOINTNEW = f.JOINT.value * 14.5
    var DRAGNEW = f.DRAG.value * 14.5

var TEMPRESULT = ((ODNEW-T)*T*3.1416*JOINTNEW)/MACHINENEW;

var RESULTROUND=(DRAGNEW+TEMPRESULT)/14.5

    if(RESULTROUND < 0)
      alert("ERROR: Please check pipe sizes")

var TEMPRES
TEMPRES=Math.floor(RESULTROUND)+"."

var cents=10*(RESULTROUND-Math.floor(RESULTROUND))+0.5;
if (cents >= 10)
 {
  
  RESULTROUND = (RESULTROUND + 1.0)
  TEMPRES2 = Math.floor(RESULTROUND) +".0"
   
  f.result.value=TEMPRES2 + " bar"
 }
else
 {

   TEMPRES += Math.floor(cents);
   

 f.result.value=TEMPRES + " bar"
      }
    }
else
if(eval(FUNITS)==3)
    {
    var JOINTNEW = f.JOINT.value * 14.2
    var DRAGNEW = f.DRAG.value * 14.2

var TEMPRESULT = ((ODNEW-T)*T*3.1416*JOINTNEW)/MACHINENEW;

var RESULTROUND=(DRAGNEW+TEMPRESULT)/14.2 
    if(RESULTROUND < 0)
      alert("ERROR: Please check pipe sizes")

var TEMPRES
TEMPRES=Math.floor(RESULTROUND)+"."
var cents=10*(RESULTROUND-Math.floor(RESULTROUND))+0.5;
 if (cents >= 10)
 {
  
  RESULTROUND = (RESULTROUND + 1.0)
  TEMPRES2 = Math.floor(RESULTROUND) +".0"
   
  f.result.value=TEMPRES2 + " kg/cm²"
 }
else
 {

   TEMPRES += Math.floor(cents);
   

f.result.value=TEMPRES + " kg/cm²"
      }
  

    }
else
if(eval(FUNITS)==4)
{
	var JOINTNEW = f.JOINT.value * 145
	var DRAGNEW = f.DRAG.value * 145
	
	var TEMPRESULT = ((ODNEW-T)*T*3.1416*JOINTNEW)/MACHINENEW;
	
	var RESULTROUND = (DRAGNEW+TEMPRESULT)/145
	    if(RESULTROUND < 0)
	      alert("ERROR: Please check pipe sizes")
	
	// smc
	var TEMPRES = Math.floor(RESULTROUND * 1000)/1000;
	//TEMPRES=Math.floor(RESULTROUND)+"."
	
	//var cents=1000*(RESULTROUND-Math.floor(RESULTROUND))+0.5;
	//TEMPRES += Math.floor(cents/10);
	//TEMPRES += Math.floor(cents%10);
	
	f.result.value=TEMPRES + " Mpa"
}
else
if(eval(FUNITS)==1)
    {
    var JOINTNEW = f.JOINT.value * 1
    var DRAGNEW = f.DRAG.value * 1
var TEMPRESULT = ((ODNEW-T)*T*3.1416*JOINTNEW)/MACHINENEW;
var RESULTROUND=(DRAGNEW+TEMPRESULT) * 1
    if(RESULTROUND < 0)
      alert("ERROR: Please check pipe sizes")


f.result.value=Math.round(RESULTROUND) +" PSI"

    }


}


// STOP HIDING -->