Mathc matrices/a189

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"
/* ------------------------------------ */
#define    RA            R3
#define    CA            C3
/* ------------------------------------ */
int main(void)
{
double a[RA*CA] ={ 4,2,3,
                   5,3,1,
                   8,2,2};
                   
double **A   = ca_A_mR(a,i_mR(RA,CA));

int minor_r = R1;
int minor_c = C2;

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

  printf("    minor(R%d,C%d) = %+.3f\n"
         " cofactor(R%d,C%d) = %+.3f\n\n\n",
               minor_r,
               minor_c,
               minor_R(A, minor_r, minor_c),
               minor_r,
               minor_c,
               cofactor_R(A, minor_r, minor_c));
               
  printf(" cofactor(R%d,C%d) = minor(R%d,C%d)*(-1**(R%d+C%d))\n"
         "                 = minor(R%d,C%d)*(%0.0f)\n\n\n",
               minor_r,
               minor_c,         
               minor_r,
               minor_c,
               minor_r,
               minor_c,
               minor_r,
               minor_c,
               pow(-1,(minor_r+minor_c)));
  stop();

  f_mR(A);

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


 '''Exemple de sortie écran :'''
 A :
   +4    +2    +3 
   +5    +3    +1 
   +8    +2    +2 

    minor(R1,C2) = +2.000
 cofactor(R1,C2) = -2.000


 cofactor(R1,C2) = minor(R1,C2)*(-1**(R1+C2))
                 = minor(R1,C2)*(-1)


 Press return to continue.