Mathc matrices/03p

Application

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

	c00b.c

/* ------------------------------------ */
/*  Save as:   c00b.c                   */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int rc)
{
double **A      =         r_mR(      i_mR(rc,rc),99);
double **At     = transpose_mR(A,    i_mR(rc,rc));
double **AplsAt =       add_mR(A,At, i_mR(rc,rc));

  clrscrn();

  printf(" A[R%d,C%d]: \n",rsize_R(A),csize_R(A));
  p_mR(A, S4,P0, C4);

  printf(" At[R%d,C%d]: Transpose\n",
           rsize_R(At),csize_R(At));
  p_mR(At, S4,P0, C4);

  printf(" (A + At)[R%d,C%d]: \n",rsize_R(AplsAt),csize_R(AplsAt));
  p_mR(AplsAt, S7,P0, C4);
  
  f_mR(A);
  f_mR(At);
  f_mR(AplsAt);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));
  
   do 
         fun(RC4);
        
    while(stop_w());
        
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Additionner une matrice carrée A à sa transposée donne une matrice symétrique

Exemple de sortie écran :

 A[R4,C4]: 

 -17  -33  -53  +25 
 +64  +24  -22   -8 
 -68  -82  -84   -8 
 -91  -43  -44  -19 

 At[R4,C4]: Transpose

 -17  +64  -68  -91 
 -33  +24  -82  -43 
 -53  -22  -84  -44 
 +25   -8   -8  -19 

 (A + At)[R4,C4]: 

    -34     +31    -121     -66 
    +31     +48    -104     -51 
   -121    -104    -168     -52 
    -66     -51     -52     -38 


 Press   return to continue
 Press X return to stop