<!-- hide script from older bowsers
conInt = 0;
conLev=1;
zVal=1.96;
zValC=3.8416;
ss=0;
pop=0;
perc=0;
pf = 0;

function to(obj) {

  if (obj.box.value == "") {
    conInt=0
  }  else {
    conInt = eval(obj.box.value)
  }

  if (obj.popbox.value == "") { 
     pop=0
   }  else {
     pop = eval(obj.popbox.value)
  }

  if (conInt == 0) {
      alert("You must enter a confidence interval between .1 and 50.")
   }  else {  
     if (pop == 0) {
        ss = ((zVal *zVal) * 0.25) / ((conInt / 100) *(conInt / 100))
     }
     else {
       ss = ((zVal *zVal) * 0.25) / ((conInt / 100) *(conInt / 100));
       ss=ss/(1+(ss-1)/pop)
     }
        
     obj.ssbox.value=parseInt(ss+.5)

  }
}

function ConLevButF1(obj){
   zVal=1.96
}
function ConLevButF2(obj){
   zVal=2.58
}
function ConLevButFC1(obj){
   zValC=3.8416 ;
}
function ConLevButFC2(obj){
   zValC=6.6564 ;
}

//   conf int calc --
function ci(obj) {

  if (obj.ssbox.value == "") {
    ss=0
  }
  else {
    ss = eval(obj.ssbox.value)
  }

  if (obj.popbox.value == "") { 
     pop=0
   }
  else {
     pop = eval(obj.popbox.value)
  }

  if (obj.popbox.value == "") { 
     pop=0}
  else {
     pop = eval(obj.popbox.value)}

  if (obj.perbox.value == "") { 
     perc=0}
  else {
     perc = eval(obj.perbox.value)}

  if (ss == 0 || perc < 1 || perc >99) {
      alert("You must enter a Sample Size and a Percentage between 1 and 99")
   }
  else {  
     if (pop == 0) {
        pf = 1 }
     else {
       pf = (pop - ss) / (pop - 1) }
     conInt = Math.sqrt(zValC * (perc / 100) * (1 - perc / 100) / ss * pf) * 100   
     // round and display
     pf=parseInt(conInt);
     conInt=Math.round((conInt-pf)*100);
     obj.cibox.value=pf+conInt/100
     //obj.cibox.value=pf
  }
}


function cler(obj, string) {
  obj.box.value = string;
  obj.popbox.value = string;
  obj.ssbox.value = string;
}
function clerC(obj, string) {
  obj.cibox.value = string;
  obj.popbox.value = string;
  obj.ssbox.value = string;
  obj.perbox.value = string;
}

// end hiding script -->