Mathc matrices/Fichiers c : trace

Installer et compiler ce fichier dans votre répertoire de travail.

	`trace.c`

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

   clrscrn();

   printf("  A\n");
   p_mR(A,S3,P0,C6);

   printf("\n\n\n Trace of the matrix A = %10.1f\n\n\n", trace_R(A));

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

  srand(time(&t));
  
   do 
         fun(rp_I(RC5));
        
    while(stop_w());

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

La fonction trace se contente d'additionner tous les coefficients sur la diagonale.

Exemple de sortie écran :

  A

 -7  +6  +6  +2  +2 
 +4  -3  +8  -1  -3 
 +8  -3  -7  -7  +6 
 +2  +2  +4  -3  +8 
 -3  -9  +8  +4  -3 




 Trace of the matrix A =      -23.0



 Press return to continue
 Press X      to stop