Aller au contenu

Mathc matrices/c082b

Un livre de Wikilivres.


Application


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


minorm_r.c
/* ------------------------------------ */
/*  Save as :   minorm_r.c              */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A     = r_mR(i_mR(r,r),99);
double **Minor =      i_mR(r-C1,r-C1);

int minor_r = rp_I(r);
int minor_c = rp_I(r);

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

  printf(" Minor(R%d,C%d) :\n",minor_r, minor_c);
  p_mR(minor_mR(A,Minor,minor_r,minor_c),S4,P0,C6);

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

  srand(time(&t));

do
{
  fun(rp_I(RC5)+RC1);

} while(stop_w());

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


On construit une des matrices pour calculer les mineurs.



Exemple de sortie écran :
 Copy/Past into the octave window.

 A :
 -25  +16  +12  -61 
 -23  +10  -87  -95 
  +4  +84  -87  -65 
 -63  -59  -67  +82 

 Minor(R1,C1) :

 +10  -87  -95 
 +84  -87  -65 
 -59  -67  +82 


 Press return to continue
 Press X      to stop