//**************************************************************************
// JavaScript for shortant.html
//**************************************************************************


//**************************************************************************
// Global Variables and Arrays.
//**************************************************************************


var UM, Cent_Freq, Min_Space, AWG_Size, WD;
var  ALEN, ALEN_HALF;


AWG_Array = new Array(40);
L_Array = new Array(9);
B_Array = new Array(9);
Coil_Dia = new Array(9);
Coil_Length = new Array(9);
Est_Turns = new Array(9);
Calc_Turns = new Array(9);
F_Self = new Array(9);
AQ = new Array(9);


function Short_Ant_Calc() {
   PI = 3.141592;

   //***********************************************************************
   // Set the Unit Multiplier (UM) based on the type of units specified
   // for the standard unit of measure. We need the multiplier because all
   // calculations are done in US/Imperial and need to be converted to metric
   // if that type of input is required.
   //***********************************************************************

   if (document.Short_Ant.Length_Dimension.options[0].selected) {
      Length_A = parseFloat(document.Short_Ant.Length_A.value); }
   else {
      Length_A = parseFloat(document.Short_Ant.Length_A.value) * 39.37 / 12; }

   //***********************************************************************
   // Calculate the mininum space for maximum efficiency.
   //***********************************************************************

   Cent_Freq = parseFloat(document.Short_Ant.Cent_Freq.value);
   Min_Space = (300/Cent_Freq)/2*.656;

   //***********************************************************************
   // Set up the AWG array
   //***********************************************************************

   K = Math.pow((0.46/0.005),(1/39));  // Increment Multiplier
   for ( I = 1; I <= 40; I++ ) {
      N = I+3; AWG_Array[I] = .46/Math.pow(K,N); }

   //***********************************************************************
   // Set the Wire Diameter based on the wire size specifier (AWG, in, mm)
   // and the wire size specified.
   //***********************************************************************

   if (document.Short_Ant.WDD.options[0].selected) {      // Convert AWG# to inches
      AWG_Size = parseInt(document.Short_Ant.Wire_Size.value);
      Wire_Dia = AWG_Array[AWG_Size]; }
   else if (document.Short_Ant.WDD.options[1].selected) { // Use the wire diameter as specified.
      Wire_Dia = parseFloat(document.Short_Ant.Wire_Size.value); }
   else if (document.Short_Ant.WDD.options[2].selected) { // Convert mm to inches
      Wire_Dia = parseFloat(document.Short_Ant.Wire_Size.value)/25.4; }

   //***********************************************************************
   // Calculate the free space length required for a full size dipole at the
   // specified frequency. Then adjust the length based on the ratio of the
   // length to the wire diameter. Select K based on the ratio.
   //***********************************************************************

   Free_Space_Length = 492/Cent_Freq;
   LD_Ratio = Free_Space_Length*12/Wire_Dia;

   if ( LD_Ratio > 10 ) K = 0.92;
   if ( LD_Ratio > 12 ) K = 0.93;
   if ( LD_Ratio > 15 ) K = 0.94;
   if ( LD_Ratio > 22 ) K = 0.95;
   if ( LD_Ratio > 50 ) K = 0.96;
   if ( LD_Ratio > 200 ) K = 0.97;
   if ( LD_Ratio > 2000 ) K = 0.98;

   Actual_Length = (492*K)/Cent_Freq;

   //***********************************************************************
   // Put together the output information and then send it to the text area.
   //***********************************************************************

   document.getElementById("Dipole_Freq").innerHTML = F_Scale(Cent_Freq*1000000,3,"on");
   document.getElementById("Space_Available").innerHTML = DFTtoFTIN( Length_A,1,16 ) + " (" + Rnd(Length_A*12/39.37,3) + " M)";
   document.getElementById("Dipole_Min").innerHTML = DFTtoFTIN( Min_Space*39.37/12,1,16 ) + " (" + Rnd(Min_Space,3) + " M)";
   document.getElementById("Dipole_Full").innerHTML = DFTtoFTIN( Actual_Length,1,16 ) + " (" + Rnd(Actual_Length*12/39.37,3) + " M)";

   //***********************************************************************
   // Divide the antenna into 10 parts and calculate 9 different
   // antenna configurations. The 10th configuration would mean that
   // there is sufficient space for a full size antenna and no need for
   // a loading coil. Split up the inductance equation because it's easier
   // to deal with in smaller chunks.
   //***********************************************************************

// F1 = 68 * pi^2 * f^2
   F1 = 1000000/(68*Math.pow(PI,2)*Math.pow(Cent_Freq,2));

//   The equation below seems to be missing 1/(2*Pi*f)
//   F1 = 1000000/(34*3.1593*Cent_Freq);
   Length_A_HALF = Length_A/2;

   for(Z = 0; Z <= 9; Z++) {
      B_Array[Z] = Z*0.1*(Length_A/2);
      F2 = Math.log((24*((234/Cent_Freq)-B_Array[Z]))/Wire_Dia)-1;
      F3 = Math.pow(1-((Cent_Freq*B_Array[Z])/234),2)-1;
      F4 = (234/Cent_Freq)-B_Array[Z];
      F5 = Math.log((24*((Length_A/2)-B_Array[Z]))/Wire_Dia)-1;
      F6 = Math.pow((((Cent_Freq*Length_A)/2)-(Cent_Freq*B_Array[Z]))/234,2)-1;
      F7 = (Length_A/2)-B_Array[Z];
      L_Array[Z] = F1 * (((F2*F3)/F4) - ((F5*F6)/F7));

      //*****************************************************************
      // Now we have an inductance and a recommended L/D Ratio so we want
      // to calculate the coil length and diameter based on a winding
      // space being twice the wire diameter.
      //
      // Starting with a coil diameter of 10 inches, and continue to
      // decrease the diameter. Use 4 separate loops with a diameter
      // delta of 1, 0.1, 0.01, and 0.001 inches, respectively, until
      // the difference between estimate and the calculated value is
      // very small. Note that the sign of the delta value changes so
      // that we itterate on a final value. This process requires less
      // calculations to come to a solution.
      //*****************************************************************


      Coil_Dia[Z] = 10; LD_Ratio = 0.5;
      Coil_Length[Z] = LD_Ratio * Coil_Dia[Z];
      Est_Turns[Z] = Coil_Length[Z] / (2*Wire_Dia);
      Calc_Turns[Z] = Math.sqrt(L_Array[Z]*(18*Coil_Dia[Z]+40*Coil_Length[Z]))/Coil_Dia[Z];


      Delta = 1;
      while ( Est_Turns[Z] > Calc_Turns[Z] ) {
         Coil_Dia[Z] = Coil_Dia[Z] - Delta;
         Coil_Length[Z] = LD_Ratio * Coil_Dia[Z];
         Est_Turns[Z] = Coil_Length[Z] / (2*Wire_Dia);
         Calc_Turns[Z] = Math.sqrt(L_Array[Z]*(18*Coil_Dia[Z]+40*Coil_Length[Z]))/Coil_Dia[Z];
         }


      Delta = -Delta/10;
      while ( Est_Turns[Z] < Calc_Turns[Z] ) {
         Coil_Dia[Z] = Coil_Dia[Z] - Delta;
         Coil_Length[Z] = LD_Ratio * Coil_Dia[Z];
         Est_Turns[Z] = Coil_Length[Z] / (2*Wire_Dia);
         Calc_Turns[Z] = Math.sqrt(L_Array[Z]*(18*Coil_Dia[Z]+40*Coil_Length[Z]))/Coil_Dia[Z];
         }


      Delta = -Delta/10;
      while ( Est_Turns[Z] > Calc_Turns[Z] ) {
         Coil_Dia[Z] = Coil_Dia[Z] - Delta;
         Coil_Length[Z] = LD_Ratio * Coil_Dia[Z];
         Est_Turns[Z] = Coil_Length[Z] / (2*Wire_Dia);
         Calc_Turns[Z] = Math.sqrt(L_Array[Z]*(18*Coil_Dia[Z]+40*Coil_Length[Z]))/Coil_Dia[Z];
         }


      Delta = -Delta/10;
      while ( Est_Turns[Z] < Calc_Turns[Z] ) {
         Coil_Dia[Z] = Coil_Dia[Z] - Delta;
         Coil_Length[Z] = LD_Ratio * Coil_Dia[Z];
         Est_Turns[Z] = Coil_Length[Z] / (2*Wire_Dia);
         Calc_Turns[Z] = Math.sqrt(L_Array[Z]*(18*Coil_Dia[Z]+40*Coil_Length[Z]))/Coil_Dia[Z];
         }


      //*****************************************************************
      // Calculate the self resonant frequency.
      // I_HCos = Inverse hyperbolic cosine
      // Dist_Cap = Distributed capacitance
      // F_Self[Z]Self resonant frequency
      //*****************************************************************


      Space_Ratio = 2;
      JJ = 1/(4*Math.pow(PI,2))*1000000;
      I_HCos = Math.log(Space_Ratio + Math.sqrt(Math.pow(Space_Ratio,2)-1));
      Dist_Cap = PI * Coil_Dia[Z] * 2.54 / (3.6 * I_HCos );
      F_Self[Z] = Math.sqrt(JJ/Dist_Cap/L_Array[Z]);


      //*****************************************************************
      // Calculate the coil Q.
      // CR = Capacitance required to resonate
      // C = Added capacity required to resonate
      // Coil_Rad_cm = Coil radius in cm.
      // Coil_Length_cm = Coil length in cm.
      // True_Q = True Q
      //*****************************************************************


      CR = JJ / (Math.pow(Cent_Freq,2) * L_Array[Z]);
      C = CR - Dist_Cap;
      Coil_Rad_cm = Coil_Dia[Z]*2.54/2;
      Coil_Length_cm = Coil_Length[Z]*2.54;
      True_Q = Math.sqrt(Cent_Freq*1000000) / (6.9/Coil_Rad_cm + 5.4/Coil_Length_cm);


      //1980 AQ=QT/(1+CO/C)
      AQ[Z] = True_Q/(1+Dist_Cap/C);
      if( AQ[Z] < 0 ) { AQ[Z] = 0 }


   }//end for loop


   document.getElementById("Dim_B_0").innerHTML = DFTtoFTIN( B_Array[0],1,16 )+ " (" + Rnd(B_Array[0]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_0").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[0],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[0])*12/39.37,2) + " M)";
   document.getElementById("Ind_0").innerHTML = Rnd(L_Array[0],1) + " uH";
   document.getElementById("Dia_0").innerHTML = DIN2FIN(Coil_Dia[0],16) + " (" + Rnd(Coil_Dia[1]* 25.4,1) + " mm)";
   document.getElementById("Res_0").innerHTML = Rnd(F_Self[0],1) + " MHz";
   document.getElementById("Q_0").innerHTML = Rnd(AQ[0],0);


   document.getElementById("Dim_B_1").innerHTML = DFTtoFTIN( B_Array[1],1,16 )+ " (" + Rnd(B_Array[1]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_1").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[1],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[1])*12/39.37,2) + " M)";
   document.getElementById("Ind_1").innerHTML = Rnd(L_Array[1],1) + " uH";
   document.getElementById("Dia_1").innerHTML = DIN2FIN(Coil_Dia[1],16) + " (" + Rnd(Coil_Dia[1]* 25.4,1) + " mm)";
   document.getElementById("Res_1").innerHTML = Rnd(F_Self[1],1) + " MHz";
   document.getElementById("Q_1").innerHTML = Rnd(AQ[1],0);


   document.getElementById("Dim_B_2").innerHTML = DFTtoFTIN( B_Array[2],1,16 )+ " (" + Rnd(B_Array[2]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_2").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[2],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[2])*12/39.37,2) + " M)";
   document.getElementById("Ind_2").innerHTML = Rnd(L_Array[2],1) + " uH";
   document.getElementById("Dia_2").innerHTML = DIN2FIN(Coil_Dia[2],16) + " (" + Rnd(Coil_Dia[2]* 25.4,1) + " mm)";
   document.getElementById("Res_2").innerHTML = Rnd(F_Self[2],1) + " MHz";
   document.getElementById("Q_2").innerHTML = Rnd(AQ[2],0);


   document.getElementById("Dim_B_3").innerHTML = DFTtoFTIN( B_Array[3],1,16 )+ " (" + Rnd(B_Array[3]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_3").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[3],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[3])*12/39.37,2) + " M)";
   document.getElementById("Ind_3").innerHTML = Rnd(L_Array[3],1) + " uH";
   document.getElementById("Dia_3").innerHTML = DIN2FIN(Coil_Dia[3],16) + " (" + Rnd(Coil_Dia[3]* 25.4,1) + " mm)";
   document.getElementById("Res_3").innerHTML = Rnd(F_Self[3],1) + " MHz";
   document.getElementById("Q_3").innerHTML = Rnd(AQ[3],0);


   document.getElementById("Dim_B_4").innerHTML = DFTtoFTIN( B_Array[4],1,16 )+ " (" + Rnd(B_Array[4]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_4").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[4],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[4])*12/39.37,2) + " M)";
   document.getElementById("Ind_4").innerHTML = Rnd(L_Array[4],1) + " uH";
   document.getElementById("Dia_4").innerHTML = DIN2FIN(Coil_Dia[4],16) + " (" + Rnd(Coil_Dia[4]* 25.4,1) + " mm)";
   document.getElementById("Res_4").innerHTML = Rnd(F_Self[4],1) + " MHz";
   document.getElementById("Q_4").innerHTML = Rnd(AQ[4],0);


   document.getElementById("Dim_B_5").innerHTML = DFTtoFTIN( B_Array[5],1,16 )+ " (" + Rnd(B_Array[5]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_5").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[5],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[5])*12/39.37,2) + " M)";
   document.getElementById("Ind_5").innerHTML = Rnd(L_Array[5],1) + " uH";
   document.getElementById("Dia_5").innerHTML = DIN2FIN(Coil_Dia[5],16) + " (" + Rnd(Coil_Dia[5]* 25.4,1) + " mm)";
   document.getElementById("Res_5").innerHTML = Rnd(F_Self[5],1) + " MHz";
   document.getElementById("Q_5").innerHTML = Rnd(AQ[5],0);


   document.getElementById("Dim_B_6").innerHTML = DFTtoFTIN( B_Array[6],1,16 )+ " (" + Rnd(B_Array[6]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_6").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[6],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[6])*12/39.37,2) + " M)";
   document.getElementById("Ind_6").innerHTML = Rnd(L_Array[6],1) + " uH";
   document.getElementById("Dia_6").innerHTML = DIN2FIN(Coil_Dia[6],16) + " (" + Rnd(Coil_Dia[6]* 25.4,1) + " mm)";
   document.getElementById("Res_6").innerHTML = Rnd(F_Self[6],1) + " MHz";
   document.getElementById("Q_6").innerHTML = Rnd(AQ[6],0);


   document.getElementById("Dim_B_7").innerHTML = DFTtoFTIN( B_Array[7],1,16 )+ " (" + Rnd(B_Array[7]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_7").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[7],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[7])*12/39.37,2) + " M)";
   document.getElementById("Ind_7").innerHTML = Rnd(L_Array[7],1) + " uH";
   document.getElementById("Dia_7").innerHTML = DIN2FIN(Coil_Dia[7],16) + " (" + Rnd(Coil_Dia[7]* 25.4,1) + " mm)";
   document.getElementById("Res_7").innerHTML = Rnd(F_Self[7],1) + " MHz";
   document.getElementById("Q_7").innerHTML = Rnd(AQ[7],0);


   document.getElementById("Dim_B_8").innerHTML = DFTtoFTIN( B_Array[8],1,16 )+ " (" + Rnd(B_Array[8]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_8").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[8],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[8])*12/39.37,2) + " M)";
   document.getElementById("Ind_8").innerHTML = Rnd(L_Array[8],1) + " uH";
   document.getElementById("Dia_8").innerHTML = DIN2FIN(Coil_Dia[8],16) + " (" + Rnd(Coil_Dia[8]* 25.4,1) + " mm)";
   document.getElementById("Res_8").innerHTML = Rnd(F_Self[8],1) + " MHz";
   document.getElementById("Q_8").innerHTML = Rnd(AQ[8],0);


   document.getElementById("Dim_B_9").innerHTML = DFTtoFTIN( B_Array[9],1,16 )+ " (" + Rnd(B_Array[9]*12/39.37,2) + " M)";
   document.getElementById("Dim_C_9").innerHTML = DFTtoFTIN( (Length_A/2)- B_Array[9],1,16 )+ " (" + Rnd(((Length_A/2)- B_Array[9])*12/39.37,2) + " M)";
   document.getElementById("Ind_9").innerHTML = Rnd(L_Array[9],1) + " uH";
   document.getElementById("Dia_9").innerHTML = DIN2FIN(Coil_Dia[9],16) + " (" + Rnd(Coil_Dia[9]* 25.4,1) + " mm)";
   document.getElementById("Res_9").innerHTML = Rnd(F_Self[9],1) + " MHz";
   document.getElementById("Q_9").innerHTML = Rnd(AQ[9],0);


   document.Short_Ant.Opt_Eff.value = "For optimum efficiency, self-resonance should be near " + Rnd(Cent_Freq*2,1) + " MHz";


   //***********************************************************************
   // Figure out which antenna is selected and highlight that line by
   // changing the background color for that row.
   //***********************************************************************


   for (var I = 0; I < 7; I++) {
      for (var J = 2; J < 11; J++) {
      setCellBgColor ('tableId', J, I, ''); } }


   for( i=0; i<document.Short_Ant.Ant_Sel.length; i++) {
      if (document.Short_Ant.Ant_Sel[i].checked) {
         Ant_Sel_Val = document.Short_Ant.Ant_Sel[i].value;
         for (var I = 0; I < 7; I++) {
           setCellBgColor ('tableId', i+2, I, '#fff2d2'); }
         }
      }


   document.getElementById("Use_Freq").innerHTML = F_Scale(Cent_Freq*1000000,3,"on");
   document.getElementById("Ant_Num").innerHTML = Ant_Sel_Val;


   document.getElementById("Ini_Dim_A").innerHTML = DFTtoFTIN( Length_A,1,16 ) + " (" + Rnd(Length_A*12/39.37,3) + " M)";


   document.getElementById("Ini_Dim_B").innerHTML = DFTtoFTIN( B_Array[Ant_Sel_Val],1,16 ) + " (" + Rnd(B_Array[Ant_Sel_Val]*12/39.37,3) + " M)";


   document.getElementById("Ini_Dim_C").innerHTML = DFTtoFTIN( Length_A/2-B_Array[Ant_Sel_Val],1,16 ) + " (" + Rnd((Length_A/2-B_Array[Ant_Sel_Val])*12/39.37,3) + " M)";


   document.getElementById("Ini_L_I").innerHTML = Rnd(L_Array[Ant_Sel_Val],3) + " uH";


   document.getElementById("Ini_L_Dia").innerHTML = DIN2FIN( Coil_Dia[Ant_Sel_Val],16 ) + " (" + Rnd(Coil_Dia[5]*25.4,1) + " mm)";


   document.getElementById("Ini_L_Len").innerHTML = DIN2FIN( Coil_Length[Ant_Sel_Val],16 ) + " (" + Rnd(Coil_Length[5]*25.4,1) + " mm)";


   document.getElementById("Ini_L_Turns").innerHTML = Rnd(Calc_Turns[Ant_Sel_Val],1);


   if (document.Short_Ant.WDD.options[0].selected) {
      document.getElementById("Ini_L_Wire").innerHTML = "#" + AWG_Size + " AWG, " + DIN2FIN( Wire_Dia,16 ) + " (" + Rnd(Wire_Dia*25.4,1) + " mm)\n";
      }
   else {
      document.getElementById("Ini_L_Wire").innerHTML = DIN2FIN(Wire_Dia,16 ) + " (" + Rnd(Wire_Dia*25.4,1) + " mm)";
      }


//   document.Short_Ant.Coil_Data.value = Coil_Data;


   if (document.Short_Ant.Length_B_Dimension.options[0].selected) {
      Length_B = parseFloat(document.Short_Ant.Length_B.value); }
   else {
      Length_B = parseFloat(document.Short_Ant.Length_B.value) * 39.37 / 12; }


   B_Array[Z] = Z*0.1*(Length_A/2);
   F2 = Math.log((24*((234/Cent_Freq)-Length_B))/Wire_Dia)-1;
   F3 = Math.pow(1-((Cent_Freq*Length_B)/234),2)-1;
   F4 = (234/Cent_Freq)-Length_B;
   F5 = Math.log((24*((Length_A/2)-Length_B))/Wire_Dia)-1;
   F6 = Math.pow((((Cent_Freq*Length_A)/2)-(Cent_Freq*Length_B))/234,2)-1;
   F7 = (Length_A/2)-Length_B;
   L_Value = F1 * (((F2*F3)/F4) - ((F5*F6)/F7));


   document.getElementById("Cus_Freq").innerHTML = F_Scale(Cent_Freq*1000000,3,"on");
   document.getElementById("Cus_Dim_A").innerHTML = DFTtoFTIN( Length_A,1,16 ) + " (" + Rnd(Length_A*12/39.37,3) + " M)";
   document.getElementById("Cus_Dim_B").innerHTML = DFTtoFTIN( Length_B,1,16 ) + " (" + Rnd(Length_B*12/39.37,3) + " M)";
   document.getElementById("Cus_Dim_C").innerHTML = DFTtoFTIN( F7,1,16 ) + " (" + Rnd(F7*12/39.37,3) + " M)";
   document.getElementById("Cus_Ind").innerHTML = Rnd(L_Value,3) + " uH";
}


