function popup(url) {
      OpenWin = this.open(url,'poping','width=400,height=300,resizable=no,scrollbars=no,toolbar=no,directories=no,status=no');
      this.focus;
    }
  
  
  function rd60sc(){
  with (Math) {
  d = document.getElementById('rd60sc_d');
  c = document.getElementById('rd60sc_c');
  oa = document.getElementById('rd60sc_oa');
  hpsi = document.getElementById('rd60sc_hpsi');
  dv = d.value;
  cv = c.value;
  oav = oa.value;
  
  
  if(dv != "" && cv!= "" && cv>0){
    //solve for open area
    hpsi.value = "";
    oa_value = (dv*dv*90.69)/(cv*cv);
    hpsiv= ((oa_value/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    oa.value = oa_value.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else if(dv != "" && oav != ""){
    //solve for center
    hpsi.value = "";
    center = abs(sqrt(dv*dv*90.69/oav));
    hpsiv= ((oav/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    c.value = center.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
    
  }
  else if(cv != "" && oav != ""){
    //solve for diameter
    hpsi.value = "";
    diameter = abs(sqrt(oav*cv*cv/90.69));
    hpsiv= ((oav/(78.54*(diameter*diameter))*100)*100)/10000;
    
    //set values in textboxes
    d.value = diameter.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else {
    alert("Invalid Arguments");
  }
  }
}
  
  
  function rdsc(){
  with (Math) {
  d = document.getElementById('rdsc_d');
  c = document.getElementById('rdsc_c');
  oa = document.getElementById('rdsc_oa');
  hpsi = document.getElementById('rdsc_hpsi');
  dv = d.value;
  cv = c.value;
  oav = oa.value;
  
  
  if(dv != "" && cv!= "" && cv>0){
    //solve for open area
    hpsi.value = "";
    oa_value = (dv*dv*78.54)/(cv*cv);
    hpsiv= ((oa_value/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    oa.value = oa_value.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else if(dv != "" && oav != ""){
    //solve for center
    hpsi.value = "";
    center = abs(sqrt(dv*dv*78.54/oav));
    hpsiv= ((oav/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    c.value = center.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
    
  }
  else if(cv != "" && oav != ""){
    //solve for diameter
    hpsi.value = "";
    diameter = abs(sqrt(oav*cv*cv/78.54));
    hpsiv= ((oav/(78.54*(diameter*diameter))*100)*100)/10000;
    
    //set values in textboxes
    d.value = diameter.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else {
    alert("Invalid Arguments");
  }
  }
  
  }
  function sq45(){
   with (Math) {
  d = document.getElementById('sq45_d');
  c = document.getElementById('sq45_c');
  oa = document.getElementById('sq45_oa');
  hpsi = document.getElementById('sq45_hpsi');
  dv = d.value;
  cv = c.value;
  oav = oa.value;
  
  
  if(dv != "" && cv!= "" && cv>0){
    //solve for open area
    hpsi.value = "";
    oa_value = (dv*dv*100)/(cv*cv);
    hpsiv= 1/(cv*cv);
    
    //set values in textboxes
    oa.value = oa_value.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else if(dv != "" && oav != ""){
    //solve for center
    hpsi.value = "";
    center = abs(sqrt(dv*dv*100/oav));
    hpsiv= 1/(center*center);
    
    //set values in textboxes
    c.value = center.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
    
  }
  else if(cv != "" && oav != ""){
    //solve for diameter
    hpsi.value = "";
    diameter = abs(sqrt(oav*cv*cv/100));
    hpsiv= 1/(cv*cv);
    
    //set values in textboxes
    d.value = diameter.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else {
    alert("Invalid Arguments");
  }
  }
  

  }
  function rstag(){
   with(Math){
    w = document.getElementById('rstag_w');
    l = document.getElementById('rstag_l');
    a = document.getElementById('rstag_a');
        b = document.getElementById('rstag_b');
        oa = document.getElementById('rstag_oa');
        hpsi = document.getElementById('rstag_hpsi');
        wv = w.value;
    lv = l.value;
        av = a.value;
        bv = b.value;
        oav = oa.value;
        
        if(wv!="" && lv!="" && av!="" && av>0 && bv!="" && bv>0){
          //solve for open area
          openarea = 100*(wv*(lv-0.215*wv)/(av*bv));
          hpsiv = (openarea/(wv*(lv-0.215*wv)))/100;
          
          //output
          oa.value = openarea.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(lv!="" && oav!="" && av!="" && bv!=""){
         //solve for w
          sq = sqrt(10000*lv*lv-86*oav*av*bv);
          width = (100/43)*lv-(1/43*sq);
          
          hpsiv = (oav/(width*(lv-0.215*width)))/100;
          
          //output
          w.value = width.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(oav!="" && av!="" && bv!="" && wv!="" && wv>0){
         //solve for l
         length = .005*((2*oav*av*bv+43*wv*wv)/wv);
         hpsiv = (oav/(wv*(length-0.215*wv)))/100;
         
           //output
          l.value = length.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
         
        }
        else if(oav!="" && oav>0 && lv!="" && w!="" && bv!="" && bv>0){
          //solve for a
          a_temp = -.5*(wv*(-200*lv+43*wv)/(oav*bv));
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          a.value = a_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
          
        }
        else if(oav!="" && oav>0 && lv!="" && w!="" && av!="" && av>0){
          //solve for b
           b_temp = -.5*(wv*(-200*lv+43*wv)/(oav*av));
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          b.value = b_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(wv!=""  && oav!="" && oav>0 && lv!=""){
          //solve for a and b
          sq = sqrt(oav*oav*wv*wv-2*oav*oav*wv*lv+oav*oav*lv*lv-86*oav*wv*wv+400*oav*wv*lv);
          a_temp = parseFloat(lv) + .25*((sq*2-2*oav*wv-2*oav*lv)/oav);
          b_temp = parseFloat(wv) + .25*((sq*2-2*oav*wv-2*oav*lv)/oav);
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          a.value = a_temp.toFixed(3);
          b.value = b_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else {
          alert("Invalid Arguments");
        }
  }
  }
  function rstraight(){
    with(Math){
    w = document.getElementById('rstraight_w');
    l = document.getElementById('rstraight_l');
    a = document.getElementById('rstraight_a');
        b = document.getElementById('rstraight_b');
        oa = document.getElementById('rstraight_oa');
        hpsi = document.getElementById('rstraight_hpsi');
        wv = w.value;
    lv = l.value;
        av = a.value;
        bv = b.value;
        oav = oa.value;
        
        if(wv!="" && lv!="" && av!="" && av>0 && bv!="" && bv>0){
          //solve for open area
          openarea = 100*(wv*(lv-0.215*wv)/(av*bv));
          hpsiv = (openarea/(wv*(lv-0.215*wv)))/100;
          
          //output
          oa.value = openarea.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(lv!="" && oav!="" && av!="" && bv!=""){
         //solve for w
          sq = sqrt(10000*lv*lv-86*oav*av*bv);
          width = (100/43)*lv-(1/43*sq);
          
          hpsiv = (oav/(width*(lv-0.215*width)))/100;
          
          //output
          w.value = width.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(oav!="" && av!="" && bv!="" && wv!="" && wv>0){
         //solve for l
         length = .005*((2*oav*av*bv+43*wv*wv)/wv);
         hpsiv = (oav/(wv*(length-0.215*wv)))/100;
         
           //output
          l.value = length.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
         
        }
        else if(oav!="" && oav>0 && lv!="" && w!="" && bv!="" && bv>0){
          //solve for a
          a_temp = -.5*(wv*(-200*lv+43*wv)/(oav*bv));
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          a.value = a_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
          
        }
        else if(oav!="" && oav>0 && lv!="" && w!="" && av!="" && av>0){
          //solve for b
           b_temp = -.5*(wv*(-200*lv+43*wv)/(oav*av));
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          b.value = b_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else if(wv!=""  && oav!="" && oav>0 && lv!=""){
          //solve for a and b
          sq = sqrt(oav*oav*wv*wv-2*oav*oav*wv*lv+oav*oav*lv*lv-86*oav*wv*wv+400*oav*wv*lv);
          a_temp = parseFloat(lv) + .25*((sq*2-2*oav*wv-2*oav*lv)/oav);
          b_temp = parseFloat(wv) + .25*((sq*2-2*oav*wv-2*oav*lv)/oav);
          hpsiv = (oav/(wv*(lv-0.215*wv)))/100;
         
           //output
          a.value = a_temp.toFixed(3);
          b.value = b_temp.toFixed(3);
          hpsi.value = hpsiv.toFixed(3);
        }
        else {
          alert("Invalid Arguments");
        }
  }
  }
  function square() {
        with(Math) {
                w = document.getElementById('square_w');
                l = document.getElementById('square_l');
                cw = document.getElementById('square_cw');
                cl = document.getElementById('square_cl');
                oa = document.getElementById('square_oa');
                hpsi = document.getElementById('square_hpsi');
                wv = w.value;
                lv = l.value;
                cwv = cw.value;
                clv = cl.value;
                oav = oa.value;
                
                if(lv!="" && wv!="" && cwv!="" && cwv>0 && clv!="" && clv>0){
                  //solve for open area 
                  openarea = 100*(lv * wv)/(clv*cwv);
                  hpsiv = (openarea/(wv*lv))/100;
                  
                  //output values
                  oa.value = openarea.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);        
                }
                else if(clv != "" && oav != "" && cwv !=""  && wv != "" && wv>0){
                  //solve for length
                  length = 0.01*oav *clv * cwv / wv;
                  hpsiv = (oav/(wv*length))/100;
                  
                  //output values
                  l.value = length.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);                
                }
                else if(clv != "" && oav != "" && cwv !=""  && lv != "" && lv>0){
                  //solve for width
                  width = 0.01*oav *clv * cwv / lv;
                 hpsiv = (oav/(width*lv))/100;
                  
                  //output values
                  w.value = width.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);                
                }
            else if (wv!="" && lv!="" && oav!="" && oav>0  && cwv!="" && cwv>0){
              //solve for Cl
              clength = 100 * wv * lv / (oav * cwv);
              hpsiv = (oav/(wv*lv))/100;
                  
                  //output values
                  cl.value = clength.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);                
            }
            else if (wv!="" && lv!="" && oav!="" && oav>0  && clv!="" && clv>0){
              //solve for Cw
              cwidth = 100 * wv * lv / (oav * clv);
              hpsiv = (oav/(wv*lv))/100;
                  
                  //output values
                  cw.value = cwidth.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);
                
            }
            else if (lv!="" && oav!="" && oav>0 && wv!="") {
              //solve for Cl and Cw     
              sq = sqrt(oav*oav*lv*lv-2*oav*oav*lv*wv+oav*oav*wv*wv+400*oav*wv*lv);    
              clength = (0.5*(((oav*(-1)*lv)-(oav*wv)+sq)/oav))+parseFloat(lv);
              cwidth = (0.5*(((oav*(-1)*lv)-(oav*wv)+sq)/oav))+parseFloat(wv);
              hpsiv = (oav/(wv*lv))/100;
              
               //output values
                  cw.value = cwidth.toFixed(3);
                  cl.value = clength.toFixed(3);
                  hpsi.value = hpsiv.toFixed(3);
              
            }
            else {
              alert("Invalid Arguments");       
            }


        }
}
  
  function hex(){
    with (Math) {
  d = document.getElementById('hex_d');
  c = document.getElementById('hex_c');
  oa = document.getElementById('hex_oa');
  hpsi = document.getElementById('hex_hpsi');
  dv = d.value;
  cv = c.value;
  oav = oa.value;
  
  
  if(dv != "" && cv!= "" && cv>0){
    //solve for open area
    hpsi.value = "";
    oa_value = (dv*dv*100)/(cv*cv);
    hpsiv= ((oa_value/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    oa.value = oa_value.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else if(dv != "" && oav != ""){
    //solve for center
    hpsi.value = "";
    center = abs(sqrt(dv*dv*100/oav));
    hpsiv= ((oav/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    c.value = center.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
    
  }
  else if(cv != "" && oav != ""){
    //solve for diameter
    hpsi.value = "";
    diameter = abs(sqrt(oav*cv*cv/100));
    hpsiv= ((oav/(78.54*(diameter*diameter))*100)*100)/10000;
    
    //set values in textboxes
    d.value = diameter.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else {
    alert("Invalid Arguments");
  }
  }
  
  }
  function rd45(){
      with (Math) {
  d = document.getElementById('rd45_d');
  s = document.getElementById('rd45_s');
  oa = document.getElementById('rd45_oa');
  hpsi = document.getElementById('rd45_hpsi');
  dv = d.value;
  sv = s.value;
  oav = oa.value;
  
  
  if(dv != "" && sv!= "" && sv>0){
    //solve for open area
    hpsi.value = "";
    oa_value = (dv*dv*157.08)/(sv*sv);
    hpsiv= ((oa_value/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    oa.value = oa_value.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else if(dv != "" && oav != ""){
    //solve for center
    hpsi.value = "";
    spacing = abs(sqrt(dv*dv*157.08/oav));
    hpsiv= ((oav/(78.54*(dv*dv))*100)*100)/10000;
    
    //set values in textboxes
    s.value = spacing.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
    
  }
  else if(sv != "" && oav != ""){
    //solve for diameter
    hpsi.value = "";
    diameter = abs(sqrt(oav*sv*sv/157.08));
    hpsiv= ((oav/(78.54*(diameter*diameter))*100)*100)/10000;
    
    //set values in textboxes
    d.value = diameter.toFixed(3);
    hpsi.value = hpsiv.toFixed(3);
  }
  else {
    alert("Invalid Arguments");
  }
  }
  
  }