//**************************************************************************
// JavaScript for ohmslaw.html
//**************************************************************************


//**************************************************************************
// Functions for calculating Kirchhoff's Law current parameters.
//**************************************************************************


function K_Law_Par() {


   E_Par = parseFloat(document.Kirchhoffs_Law.E_Par.value);


   if (isNaN(parseFloat(document.Kirchhoffs_Law.R_1_Par.value))) {document.Kirchhoffs_Law.R_1_Par.value = "";}


   R_1_Par = comma_ins(parseFloat(document.Kirchhoffs_Law.R_1_Par.value)) + " Ohms";
   I_1_Par = E_Par/parseFloat(document.Kirchhoffs_Law.R_1_Par.value);


   if (isNaN(parseFloat(document.Kirchhoffs_Law.R_2_Par.value))) {document.Kirchhoffs_Law.R_2_Par.value = "";}


   R_2_Par = comma_ins(parseFloat(document.Kirchhoffs_Law.R_2_Par.value)) + " Ohms";
   I_2_Par = E_Par/parseFloat(document.Kirchhoffs_Law.R_2_Par.value);


   if (isNaN(parseFloat(document.Kirchhoffs_Law.R_3_Par.value))) {document.Kirchhoffs_Law.R_3_Par.value = "";}


   R_3_Par = comma_ins(parseFloat(document.Kirchhoffs_Law.R_3_Par.value)) + " Ohms";
   I_3_Par = E_Par/parseFloat(document.Kirchhoffs_Law.R_3_Par.value);


   I_Total_Par = 0;


   if ( document.Kirchhoffs_Law.R_1_Par.value != "" ) {
      I_Total_Par = I_1_Par; }
   if ( document.Kirchhoffs_Law.R_2_Par.value != "" ) {
      I_Total_Par += I_2_Par; }
   if ( document.Kirchhoffs_Law.R_3_Par.value != "" ) {
      I_Total_Par += I_3_Par; }


   R_Total_Par = comma_ins(Rnd(E_Par/I_Total_Par,0)) + " Ohms";


   Data_Out = " Parallel Circuit Currents for an<BR>";
   Data_Out += " Applied Voltage of " + E_Scale(E_Par);


   document.getElementById("K_Law_Par_Header").innerHTML = Data_Out;


   if ( document.Kirchhoffs_Law.R_1_Par.value != "" ) {
      document.getElementById("R1_Par").innerHTML = "R1 = " + R_1_Par;
      document.getElementById("I1_Par").innerHTML = "I1 = " + I_Scale(I_1_Par);
      }
   else {
      document.getElementById("R1_Par").innerHTML = "";
      document.getElementById("I1_Par").innerHTML = "";
      }


   if ( document.Kirchhoffs_Law.R_2_Par.value != "" ) {
      document.getElementById("R2_Par").innerHTML = "R3 = " + R_2_Par;
      document.getElementById("I2_Par").innerHTML = "I2 = " + I_Scale(I_2_Par);
      }
   else {
      document.getElementById("R2_Par").innerHTML = "";
      document.getElementById("I2_Par").innerHTML = "";
      }


   if ( document.Kirchhoffs_Law.R_3_Par.value != "" ) {
      document.getElementById("R3_Par").innerHTML = "R3 = " + R_3_Par;
      document.getElementById("I3_Par").innerHTML = "I3 = " + I_Scale(I_3_Par);
      }
   else {
      document.getElementById("R3_Par").innerHTML = "";
      document.getElementById("I3_Par").innerHTML = "";
      }


   document.getElementById("RT_Par").innerHTML = "RT = " + R_Total_Par;
   document.getElementById("IT_Par").innerHTML = "IT = " + I_Scale(I_Total_Par);
}


//**************************************************************************
// Functions for calculating Kirchhoff's Law voltage parameters.
//**************************************************************************


