Mathc complexes/Fichiers c :canImul
Apparence
Installer et compiler ce fichier dans votre répertoire de travail.
canImul.c |
---|
/* ------------------------------------ */
/* Save as : canImul.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
void xcanImul_mZ(
double **A,
double **B,
double **AB,
char function[],
char matrices[]
)
{
if ( (((B[R_SIZE][C0]-C1)*C2) != (A[C_SIZE][C0]-C1))
||
( 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);
printf("\n Press return to continue.\n");
fflush(stdout);
getchar();
exit(EXIT_FAILURE);
}
}
/* ------------------------------------ */
int main(void)
{
double **A = i_mZ(R2,R4);
double **B = i_mZ(R4,R3);
double **AB = i_mZ(R4,R3);
clrscrn();
printf(" A[R%d,C%d] : \n",rsize_Z(A),csize_Z(A));
p_mZ(A, 5,0, 4,0, C6);
printf(" B[R%d,C%d] : \n",rsize_Z(B),csize_Z(B));
p_mZ(B, 5,0, 4,0, C6);
printf(" AB[R%d,C%d] : \n",rsize_Z(AB),csize_Z(AB));
p_mZ(AB, 5,0, 4,0, C6);
xcanImul_mZ(A,B,AB,"mul_mZ();","(A or B or AB)");
f_mZ(A);
f_mZ(B);
f_mZ(AB);
return 0;
}
La fonction canImul_mZ(); existant déjà dans la bibliothèque je l'ai ici renommé xcanImul_mZ();
Exemple de sortie écran :
A[R2,C4] :
+0 +0i +0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i +0 +0i
B[R4,C3] :
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
AB[R4,C3] :
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
Error : mul_mZ();
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_mZ(R2,R4);
double **B = i_mZ(R4,R3);
double **AB = i_mZ(R2,R3);
A[R2,C4] :
+0 +0i +0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i +0 +0i
B[R4,C3] :
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
AB[R2,C3] :
+0 +0i +0 +0i +0 +0i
+0 +0i +0 +0i +0 +0i
------------------
(program exited with code: 0)
Press return to continue
Cette fois-ci la fonction d'erreur n'arrête plus le programme.