Mathc matrices/a97

Installer et compiler ce fichier dans votre répertoire de travail.

	`c00a.c`

/* ------------------------------------ */
/*  Save as :   c00a.c                  */
/* ------------------------------------ */
#include "v_a.h" 
/* ------------------------------------ */
/* ------------------------------------ */
#define  TAB  C2
#define   RA  R5
#define   CA  C1
#define   CB  C2
/* ------------------------------------ */
/* ------------------------------------ */
void fun(void)
{
double **A[TAB];
double **B = i_mR(RA,CB);
int    c;
double s = 2;

  for(c=C0; c<TAB; c++)
 
      A[c] = r_mR(i_mR(RA,CA),99);           
  
  clrscrn();
  
    smul_mR(s,A[0],A[1]);
  
    for(c=C0; c<TAB; c++)
  
	  c_c_mR(A[c],C1,B,c+C1);
	  
  printf(" A solution :\n\n");  
  
  printf("   %.0f*A[0]  =  A[1] ",s);	     
  p_mR(B,S8,P0,C10);

  for(c=C0; c<TAB; c++)
  
       f_mR(A[c]); 
       
  f_mR(B);
}
/* ------------------------------------ */
int main(void)
{
time_t t;

  srand(time(&t));

do
{
  fun();

} while(stop_w());

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

L'affichage des vecteurs d'une colonne prend trop de place. J'ai donc tenté de les installer dans une matrice avant de les afficher.

Exemple de sortie écran :

 ------------------------
 A solution :

   2*A[0]  =  A[1] 
      +9      +18 
     -72     -144 
     -99     -198 
     -58     -116 
     -82     -164 


 Press   return to continue
 Press X return to stop