function K_Law_Ser() {


   E_Ser = parseFloat(document.Kirchhoffs_Law.E_Ser.value);


   R_1_Ser = parseFloat(document.Kirchhoffs_Law.R_1_Ser.value);
     if (isNaN(R_1_Ser) ) {document.Kirchhoffs_Law.R_1_Ser.value = 0;}
   R_2_Ser = parseFloat(document.Kirchhoffs_Law.R_2_Ser.value);
     if (isNaN(R_2_Ser) ) {document.Kirchhoffs_Law.R_2_Ser.value = 0;}
   R_3_Ser = parseFloat(document.Kirchhoffs_Law.R_3_Ser.value);
     if (isNaN(R_3_Ser) ) {document.Kirchhoffs_Law.R_3_Ser.value = 0;}


   R_1_Ser = comma_ins(parseFloat(document.Kirchhoffs_Law.R_1_Ser.value)) + " Ohms";
   R_2_Ser = comma_ins(parseFloat(document.Kirchhoffs_Law.R_2_Ser.value)) + " Ohms";
   R_3_Ser = comma_ins(parseFloat(document.Kirchhoffs_Law.R_3_Ser.value)) + " Ohms";


   R_Total_Ser = 0;


   if ( document.Kirchhoffs_Law.R_1_Ser.value != "" ) {
      R_Total_Ser = parseFloat(document.Kirchhoffs_Law.R_1_Ser.value); }
   if ( document.Kirchhoffs_Law.R_2_Ser.value != "" ) {
      R_Total_Ser += parseFloat(document.Kirchhoffs_Law.R_2_Ser.value); }
   if ( document.Kirchhoffs_Law.R_3_Ser.value != "" ) {
      R_Total_Ser += parseFloat(document.Kirchhoffs_Law.R_3_Ser.value); }


   I_Total_Ser = E_Ser/R_Total_Ser;


   E_1_Ser = I_Total_Ser * parseFloat(document.Kirchhoffs_Law.R_1_Ser.value);
   E_2_Ser = I_Total_Ser * parseFloat(document.Kirchhoffs_Law.R_2_Ser.value);
   E_3_Ser = I_Total_Ser * parseFloat(document.Kirchhoffs_Law.R_3_Ser.value);


   R_Total_Ser = comma_ins(Rnd(R_Total_Ser,0)) + " Ohms";


   Data_Out = "Series Circuit Voltages for an<BR>";
   Data_Out += " Applied Voltage of " + E_Scale(E_Ser);
   document.getElementById("K_Law_Ser_Header").innerHTML = Data_Out;


   if ( document.Kirchhoffs_Law.R_1_Ser.value != "" ) {
      document.getElementById("R1_Ser").innerHTML = "R1 = " + R_1_Ser;
      document.getElementById("E1_Ser").innerHTML = "E1 = " + E_Scale(E_1_Ser);
      }
   else {
      document.getElementById("R1_Ser").innerHTML = "";
      document.getElementById("I1_Ser").innerHTML = "";
      }


   if ( document.Kirchhoffs_Law.R_2_Ser.value != "" ) {
      document.getElementById("R2_Ser").innerHTML = "R2 = " + R_2_Ser;
      document.getElementById("E2_Ser").innerHTML = "E2 = " + E_Scale(E_2_Ser);
      }
   else {
      document.getElementById("R2_Ser").innerHTML = "";
      document.getElementById("I2_Ser").innerHTML = "";
      }


   if ( document.Kirchhoffs_Law.R_3_Ser.value != "" ) {
      document.getElementById("R3_Ser").innerHTML = "R3 = " + R_3_Ser;
      document.getElementById("E3_Ser").innerHTML = "E3 = " + E_Scale(E_3_Ser);
      }
   else {
      document.getElementById("R3_Ser").innerHTML = "";
      document.getElementById("I3_Ser").innerHTML = "";
      }


   document.getElementById("RT_Ser").innerHTML = "RT = " + R_Total_Ser;
   document.getElementById("IT_Ser").innerHTML = "IT = " + I_Scale(I_Total_Ser);


}