function nuevo_escanyo( votos, esc, num_par)
{
    var imax=0, ct;
    var max=0;

    for( ct=0; ct<num_par; ++ct) {
        if( max<(votos[ct]/(esc[ct]+1)) ) {
            max=votos[ct]/(esc[ct]+1);
            imax=ct;
        }
    }
    return imax;
}

function FormularioHondt(formul)
{
  var numpartidos=9;
  var ct; //contador
  var numvotos=Number(formul.votblan.value);
  var numescs=Number(formul.numesc.value);
  var liston=Number(formul.liston.value);
  var votos=new Array(Number(formul.vot1.value),Number(formul.vot2.value),Number(formul.vot3.value),Number(formul.vot4.value),Number(formul.vot5.value),Number(formul.vot6.value),Number(formul.vot7.value),Number(formul.vot8.value),Number(formul.vot9.value));
  var nombres=new Array(formul.nom1.value,formul.nom2.value,formul.nom3.value,formul.nom4.value,formul.nom5.value,formul.nom6.value,formul.nom7.value,formul.nom8.value,formul.nom9.value);
  var esc=new Array();
  var num_min_votos;

  var resultado; //Cadena con el resultado

  var numpartidosok=0;
  var votosok=new Array();
  var nombresok=new Array();

  resultado="<b>Resultados:</b><br /><br />";

  for (ct=0;ct<numpartidos;ct++) numvotos=votos[ct]+numvotos;
  
  resultado=resultado+"N&uacute;mero de votos recogidos : <b>"+numvotos+"</b><br /><br />";

  num_min_votos=Math.ceil(numvotos*liston/100);

  resultado=resultado+"El n&uacute;mero de votos m&iacute;nimo para obtener esca&ntilde;o queda en: "+num_min_votos+" <br /><br />";

  for (ct=0;ct<numpartidos;ct++)
    if (votos[ct]<num_min_votos){
      resultado=resultado+"El partido <b>"+nombres[ct]+"</b> queda fuera por no llegar al list&oacute;n electoral.<br />";
    } else {
      votosok[numpartidosok]=votos[ct];  // En votosok y nombresok ponemos los partidos que han superado el liston
      nombresok[numpartidosok]=nombres[ct];
      numpartidosok++;
    }

  resultado=resultado+"<br />";

  for (ct=0; ct<numpartidosok; ct++) esc[ct]=0;
  for (ct=0; ct<numescs; ct++) esc[nuevo_escanyo(votosok, esc, numpartidosok)]++;

  for (ct=0; ct<numpartidosok; ct++)
    resultado=resultado+"El partido <b>"+nombresok[ct]+"</b> obtiene "+esc[ct]+" esca&ntilde;os.<br />";

  document.getElementById("resultados").innerHTML=resultado;
}