Mathc matrices/a223

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   =    r_mR(  i_mR(r,r),99.);
double **InvA = inv_mR(A,i_mR(r,r)    );

  clrscrn();
  printf("     A  :                det_R(A)    = %+.0f",   det_R(A)   );
  p_mR(A, S4, P0, C5);
  printf("   InvA :              1/det_R(InvA) = %+.0f",1./det_R(InvA));
  pE_mR(InvA, S12, P4, C5);

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

  srand(time(&t));
do
{
  fun(rp_I(RC3)+C2);

} while(stop_w());


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

Exemple de sortie écran :

 
     A  :                det_R(A)    = +21427
 +31   -4  -31 
 -17   +2  -50 
 -35  +15  +93 

   InvA :              1/det_R(InvA) = +21427

 +4.3683e-02  -4.3403e-03  +1.2228e-02 
 +1.5546e-01  +8.3913e-02  +9.6934e-02 
 -8.6340e-03  -1.5168e-02  -2.8002e-04 


 Press   return to continue
 Press X return to stop