//
// Copyright C 1997-2003 by 17 Web Place, all rights reserved 
// this may not be used without written permission
//
//window globals
	var dia=1.0;
  	var inc=1.0;
	var height=1.0;
	var striker=0;
	var volume_per = 231.;   // 231 cubic inches in a gallon
	var len=0.0;
	var astr ='<HTML><HEAD><BR><TITLE>Tank Calculation Results </TITLE>';
	var err_msg="no msg";
	var company_name="PPP Catalog";

function tankcalc (radio_array, units)
{
	for (i = 0; i < units.length; ++ i)
	{
		 if (units[i].checked) units_of_measure = units[i].value;
	}
        dia = parseFloat (document.tankspec.dia.value);
        height = parseFloat (document.tankspec.height.value);
        orientation = "vertical";

        if (isNaN (dia)) 
		{
			dia=1.0;
			tankspec.dia.value=dia;
		}
        if (isNaN (height)) 
		{
			height=1.0;
			tankspec.height.value=height;
		}
	len=height;
	for (i = 0; i < radio_array . length; ++ i)
		{
		 if (radio_array [i].checked) orientation=radio_array [i].value;
		}
	if (document.tankspec.striker.checked) striker=1;
	if (document.tankspec.increment.selectedIndex==0) inc=3;
	if (document.tankspec.increment.selectedIndex==1) inc=2;
	if (document.tankspec.increment.selectedIndex==2) inc=1;
	if (document.tankspec.increment.selectedIndex==3) inc=.5;
	if (document.tankspec.increment.selectedIndex==4) inc=.25;
	if (document.tankspec.increment.selectedIndex==5) inc=.125;
	astr ='<HTML><HEAD><BR><TITLE>Tank Calculation results </TITLE>';
	astr +='</HEAD>';
	astr +='<body>';
	astr +='<center class="headers"><h1>'+company_name+'</h1></center>';
	astr +="<center>"+orientation+" tank of diameter "+dia+" and length "+ height;
	if (orientation=="Horizontal" && striker==1)
	{
		astr +=' with striker panels';
	}
	astr +="</center>";
	astr +="<br><table border><tr>";
	if (units_of_measure == "cm")
	{
		astr +="<tr><td>CENTIMETERS</td><td>LITERS</td><td>CENTIMETERS</td><td>LITERS</td><td>CENTIMETERS</td><td>LITERS</td><td>CENTIMETERS</td><td>LITERS</td></tr><tr>";
		volume_per = 1000.;		// 1000 cc,s in a liter
	}
	else astr +="<tr><td>INCHES</td><td>GALLONS</td><td>INCHES</td><td>GALLONS</td><td>INCHES</td><td>GALLONS</td><td>INCHES</td><td>GALLONS</td></tr><tr>";
	if (orientation=="Vertical") 
	{
		vertical(); 
	}
	else 
	{
		horizontal();
	}
	astr +="</tr></table>";
	astr +="<p>&copy;1997-2003 <a href=http://www.17webplace.com>17 Web Place</a> all rights reserved, used here by license";
	astr +="</body></html>";
        document.write(astr);
}

function vertical()
{
	var rad=dia / 2.0;
	var ctot=(Math.PI * (rad*rad) * height)/volume_per;
	var max=Math.round(height/inc);

	for(i=1; i<max+1; i++)
	{
	 height=(i * inc)
	 cap = Math.round(1000* (Math.PI * (rad*rad) * height)/volume_per)/1000;
	 astr +="<td>"+height+"</td><td>"+cap+"&nbsp&nbsp</td>";
           if (i/4 ==Math.round(i/4)) 
		{
		 astr +="</tr><tr>";
		}
	}
}
function horizontal()
{
  var hght=0.0;
  var full=0.0;
  var temp=0.0;
  var air=0.0;
  var rad=dia / 2.0;
  var ctot=(Math.PI * (rad*rad) * height)/volume_per;

  max=Math.round(dia/inc);
  for(i=1; i<max+1; i++)
  {
	height=(i * inc);
	if (striker==1)
	{
		if (units_of_measure == "cm")
		{
          		hght= height + 0.635;
               		full= dia -0.635;
		}
		else
		{
          		hght= height + 0.250;
               		full= dia -0.250;
		}
	}
	else hght= height;
	if (hght < rad)
	{
		cap= len*(((rad*rad)*Math.atan((Math.sqrt(hght*(2*rad-hght)))/(rad-hght)))- ((rad-hght)*Math.sqrt(hght*(2*rad-hght))))/ volume_per;
	}
     	if (hght == rad) cap= ctot/2.0;
	if ((hght > rad) && (hght <= dia))
	{
		air = dia - hght;
		temp = len*(((rad*rad) * Math.atan((Math.sqrt(air*(2*rad-air)))/(rad-air)))- ((rad-air)*Math.sqrt(air*(2*rad-air))))/ volume_per;
	       	cap = ctot - temp;
	}
	if (hght > dia) cap=0.00;
	if (cap!=0)
	{
		cap=Math.round(cap*1000)/1000
		astr +="<td>"+height+"</td><td>"+cap+"&nbsp&nbsp</td>";
	}
	if (i/4 ==Math.round(i/4)) 
	{
		 astr +="</tr><tr>";
	}
  }
}


