var vp;	
var i;
var l;
var kCuAl
var Cm;
var phase

var L = new Array(2580,4110,6530,10380,16510,26240,41740,56220,66360,83690,105600,133100,167800,211600,250000,300000,350000,
      400000,500000,600000,700000,750000,800000,900000,1000000,1250000,1500000,1750000);

var H = new 
Array(4110,6530,10380,16510,26240,41740,56220,66360,83690,105600,133100,167800,211600,250000,300000,350000,
      400000,500000,600000,700000,750000,800000,900000,1000000,1250000,1500000,1750000,2000000);

var S = new
Array("#14","#12","#10","#8","#6","#4","#3","#2","#1","1/0","2/0","3/0","4/0","250 mcm","300 mcm","350 mcm","400 mcm",
      "500 mcm","600 mcm","700 mcm","750 mcm","800 mcm","900 mcm","1000	mcm","1250 mcm","1500 mcm","1750 mcm","2000 mcm");

function main()
{
	if(document.forms[0].dist.value =="" || document.forms[0].amps.value =="")
	{
		alert("You must enter both distance and amperage");
	}
	else
	{
		drop();
		}
	}

function drop()
{
	with(document.forms[0])
	{
		for (var n=0; n<=vd.length; n++)
		{
			if (vd[n].checked)
			{
				vp=(vd[n].value);
				break;
			}
		}
		l=parseFloat (dist.value);
		i=parseFloat (amps.value);
		(CuAl[0].checked)?(kCuAl=12.9):(kCuAl=21.2);

		(phs[0].checked)?(phase=2):(phase=1.732);
	}
		Cm=(phase*kCuAl*l*i)/vp;
		calcsz();
}

function calcsz()
{
	with(document.forms[0].wire)
	{
		for(x=0; x<=L.length; x++)
		{
			if(Cm<=L[0])
			{
				(value=S[x]);
				break;
			}
			else
			{
				if (Cm>L[x] && Cm<=H[x])
				{
					(value=S[x]);
					break;
				}
				if(Cm>H[27])
				{
					alert("Out of Range\n"+"Use smaller values");
					break;
				}
			}
		}
	}
}

function clearForm()
{
	with(document.forms[0])
	{
		for(x=0; x<=elements.length; x++)
		{
			vd[0].checked=true;
			CuAl[0].checked=true;
			phs[0].checked=true;
			dist.value="";
			amps.value="";
			wire.value="";
			break;
		}
	}
}