Mathc matrices/Fichiers c :canImul

Étude du code

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

	canImul.c

/* ------------------------------------ */
/*  Save as :   canImul.c               */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */   
void xcanImul_mR(
double **A,
double **B,
double **AB,
char function[],
char matrices[]
)
{
  if (         ( A[C_SIZE][C0] != B[R_SIZE][C0] )
                               ||
               ( A[R_SIZE][C0] != AB[R_SIZE][C0] )
                               ||
               ( B[C_SIZE][C0] != AB[C_SIZE][C0] ) )
    {
     printf("\n Error : %s\n",function);
     printf("\n Verify the size of the matrices. %s \n",matrices);
     stop();
     exit(EXIT_FAILURE);
    }
}
/* ------------------------------------ */
int main(void)
{  
double **A     = i_mR(R2,R4);
double **B     = i_mR(R4,R3);
double **AB    = i_mR(R3,R3);

  clrscrn();
  
  printf(" A[R%d,C%d] : \n",rsize_R(A),csize_R(A));
  p_mR(A,S4,P0,C6);

  printf(" B[R%d,C%d] : \n",rsize_R(B),csize_R(B));
  p_mR(B,S4,P0,C6);

  printf(" AB[R%d,C%d] : \n",rsize_R(AB),csize_R(AB));
  p_mR(AB,S4,P0,C6);
   
  xcanImul_mR(A,B,AB,"mul_mR();","(A or B or AB)");
  
  f_mR(A);
  f_mR(B);
  f_mR(AB);
        
  return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */

La fonction canImul_mR(); existant déjà dans la bibliothèque je l'ai ici renommé canImul_mR();

Exemple de sortie écran :

 A[R2,C4] : 

  +0   +0   +0   +0 
  +0   +0   +0   +0 

 B[R4,C3] : 

  +0   +0   +0 
  +0   +0   +0 
  +0   +0   +0 
  +0   +0   +0 

 AB[R3,C3] : 

  +0   +0   +0 
  +0   +0   +0 
  +0   +0   +0 


 Error : mul_mR();

 Verify the size of the matrices. (A or B or AB) 

 Press return to continue.

Les matrices n'étant pas de taille compatible, la fonction d'erreur arrête le programme.

Vous pouvez essayer un autre exemple en changeant les valeurs ci-dessous :

double **A     = i_mR(R2,R4);
double **B     = i_mR(R4,R3);
double **AB    = i_mR(R2,R3);

 A[R2,C4] : 

  +0   +0   +0   +0 
  +0   +0   +0   +0 

 B[R4,C3] : 

  +0   +0   +0 
  +0   +0   +0 
  +0   +0   +0 
  +0   +0   +0 

 AB[R2,C3] : 

  +0   +0   +0 
  +0   +0   +0 



------------------
(program exited with code: 0)
Press return to continue

Cette fois-ci la fonction d'erreur n'arrête plus le programme.