
function tank_volume(f) {
	var dia=f.diameter_zip.value;
	var len=f.length_zip.value;
	var volume=dia*dia*3.141592/4*len/12/12/12*7.48;
	f.result.value=Math.round(volume) + " gal";
};//				end tank volume

function cyl_chart(f) {
	chartWindow=window.open('','','toolbar=yes,scrollbars=yes,width=600,height=420');
	cyl_Writer(f);
};//				end cyl_chart


function cyl_Writer(f) {
	chartWindow.document.open("text/html","replace");
	var tankname=(f.tankname.value);
	var contents=(f.contents.value);
	var dia=(f.diameter_zip.value);
	var len=(f.length_zip.value);
	var volume=Math.floor(dia*dia*3.141592/4*len/12/12/12*7.48);

	write_header(tankname,contents,	volume + ' Gallon Tank',
				(f.diameter_zip.value) + '" Diameter x ' + (f.length_zip.value) + '" Long');

	for(var depth=1; depth <= f.diameter_zip.value; depth++){
		var area=segment_area(depth, f.diameter_zip.value)
		var vol=area*f.length_zip.value/12/12/12*7.48
		write_row((depth),(Math.round(vol)))
	}
	chartWindow.document.write('</table></body>')
	chartWindow.document.write('<b>&copy;2008 PSI Farming, Inc.</b></html>')
	chartWindow.document.close()
};//				end cyl_Writer


function write_header(tankname,contents,tank_diameter,tank_length){
	chartWindow.document.write('<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">'+
								'<html><head><title>Dipstick Chart</title></head>')
	chartWindow.document.write('<body style="font-family:sans-serif" bgcolor="#BABDD3">')
	chartWindow.document.write('<table border="1" frame="10" cellpadding="2" cellspacing="2" width="400"'+
	'bgcolor="#99CCFF" bordercolor="#330000" bordercolordark="#000000"' + 'bordercolorlight="#FFFFFF">')
	chartWindow.document.write("<tr>"+
	'<td colspan="2" bgcolor="#FFFFFF" height="10">'+
	'<p style="text-decoration:underline;font-size:22px" align="center"><b>' + tankname + '</b></p>'+
	'<p align="center"><b>Contents:&nbsp;&nbsp;<i style="text-decoration:underline;">' + contents + '</i></b></p>'+
	'<p align="center"><b>' + tank_diameter + '<br>'+
	tank_length + '</b></p>'+
	'</td></tr>')
	chartWindow.document.write('<tr><td height="10"><b>Depth (inches)</b></td>'+
								'<td height="10"><b>Volume (gallons)</b></td></tr>')

};//				end write_header


function write_row(depth, vol){
	chartWindow.document.write('<tr>')
	write_cell(depth)
	write_cell(vol)
	chartWindow.document.write('</tr>')
};//				end write_row


function write_cell(string){
	chartWindow.document.write('<td align="center" width="50" height="10"><b>' + string + '</b></td>')
};//				end write_cell


function segment_area(depth, dia) {
  radius=dia/2
  temp=radius-depth
  chordl=2*Math.sqrt(2 * depth * radius-depth * depth)
  ang=Math.acos(temp/radius)*2
  arcl=ang*radius
  return ((arcl*radius-chordl*temp)/2)
};//				end segment_area

