Mathc matrices/Fichiers c : mul dia4

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

	`c00d.c`

/* ------------------------------------ */
/* ------------------------------------ */
/*  Save as :   c00d.c                  */
/* ------------------------------------ */
#include      "v_a.h"
/* ------------------------------------ */
void fun(void)
{
double  a[R3*C3]={ 1,1,-8,
                   0,9, 9,
                   0,0, 1};	
double id[R3*C3]={ 1,0, 8,
                   0,1,-9,
                   0,0, 1};                
              
double **A  = ca_A_mR(a, i_mR(R3,C3));
double **ID = ca_A_mR(id,i_mR(R3,C3));

double **IDA = mul_mR(ID,A,i_mR(R3,C3));

  clrscrn();
  printf(" Zero above the pivot \n\n");
  printf(" ID :");
  p_mR(ID,S3,P0,C6);
  printf(" A :");
  p_mR(A,S3,P0,C6);
  printf(" ID A : Add a constant c times one row to another.");
  p_mR(IDA,S3,P1,C6);
   
  f_mR(A);
  f_mR(ID);
  f_mR(IDA);
}
/* ------------------------------------ */
int main(void)
{

  fun();
  
  stop();

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

  Mettre des zéros au dessus du pivot  :

Exemple de sortie écran :

 Zero above the pivot 

 ID :
 +1  +0  +8 
 +0  +1  -9 
 +0  +0  +1 

 A :
 +1  +1  -8 
 +0  +9  +9 
 +0  +0  +1 

 ID A : Add a constant c times one row to another.
+1.0 +1.0 +0.0 
+0.0 +9.0 +0.0 
+0.0 +0.0 +1.0 

 Press return to continue.