function calcIT()
{
   var pk=document.Calc.pin.value;
   var p = pk*1000;
   var sk=document.Calc.sin.value;
   var s = sk*1000;
   var pfp=document.Calc.pfin.value;
   var pf= pfp/100;
   var pfnp=document.Calc.pfnin.value;
   var pfn= pfnp/100;
   var qck=document.Calc.qcin.value;
   var q1;
   var q2;
   var q1k;
   var q2k;
   var sn;
   var snk;
   var qc=qck*1000;
   
   // Which result
   var resultValue=document.Calc.CalcWhat.options[document.Calc.CalcWhat.selectedIndex].value;
   
   if (resultValue==0)
   {
      //P,S,pfn
      pf=p/s;
      q1=Math.sqrt(s*s-p*p);
      sn=p/pfn;
      q2=Math.sqrt(sn*sn-p*p);
      qc=q1-q2;
 	pfp=pf*100;
      qck=qc/1000;
      q1k=q1/1000;
      q2k=q2/1000;
      snk=sn/1000;
      q1r=Math.round(100*q1k)/100;
	q2r=Math.round(100*q2k)/100;
	qcr=Math.round(100*qck)/100;
	snr=Math.round(100*snk)/100;
	pfr=Math.round(100*pfp)/100;

      document.Calc.pfin.value=pfr;
      document.Calc.qcin.value=qcr;
      document.Calc.q1in.value=q1r;
      document.Calc.q2in.value=q2r;
      document.Calc.snin.value=snr;
      
   }
   else if (resultValue==1)
   {
      //P,pf,QC
      s=p/pf;
      q1=Math.sqrt(s*s-p*p);
      q2=q1-qc;
      sn=Math.sqrt(p*p+q2*q2);
      pfn=p/sn;

      snk=sn/1000; 
      q2k=q2/1000;     
      q1k=q1/1000;      
      pfnp=pfn*100;
      sk=s/1000;

      q1r=Math.round(100*q1k)/100;
	q2r=Math.round(100*q2k)/100;
	qcr=Math.round(100*qck)/100;
	snr=Math.round(100*snk)/100;
	sr=Math.round(100*sk)/100;
	pfnr=Math.round(100*pfnp)/100;

      document.Calc.sin.value=sr;
      document.Calc.pfnin.value=pfnr;
      document.Calc.q1in.value=q1r;
      document.Calc.q2in.value=q2r;
      document.Calc.snin.value=snr;
   }
   else if (resultValue==2)
   {
   //P,S,QC
   pf=p/s;
   q1=Math.sqrt(s*s-p*p);
   q2=q1-qc;
   sn=Math.sqrt(p*p+q2*q2);
   pfn=p/sn;
      
   pfnp=pfn*100;
   pfp=pf*100;
	q1k=q1/1000;
   snk=sn/1000;
   q2k=q2/1000;

	pfr=Math.round(100*pfp)/100;
   q1r=Math.round(100*q1k)/100;
	q2r=Math.round(100*q2k)/100;
	pfnr=Math.round(100*pfnp)/100;
	snr=Math.round(100*snk)/100;

   document.Calc.pfin.value=pfr;
   document.Calc.pfnin.value=pfnr;
   document.Calc.q1in.value=q1r;
   document.Calc.q2in.value=q2r;
	document.Calc.snin.value=snr;
      
   }
   else if (resultValue==3)
   {
   //P,pf,pfn
   s=p/pf;
   sn=p/pfn;
   q1=Math.sqrt(s*s-p*p);
   q2=Math.sqrt(sn*sn-p*p);
   qc=q1-q2;
   
   q1k=q1/1000;
   q2k=q2/1000;
   snk=sn/1000;
   sk=s/1000;
   qck=qc/1000;

   q1r=Math.round(100*q1k)/100;
	q2r=Math.round(100*q2k)/100;
	snr=Math.round(100*snk)/100;
	qcr=Math.round(100*qck)/100;
	sr=Math.round(100*sk)/100;

   document.Calc.q1in.value=q1r;
   document.Calc.q2in.value=q2r;
   document.Calc.snin.value=snr;
   document.Calc.sin.value=sr;
	document.Calc.qcin.value=qcr;
      
   }
   else if (resultValue==4)
   {
      //S,pf,pfn
      p=s*pf;
      sn=p/pfn;
      q1=Math.sqrt(s*s-p*p);
      q2=Math.sqrt(sn*sn-p*p);
      qc=q1-q2;
      
      qck=qc/1000;
      q1k=q1/1000;
      q2k=q2/1000;
      snk=sn/1000;
      pk=p/1000;

      q1r=Math.round(100*q1k)/100;
	q2r=Math.round(100*q2k)/100;
	snr=Math.round(100*snk)/100;
	qcr=Math.round(100*qck)/100;
	pr=Math.round(100*pk)/100;

      document.Calc.qcin.value=qcr;
      document.Calc.q1in.value=q1r;
      document.Calc.q2in.value=q2r;
      document.Calc.snin.value=snr;
      document.Calc.pin.value=pr;
   }
}

function clearNums()
{
   document.Calc.pin.value=0;
   document.Calc.pfin.value=0;
   document.Calc.pfnin.value=0;
   document.Calc.sin.value=0;
   document.Calc.snin.value=0;
   document.Calc.qcin.value=0;
   document.Calc.q1in.value=0;
   document.Calc.q2in.value=0;
}

function decimalPlaces(val, places)
{
   // This function returns the value
   // with the number of decimal places requested
   factor = 1;
   for (i=0; i<places; i++)
      {	factor *= 10; }
   val *= factor;
   val = Math.round(val);
   val /= factor;
   return val;
}

function defaultStuff()
{
   // set list box default to kW, kVA, & capacitor kvar
   document.Calc.CalcWhat.selectedIndex=2;
   clearNums();
}
