/*
Science & Engineering Encyclopaedia. Copyright Dirac Delta Consultants Ltd. 2001-2002

No part of this document may be reproduced or transmitted in any form or by any mean, electronic or mechanical, including printing, placing on the internet or by any information storage and retrieval system without permission from the Publisher in writing
*/

function multicalc_form(calc){

	document.writeln('<FORM NAME="' + frm[calc] + '">')
	document.writeln('<table border=0 cellpadding=0 cellspacing=0 bordercolor="#252D8B" bgcolor="#252D8B" width="353">')
	document.writeln('<tr><td bgcolor="#252D8B"><b>' + ttlem[calc] + '</b></td></tr><tr><td>')
	document.writeln('<table border=0 cellpadding=0 cellspacing=1 bordercolor="#252D8B" bgcolor="#252D8B">')
	for (x=1; x<=xnm; x++) {
		if (xtxt[calc][x]){
			document.writeln('<tr><td <div align="right">')
			document.writeln(xtxt[calc][x])
			document.writeln('</div></td><td>')
			document.writeln('<INPUT TYPE="text" size="10" name="' + xnme[calc][x] + '">')
			document.writeln('</td><td <div align="left">')
			document.writeln(xunt[calc][x])
			document.writeln('</div></td></tr>')
		}
	}

	document.writeln('<tr><td>&nbsp;</td><td><INPUT TYPE="button" size="10" value="Calculate" onclick="' + scrp[calc] + '(' + calc + ')"></td><td>&nbsp;</td></tr>')

	for (y=1; y<=ynm; y++) {
		if (ytxt[calc][y]){
			document.writeln('<tr><td>')
			document.writeln(ytxt[calc][y])
			document.writeln('</td><td>')
			document.writeln('<INPUT TYPE="text" size="10" name="' + ynme[calc][y] + '">')
			document.writeln('</td><td>')
			document.writeln(yunt[calc][y])
			document.writeln('</td></tr>')
		}
	}
	document.writeln('<tr><td>&nbsp;</td><td> <INPUT TYPE="button" size="10" value="Clear" onclick="cleardata(' + calc + ')">  </td><td><a href="javascript:clipboardm(' + calc + ')"><img src="/xxtemp/copy.gif" width=30 height=25 border=0 alt="paste results in clipboard"></a>&nbsp;Copy Results</td></tr>')
	document.writeln('</table>')
	document.writeln('</td></tr></table>')
	document.writeln('</FORM>')
}


function cleardata(calc)
{

	for (x=1; x<=xnm; x++) {
		if (xtxt[calc][x]){
			eval("document." + frm[calc] + "." + xnme[calc][x] +".value=''")

		}
	}

	for (y=1; y<=ynm; y++) {
		if (ytxt[calc][y]){
			eval("document." + frm[calc] + "." + ynme[calc][y] +".value=''")

		}
	}
	init(); //use to set any permanent variables in the form ie speed of sound etc.
			//defined in source.html	
}