//**************************************************************************
// Display the B&W Coil Catalog.
//**************************************************************************


function View_BW_Ind_Cat() {


   BW_Ind_Cat = window.open('','Cat_Win',
      'menubar=yes,resizable=yes,scrollbars=yes,status=yes,width=550,height=600');


   with (BW_Ind_Cat.document) {
      write("<HTML>\n")
      write("<HEAD>\n")
      write("<A NAME=\"Top_of_Page\"></A>\n")
      write("<title>Barker & Williamson Air Core Inductors</title>\n")


      write("<style type=\"text/css\">\n")
      write(".loc { font-family: Arial; font-size: 8pt; font-weight: bold; color: #ffff00; text-decoration: none }\n")
      write(".nav { font-family: Arial; font-size: 8pt; font-weight: bold; color: #ffffff; text-decoration: none }\n")
      write(".tbl_item { font-size: 8pt; color: #0000af }\n")
      write(".std { font-family: Arial,Helvetica; font-size: 12pt; text-decoration: none }\n")

      write(".std_8 { font-family: Arial,Helvetica; font-size: 8pt; text-decoration: none }\n")
      write(".std_10 { font-family: Arial,Helvetica; font-size: 10pt; text-decoration: none }\n")
      write(".std_10_green { font-family: Arial,Helvetica; font-size: 10pt; color: #00af00; text-decoration: none }\n")
      write(".std_blue_10 { font-family: Arial,Helvetica; font-size: 10pt; color: #0000AF; text-decoration: none }\n")
      write(".std_bold { font-family: Arial,Helvetica; font-size: 12pt; font-weight: bold; text-decoration: none }\n")
      write(".std_hdr { font-family: Arial,Helvetica; font-size: 14pt; font-weight: bold; color: #00af00; text-decoration: none }\n")
      write(".std_hdr_12 { font-family: Arial,Helvetica; font-size: 12pt; font-weight: bold; color: #00af00; text-decoration: none }\n")
      write(".std_hdr_14 { font-family: Arial,Helvetica; font-size: 14pt; font-weight: bold; color: #00af00; text-decoration: none }\n")
      write(".std_hdr_16 { font-family: Arial,Helvetica; font-size: 16pt; font-weight: bold; color: #00af00; text-decoration: none }\n")
      write("A:link {color: #0000FF; text-decoration: none}A:active {color: #0000FF; text-decoration: none}\n")
      write("A:visited {color: #0000FF; text-decoration: none}\n")
      write("P.special {color: green; border: solid red; font-weight: bold}\n")
      write("</style>\n")
      write("</HEAD>\n\n")


      write("<BODY ALINK=\"#0000FF\" BACKGROUND=\"../../lightppr.gif\" BGCOLOR=\"#EFEFEF\"\n")
      write(" LINK=\"#0000FF\" TEXT=\"#000000\" VLINK=\"#0000FF\">\n")


      write("<A NAME=\"Page_Top\"></a>\n\n")


      write("<table align=center border=\"0\" cellpadding=\"5\" cellspacing=\"5\" width=\"400\">\n")
      write("<TR>\n")
      write("  <TD colspan=3 align=middle><hr noshade>\n")
      write("<TR>\n")
      write("  <TD><P class=std_hdr_16 ALIGN=\"center\">\n")
      write("  JavaScript<SUP><FONT SIZE=4>&reg;</font></sup> Electronic Notebook<BR><BR>\n")
      write("  Barker & Williamson Air Core Inductors\n")
      write("<TR>\n")
      write("  <TD colspan=3 align=middle><hr noshade>\n")
      write("</table>\n\n")


      write("<table align=center border=\"1\" cellpadding=\"2\" cellspacing=\"1\" width=\"400\">\n")
      write("<TR ALIGN=CENTER>\n")
      write("  <TH><P class=\"std\">Catalog Number\n")
      write("  <TH><P class=\"std\">Diameter (in.)\n")
      write("  <TH><P class=\"std\">Turns per Inch\n")
      write("  <TH><P class=\"std\">Length (in.)\n")
      write("  <TH><P class=\"std\">AWG#\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3001\n")
      write("  <TH><P class=\"std\">0.5\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3002\n")
      write("  <TH><P class=\"std\">0.5\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3003\n")
      write("  <TH><P class=\"std\">0.5\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">20\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3004\n")
      write("  <TH><P class=\"std\">0.5\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3005\n")
      write("  <TH><P class=\"std\">0.625\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3006\n")
      write("  <TH><P class=\"std\">0.625\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3007\n")
      write("  <TH><P class=\"std\">0.625\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">20\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3008\n")
      write("  <TH><P class=\"std\">0.625\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3009\n")
      write("  <TH><P class=\"std\">0.75\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3010\n")

      write("  <TH><P class=\"std\">0.75\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3011\n")
      write("  <TH><P class=\"std\">0.75\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">20\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3012\n")
      write("  <TH><P class=\"std\">0.75\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3013\n")
      write("  <TH><P class=\"std\">1\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3014\n")
      write("  <TH><P class=\"std\">1\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3015\n")
      write("  <TH><P class=\"std\">1\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">20\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3016\n")
      write("  <TH><P class=\"std\">1\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3017\n")
      write("  <TH><P class=\"std\">1.25\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3018\n")
      write("  <TH><P class=\"std\">1.25\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3019\n")
      write("  <TH><P class=\"std\">1.25\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3020\n")
      write("  <TH><P class=\"std\">1.25\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3021\n")
      write("  <TH><P class=\"std\">1.75\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3022\n")
      write("  <TH><P class=\"std\">1.75\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3023\n")
      write("  <TH><P class=\"std\">1.75\n")
      write("  <TH><P class=\"std\">16\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">18\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3024\n")
      write("  <TH><P class=\"std\">1.75\n")
      write("  <TH><P class=\"std\">32\n")
      write("  <TH><P class=\"std\">4\n")
      write("  <TH><P class=\"std\">24\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3025\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">6\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">12\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3026\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3027\n")
      write("  <TH><P class=\"std\">2\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3029\n")
      write("  <TH><P class=\"std\">2.5\n")
      write("  <TH><P class=\"std\">6\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">12\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3030\n")
      write("  <TH><P class=\"std\">2.5\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3031\n")
      write("  <TH><P class=\"std\">2.5\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">16\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3033\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">6\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">12\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3034\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">8\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">14\n")
      write("<TR>\n")
      write("  <TH><P class=\"std\">3035\n")
      write("  <TH><P class=\"std\">3\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">10\n")
      write("  <TH><P class=\"std\">16\n")
      write("</TABLE>\n")


      write("<!----------------------------------------------------------------->\n")
      write("<!-- Ending and credits. -->\n")
      write("<!----------------------------------------------------------------->\n\n")


      write("<table align=center border=\"0\" cellpadding=\"2\" cellspacing=\"3\" width=\"400\">\n")
      write("<TR>\n")
      write("  <td align=middle><hr noshade>\n")
      write("<TR>\n")
      write("  <th align=middle><P class=\"std_10\"><I>&copy; <A HREF=\"mailto:k7mem@myrealbox.com\">Martin E. Meserve, K7MEM</a></i>\n")
      write("<TR>\n")
      write("  <th align=middle><P class=\"std_10\">Click to view the\n")
      write("  <a href=\"../../credits.html\" target=\"blank\">Resource Credits</a>\n")
      write("<TR>\n")
      write("  <th align=middle>\n")
      write("</table>\n")


      write("</body>\n")
      write("</html>\n")


      close()
      } // End of "with (BW_Ind_Cat.document)" statement
}