Aller au contenu

Mathc matrices/c082e

Un livre de Wikilivres.


Application


Installer et compiler ces fichiers dans votre répertoire de travail.


adjoin_r.c
/* ------------------------------------ */
/*  Save as :   adjoin_r.c              */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A        = r_mR(i_mR(r,r),9.);
double **Adjoint  = i_mR(r,r);
double **Cofactor = i_mR(r,r);

  clrscrn();
  printf(" A :");
  p_mR(A,S3,P0,C6);

  printf(" Cofactor :\n");
  p_mR(cofactor_mR(A,Cofactor),S6,P0,C6);
  
  printf(" Adjoint : Cofactor**T");
  p_mR(adjoint_mR(A,Adjoint),S6,P0,C6);

  f_mR(A);
  f_mR(Cofactor);
  f_mR(Adjoint);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
do
{
  fun(rp_I(RC4)+C1);

} while(stop_w());

  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */


On construit l'adjoint qui est la transposé de la matrice des cofacteurs.



Exemple de sortie écran :
 A :
 -4  -5  +8  +6 
 -8  +1  +6  +8 
 +3  +4  -3  +7 
 +3  +4  +6  -4 

 Cofactor :

  +522   -654   +385   +315 
  -718   +546    -11     -9 
  +540   +172    -26   +538 
  +292   +412   +510   -142 

 Adjoint : Cofactor**T
  +522   -718   +540   +292 
  -654   +546   +172   +412 
  +385    -11    -26   +510 
  +315     -9   +538   -142 


 Press return to continue
 Press X      to stop