<!DOCTYPE html>
<html>
<head>
  <title>Matrice (à coefficients réels) de taille quelconque</title>
  <meta name='Author' content='William VOIROL, Switzerland, Sep 2011'/>
  <script type='text/javascript' src='MatWV.js'></script>
  <script type="text/javascript">
  //<![CDATA[    
    function Ini() {
      var I,A,B,C,D,N,M,MI,i,ms,d,e,sep=',',eol='<br/>';
      
      var s='Test de "MatWV.js"<br/>par William Voirol, Switzerland, Sep 2011<br/>';
      I=MatWV.Uni(4);       s+=eol+'I4 = '+I.Str(sep,eol);
                            s+='I4.Det() = '+I.Det()+eol;
      A=MatWV.Rnd(3,5,9,0); s+=eol+'A = '+A.Str(sep,eol);
                            s+=eol+'<sup>t</sup>A = '+A.Transp().Str(sep,eol);
      B=MatWV.Rnd(4,3,9,0); s+=eol+'B = '+B.Str(sep,eol);
                            s+=eol+'A * B ='+A.Prod(B).Str(sep,eol);
      for (i=1;i<8;i++) {
        C=MatWV.Rnd(i,i,9,0); s+=eol+'N = '+i+': C = '+C.Str(sep,eol);
        d=C.Det();          s+='C.Det() = '+d;
        d=C.Invert();       s+=' ; C<sup>-1</sup>.Det() = '+(e=C.Det())+', '+d;
                            s+=eol+'C.Det()*C<sup>-1</sup>.Det() = '+d*e+eol;
      }
      N=200;
      M=MatWV.Rnd(N,N,1.3,3); MI=M.Copy();
      ms=(new Date()).getTime(); d=M.Det();
      s+=eol+'M['+N+'*'+N+']: M.Det() = '+d+' ; temps = '+((new Date()).getTime()-ms)+' ms';
      ms=(new Date()).getTime();
      if (MI.Invert()==0) {alert('matrice non inversible'); return;}
      s+=eol+'Inversion de la matrice M ['+N+'*'+N+']: temps = '+((new Date()).getTime()-ms)+' ms';
      
      I=M.Prod(MI); s+=eol+'Test de précision de I = M * M<sup>-1</sup>:';
      s+='<br/> Ecart max de I (par rapport à la matrice unité) = '+I.EcartI()+eol+eol;
      e=MI.Det();
      s+='M<sup>-1</sup>.Det() = '+e+' ; M.Det()*M<sup>-1</sup>.Det() = '+d*e+eol;
      document.getElementById('res').innerHTML=s+'<br/>';
    }
  //]]>
  </script>
</head>
<body style='background-color:#BBBBBB;' onload='Ini()'>
  <div id='res' style='font-family:Courier'></div>
  <div>
    <br/>Wikipédia:<br/>
    <a href='http://fr.wikipedia.org/wiki/Matrice_(math%C3%A9matiques)'>Matrice</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/Matrice_unit%C3%A9'>Matrice unité</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/Matrice_transpos%C3%A9e'>Matrice transposée</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/Addition_matricielle'>Addition matricielle</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/Produit_matriciel'>Produit matriciel</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/D%C3%A9terminant_(math%C3%A9matiques)'>Déterminant</a>&nbsp;
    <a href='http://fr.wikipedia.org/wiki/Matrice_inversible'>Matrice inversée</a><br/><br/>
    <a href='http://www.william-voirol.ch/Prog/Transformations/Matrices.zip'>Zip du code</a>
  </div>
</body>
</html>