Mathc matrices/c101j

Sommaire

	d05.c '

/* ------------------------------------ */
/*  Save as :   d05.c                 */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
int main(void)
{
double ab[R4*C7]={
    +1,    1,     1,     1,    1,    1,  0,
    0,     2,     2,     2,    2,    2,  0,  
    0,     0,     3,     3,    3,    3,  0, 
    0,     0,     0,     4,    4,    4,  0,  
};

double **Ab = ca_A_mR(ab,i_Abr_Ac_bc_mR(R4,C6,C1));
double **A  = c_Ab_A_mR(Ab,i_mR(R4,C6));
double **b  = c_Ab_b_mR(Ab,i_mR(R4,C1));

double **Ab_free = i_Abr_Ac_bc_mR(csize_A_R(Ab),csize_A_R(Ab),C1);

  clrscrn();
  printf(" A :");
  p_mR(A,S8,P0,C7);
  printf(" b :");
  p_mR(b,S8,P0,C7);
  printf(" Ab :");
  p_mR(Ab,S8,P0,C7);
  stop();

  clrscrn();  
  put_var_mR(Ab,Ab_free);  
  printf(" Ab_free : ");  
  p_mR(Ab_free,S8,P3,C8);  
  stop();

  f_mR(Ab);
  f_mR(b);
  f_mR(A);
  
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

Exemple de sortie écran :

 ------------------------------------
 A :
      +1       +1       +1       +1       +1       +1 
      +0       +2       +2       +2       +2       +2 
      +0       +0       +3       +3       +3       +3 
      +0       +0       +0       +4       +4       +4 

 b :
      +0 
      +0 
      +0 
      +0 

 Ab :
      +1       +1       +1       +1       +1       +1       +0 
      +0       +2       +2       +2       +2       +2       +0 
      +0       +0       +3       +3       +3       +3       +0 
      +0       +0       +0       +4       +4       +4       +0 

 Press return to continue. 



 Ab_free : 
  +1.000   +1.000   +1.000   +1.000   +1.000   +1.000   +0.000 
  +0.000   +2.000   +2.000   +2.000   +2.000   +2.000   +0.000 
  +0.000   +0.000   +3.000   +3.000   +3.000   +3.000   +0.000 
  +0.000   +0.000   +0.000   +4.000   +4.000   +4.000   +0.000 
  +0.000   +0.000   +0.000   +0.000   +0.000   +0.000   +0.000 
  +0.000   +0.000   +0.000   +0.000   +0.000   +0.000   +0.000 

 Press return to continue.