Mathc matrices/02j

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

	`c00a.c`

/* ------------------------------------ */
/*  Save as :  c00a.c                   */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A  = rcentrosymmetric_mR(     i_mR(r,r),9.);
double **B  = rcentrosymmetric_mR(     i_mR(r,r),9.);
double **AB =              mul_mR(A,B, i_mR(r,r));

  clrscrn();
  printf(" A :");
  p_mR(A, S5,P0,C7);   
  printf(" B :");
  p_mR(B, S5,P0,C7);   
  
  printf(" AB :");
  p_mR(AB, S5,P0,C7);      
  f_mR(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
 fun( rp_I(RC3)*RC2 + RC1);

} while(stop_w());

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

Le produit de la matrice AB est centrosymétrique

Exemple de sortie écran :

 A :
   -2    +6    -7    +6    -9 
   -7    -4    -8    +9    -6 
   -5    +6    -4    +6    -5 
   -6    +9    -8    -4    -7 
   -9    +6    -7    +6    -2 

 B :
   +7    -6    +1    -1    +7 
   +1    -9    -3    +6    +9 
   +6    -5    -7    -5    +6 
   +9    +6    -3    -9    +1 
   +7    -1    +1    -6    +7 

 AB :
  -59   +38    +2   +73   -59 
  -62  +178   +28   -22  -166 
  -34   +37   -18   +37   -34 
 -166   -22   +28  +178   -62 
  -59   +73    +2   +38   -59 


 Press   return to continue
 Press X return to stop