Mathc matrices/02j
Installer et compiler ces fichiers dans votre répertoire de travail.
|
c00a.c |
|---|
/* ------------------------------------ */
/* Save as : c00a.c */
/* ------------------------------------ */
#include "v_a.h"
/* ------------------------------------ */
void fun(int r)
{
double **A = rcentrosymmetric_mR( i_mR(r,r),9.);
double **B = rcentrosymmetric_mR( i_mR(r,r),9.);
double **AB = mul_mR(A,B, i_mR(r,r));
clrscrn();
printf(" A :");
p_mR(A, S5,P0,C7);
printf(" B :");
p_mR(B, S5,P0,C7);
printf(" AB :");
p_mR(AB, S5,P0,C7);
f_mR(A);
}
/* ------------------------------------ */
int main(void)
{
time_t t;
srand(time(&t));
do
{
fun( rp_I(RC3)*RC2 + RC1);
} while(stop_w());
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Le produit de la matrice AB est centrosymétrique
Exemple de sortie écran :
A :
-2 +6 -7 +6 -9
-7 -4 -8 +9 -6
-5 +6 -4 +6 -5
-6 +9 -8 -4 -7
-9 +6 -7 +6 -2
B :
+7 -6 +1 -1 +7
+1 -9 -3 +6 +9
+6 -5 -7 -5 +6
+9 +6 -3 -9 +1
+7 -1 +1 -6 +7
AB :
-59 +38 +2 +73 -59
-62 +178 +28 -22 -166
-34 +37 -18 +37 -34
-166 -22 +28 +178 -62
-59 +73 +2 +38 -59
Press return to continue
Press X return to stop