<!DOCTYPE html>
<html>
<head>
  <title>Résolution d'un système d'équations de taille quelconque</title>
  <meta name='Author' content='William VOIROL, Switzerland, Sep 2011'/>
  <style type='text/css'>
    .inp {text-align:center; width:72px;}
    .res {text-align:center; width:72px; background-color:#7F7}
  </style>
  <script type='text/javascript' src='MatWV.js'></script>
  <script type='text/javascript' src='MatWV-Cb.js'></script>
  <script type="text/javascript">
  //<![CDATA[
    var N=3;
    function M2I(m) { // Copie la matrice m dans le tableau input M
      for (var l=0,k=0;l<m.nL;l++)
        for (var c=0;c<m.nC;c++) document.getElementById('M'+l+'_'+c).value=m.M[k++];
    }
    function I2M() { // Crée une matrice correspondant au tableau input M
      var m=new MatWV(N,N);
      for (var l=0,k=0;l<N;l++)
        for (var c=0;c<N;c++) m.M[k++]=document.getElementById('M'+l+'_'+c).value;
      return m;
    }
    function V2I(m,v) { // Copie la matrice m dans le tableau input v = 'V' ou 'X'
      for (var l=0;l<m.nL;l++) document.getElementById(v+l).value=Math.round(m.M[l]*1E13)/1E13;
    } // enlevez l'arrondi pour des résultats plus précis: Math.round(x*1E13)/1E13
    function I2V(v) { // Crée une matrice correspondant au tableau input v = V ou X
      var m=new MatWV(1,N);
      for (var l=0;l<N;l++) m.M[l]=document.getElementById(v+l).value;
      return m;Rnd
    }
    function GetM() { // Copie le presse-papier dans le tableau input M
      var m=new MatWV(N,N);
      m.GetCb(); M2I(m);
    }
    function GetV(v) { // Copie le presse-papier dans le tableau input v = 'V' ou 'X'
      var m=new MatWV(1,N);
      m.GetCb(); V2I(m,v);
    }
    function Clr() { // Annule (clear) les valeurs calculées
      for (var c=0;c<N;c++) document.getElementById('X'+c).value='';
      document.getElementById('Z').innerHTML='&nbsp';
    }
    function Cal() { // V=M×X   calcule X
      var v=I2V('V'),m=I2M(),x,ms=(new Date()).getTime();
      if (!m.Invert()) {alert('matrice non inversible'); return;}
      document.getElementById('Z').innerHTML='temps: '+((new Date()).getTime()-ms)+' ms';
      x=m.Prod(v); V2I(x,'X');
    }
    function Com() { // Commutation:  V=M×X ==> X=Inv(M)×V
      var v=I2V('V'),m=I2M(),x=I2V('X');
      if (m.Invert()) {V2I(x,'V'); M2I(m); V2I(v,'X');} else alert('matrice non inversible');
    }
    function Chn(f) { // Change la dimension N
      var n=parseInt(f.value);
      if ((n>=1)&&(n<=100)) {N=n; Dim()} else alert('introduisez un nombre entre 1 et 100');
      f.value=N;
    }
    function Dim() { // Construit les tableaux du système d'équations selon la dimension N
      var c,l,k=Math.floor((N-1)/2),s="<table>";
      dT=document.getElementById('T').innerHTML=
        "<h3>Système linéaire de "+N+" équations à "+N+" inconnues:</h3>";
      s+="<tr><td class='inp'>V</td><td> </td>";
      for (c=0;c<N;c++) s+=((c==k)?"<td class='inp'>M":"<td>")+"</td>";
      s+="<td></td><td class='inp'>X</td></tr>";
      for (l=0;l<N;l++) {
        s+="<tr><td><input class='inp' type='text' id='V"+l+"' onchange='Clr()'/></td>";
        s+="<td>"+((l==k)?"=":"")+"</td>";
        for (c=0;c<N;c++)
          s+="<td><input class='inp' type='text' id='M"+l+'_'+c+"' onchange='Clr()'/></td>";
        s+="<td>"+((l==k)?"×":"")+"</td>";
        s+="<td><input class='res' type='text' id='X"+l+"' readonly='readonly'/></td></tr>";
      }
      document.getElementById('S').innerHTML=s+"</table>";
      M2I(MatWV.Uni(N));
      for (var l=0;l<N;l++) document.getElementById('V'+l).value=l+1;
    }
  //]]>
  </script>
</head>
<body style='background-color:#BBBBBB' onload='Dim(3)'>
  <div id='T'></div>
  <div>
    Nombre d'inconnues: N =
    <input type='text' style='width:24px; text-align:center' onchange='Chn(this)' value='3'/>
    &nbsp; &nbsp; &nbsp; <input type ='button' value='Calcul' onclick='Cal()'/>
    &nbsp; &nbsp; &nbsp; <input type ='button' value='Commutation' onclick='Com()'/>
    <br/><div id='Z' style='width:300px; text-align:right; color:blue'>&nbsp</div>
    Presse-papier:<br/>
    <input type ='image' title='Copie les valeurs du presse-papier dans V'
      src='cbO.jpg' onclick='GetV("V")'/> V
    <input type ='image' title='Ecrit les valeurs de V dans le presse-papier' src='cbI.jpg'
      onclick='I2V("V").SetCb()'/> &nbsp; &nbsp; &nbsp; &nbsp;
    <input type ='image' title='Copie les valeurs du presse-papier dans M'
      src='cbO.jpg' onclick='GetM()'/> M
    <input type ='image' title='Ecrit les valeurs de M dans le presse-papier' src='cbI.jpg'
      onclick='I2M().SetCb()'/> &nbsp; &nbsp; &nbsp; &nbsp; X
    <input type ='image' title='Ecrit les valeurs de X dans le presse-papier' src='cbI.jpg'
      onclick='I2V("X").SetCb()'/> &nbsp; &nbsp; &nbsp; &nbsp;  &nbsp; &nbsp;
    <input type ='button' style='position:relative; bottom:10px'
      value='Random' onclick='M2I(MatWV.Rnd(N,N,4,0))'/>
  </div>
  <div id='S'></div>
  <h6>Par William Voirol, Switzerland, Sep 2011</h6>
  <!--La suite du code n'est pas indispensable-->
  <div>
    Wikipédia: <a href='http://fr.wikipedia.org/wiki/%C3%89quation_lin%C3%A9aire'>
      Equations linéaires</a><br/><br/>
    <a href='http://www.william-voirol.ch/Prog/Transformations/Equations.zip'>Zip du code</a>
  </div>
</body>
</html>