Mathc matrices/c102c

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


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


Crystal Clear mimetype source c.png d03.c
'
/* ------------------------------------ */
/*  Save as :   d03.c                 */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
int main(void)
{
double ab[R4*C7]={
    +1,    1,     1,     1,    1,    1,  0,
    0,     0,     0,     2,    2,    2,  0,  
    0,     0,     0,     0,    0,    0,  0, 
    0,     0,     0,     0,    0,    0,  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       +0       +0       +2       +2       +2 
      +0       +0       +0       +0       +0       +0 
      +0       +0       +0       +0       +0       +0 

 b :
      +0 
      +0 
      +0 
      +0 

 Ab :
      +1       +1       +1       +1       +1       +1       +0 
      +0       +0       +0       +2       +2       +2       +0 
      +0       +0       +0       +0       +0       +0       +0 
      +0       +0       +0       +0       +0       +0       +0 

 Press return to continue. 


 Ab_free : 
  +1.000   +1.000   +1.000   +1.000   +1.000   +1.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 
  +0.000   +0.000   +0.000   +2.000   +2.000   +2.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.