Aller au contenu

Mathc matrices/a224

Un livre de Wikilivres.


Application


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 s =  r_I(9);

double **A  =    r_mR(    i_mR(r,r),9.);
double **sA = smul_mR(s,A,i_mR(r,r)    );

  clrscrn();
  printf(" A[r][r] : r = rows \n\n\n"
         "               ( s**r)\n"
         "    A  :       (%+.0f**%d)*det_R(A)  = %+.0f", s,r, pow(s,r)*det_R(A));
  p_mR(A,  S4, P0, C5);
  printf("   sA  :               detR(sA) = %+.0f",          det_R(sA));
  p_mR(sA, S4, P0, C5);

  f_mR(sA);
  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[r][r] : r = rows 


               ( s**r)
    A  :       (-2**5)*det_R(A)  = -1585856
  +4   -9   +6   -7   +1 
  -2   +9   +6   +6   +6 
  +8   +1   +3   +2   -3 
  -6   -8   -8   +3   +4 
  +2   +1   -1   +6   -5 

   sA  :               detR(sA) = -1585856
  -8  +18  -12  +14   -2 
  +4  -18  -12  -12  -12 
 -16   -2   -6   -4   +6 
 +12  +16  +16   -6   -8 
  -4   -2   +2  -12  +10 


 Press   return to continue
 Press X return to stop