Mathc matrices/c082e

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);

  clrscrn();
  printf(" A :");
  p_mR(A,3,0,6);

  printf(" Adjoint :");
  p_mR(adjoint_mR(A,Adjoint),6,0,6);

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

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

} while(stop_w());

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

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



Exemple de sortie écran :

 A :
 -5  +2  +6  +8 
 -3  -1  +2  +6 
 +4  +4  +4  +4 
 -1  -7  -5  -3 

 Adjoint :
    +8    +16    -70    -40 
  +104   -120    +74   +136 
  -200   +256    -95   -148 
   +88   -152     +9    +52 


 Press return to continue
 Press X      to stop