Mathc matrices/e01

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

	`c00a.c`

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int rc)
{
int n = rp_I(R4)+R1;

double **A  = rsymmetric_mR(i_mR(rc,rc),9);
double **An =        pow_mR(n,A,i_mR(rc,rc));

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

  printf(" A**%d : ",n);
  p_mR(An,S9,P0,C6);

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

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

Pour tout n, A**n est symétrique si A est symétrique.

Exemple de sortie écran :

 A : 
  +4   -1   +6   +3 
  -1   +1   -1   -4 
  +6   -1   +7   +6 
  +3   -4   +6   +1 

 A**5 : 
  +226187    -93659   +315280   +203326 
   -93659    +38362   -130124    -84896 
  +315280   -130124   +439064   +284023 
  +203326    -84896   +284023   +181955 


 Press   return to continue
 Press X return to stop