/*  somos.js   (Suites de Somos)

   (C) Jean-Paul Davalan 2003-2004 jpdvl@wanadoo.fr
   http://perso.wanadoo.fr/jean-paul.davalan/mots/suites/somos/index.html
   http://perso.wanadoo.fr/jean-paul.davalan/mots/suites/somos/index-en.html
*/

function suite(s) {
  var a = s;
  a.replace(/^\s+/,"");
  a.replace(/\s*$/,"");
  b = new Array();
  b = a.split(/\s+/);
  return b;
}

function effectue() {
  var q = "", zn, z,
      x = 0, c = new Array() , v = new Array(),
      s = document.frm.otxt.value, s1 = document.frm.itxt.value,
      t = parseInt(document.frm.t.value);
  v = suite(s); var n = v.length;
//  alert(v[v.length -1]);
  c = suite(s1); var m = c.length;
//  alert(m+" "+c[c.length -1]);

  for(var i = 0; i< m && 2*i< t; i++) {
    if(i < n) x = x + parseInt(v[i])* parseInt(v[t-1-i]) * parseInt(c[i]);
  }
  
  den = parseInt(v[t]);
//  alert(x+" "+den);
  if(den != 0)  x = x/den;

/*
  z = document.frm.z.value;
  zn=-1;
  if(z != void(0) && z!="") 
    zn = parseInt(z);

  if( zn <= 0 ) {
    if (v[0] != 0) q = x/v[0];
  } else 
    x = x % zn;
*/
  if (v[0] != 0) q = x/v[0];
  
  
  document.frm.otxt.value = x + " "+ s;
  document.frm.q.value = q;
  
}
  
function efface() {
  document.frm.itxt.value = "";
  document.frm.otxt.value = "";
  document.frm.q.value = "";
  document.frm.t.value = "";
}

function nof() {
 ;
 }

function exo(s1, s2, s3) {
document.frm.itxt.value=s1;
document.frm.otxt.value=s2;
document.frm.t.value=s3;
document.frm.q.value = "";
}