Mathc matrices/a10

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 e05.c
'
/* ------------------------------------ */
/*  Save as :   e05.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+C2);
double **b_free  = i_mR(rsize_R(Ab_free),csize_b_R(Ab_free)); 

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

  clrscrn();  
  put_var_mR(Ab,Ab_free);  
  printf(" Ab_free : ");  
  p_mR(Ab_free,S3,P0,C11);  
  stop();

  clrscrn();  
  put_freeV_mR(Ab_free);
  printf(" Ab_free : put_freeV_mR(Ab_free);");  
  p_mR(Ab_free,S3,P0,C11);  
  stop();
  
  clrscrn();
  c_Ab_b_mR(Ab_free,b_free);
  printf(" b_free :"); 
  p_mR(b_free,S3,P0,C7);
  printf(" b_free : free variables");
  p_freeV(b_free,S3,P0);
  stop();
  
  f_mR(Ab);
  f_mR(Ab_free);
  f_mR(b);
  f_mR(b_free);
  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  +1  +1  +1  +1  +1  +0  +0  +0 
 +0  +2  +2  +2  +2  +2  +0  +0  +0 
 +0  +0  +3  +3  +3  +3  +0  +0  +0 
 +0  +0  +0  +4  +4  +4  +0  +0  +0 
 +0  +0  +0  +0  +0  +0  +0  +0  +0 
 +0  +0  +0  +0  +0  +0  +0  +0  +0 

 Press return to continue. 
  

 Ab_free : put_freeV_mR(Ab_free);
 +1  +1  +1  +1  +1  +1  +0  +0  +0 
 +0  +2  +2  +2  +2  +2  +0  +0  +0 
 +0  +0  +3  +3  +3  +3  +0  +0  +0 
 +0  +0  +0  +4  +4  +4  +0  +0  +0 
 +0  +0  +0  +0  +1  +0  +0  +1  +0 
 +0  +0  +0  +0  +0  +1  +0  +0  +1 

 Press return to continue. 
 

 b_free :
 +0  +0  +0 
 +0  +0  +0 
 +0  +0  +0 
 +0  +0  +0 
 +0  +1  +0 
 +0  +0  +1 

 b_free : free variables
 x1 =   +0  +0*s  +0*t
 x2 =   +0  +0*s  +0*t
 x3 =   +0  +0*s  +0*t
 x4 =   +0  +0*s  +0*t
 x5 =   +0  +1*s  +0*t
 x6 =   +0  +0*s  +1*t
 Press return to continue.