Mathc matrices/c21k

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 ),999);
double **b  = r_mR(i_mR(r,C1),999);
double **Ab = i_Abr_Ac_bc_mR(r,    r,   C1);
/*            i_Abr_Ac_bc_mR(R_Ab, C_A, C_b));  */


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

  printf(" Ab :  c_A_b_Ab_mR(A,b, Ab)");
  p_mR(c_A_b_Ab_mR(A,b, Ab),S5,P0,C12);

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

  srand(time(&t));
do
{
  fun(rp_I(RC3)+R1); /* +R1 -> row >= R2 */


} while(stop_w());

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

Copier A et b dans Ab :

//La matrice Ab doit être initialiser avec la fonction :

double **Ab = i_Abr_Ac_bc_mR( RAb, CA, Cb); 

// Cette fonction installe la bonne taille pour les matrices Ab, A, b.

Exemple de sortie écran :

 A :
 +244   -69  -300 
 +784  -568  -994 
 -668  +518  +780 

 b :
 +836 
 -126 
 -650 

 Ab :  c_A_b_Ab_mR(A,b, Ab)
 +244   -69  -300  +836 
 +784  -568  -994  -126 
 -668  +518  +780  -650 


 Press return to continue
 Press X      to stop