Mathc complexes/a136
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00b.c */
void AplsB(int r)
double **A = i_mZ(r,r);
double **B = i_mZ(r,r);
double **C = i_mZ(r,r);
double **T = i_mZ(r,r);
double **AB = i_mZ(r,r);
double **BA = i_mZ(r,r);
 r_commute3_mZ(A,B,C,9);
 clrscrn();
 printf(" A : ");
 p_mZ(A,S5,P3,S5,P3,C6); 
 printf(" B : ");
 p_mZ(B,S5,P3,S5,P3,C6);
 printf(" C : ");
 p_mZ(C,S5,P3,S5,P3,C6); 
 stop();
 clrscrn();
 printf(" AB : ");
 p_mZ(mul_mZ(A,B,AB),S5,P9,S5,P9,C6);
 printf(" BA : ");
 p_mZ(mul_mZ(B,A,BA),S5,P9,S5,P9,C6);
 stop();
 clrscrn();
 printf(" AC : ");
 p_mZ(mul_mZ(A,C,AB),S5,P9,S5,P9,C6);
 printf(" CA : ");
 p_mZ(mul_mZ(C,A,BA),S5,P9,S5,P9,C6);
 stop();
 clrscrn();
 printf(" BC : ");
 p_mZ(mul_mZ(B,C,AB),S5,P9,S5,P9,C6);
 printf(" CB : ");
 p_mZ(mul_mZ(C,B,BA),S5,P9,S5,P9,C6);

f_mZ(A);
 f_mZ(B);
 f_mZ(C);
 f_mZ(AB);
 f_mZ(BA);
 f_mZ(T);
/* ------------------------------------ */
void hello(void)

printf("\n ");
 printf("\n Three Commutative matrices ");
 printf("\n **************** \n");
 printf("\n ");
 printf("\n ");
 printf("\n \n");
 stop();
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 hello();
do
 AplsB(RC3);
} while(stop_w());
 return 0;
/* ------------------------------------ */
Exemple de sortie écran :
 A : 
+0.181-0.046i -0.551-0.144i -0.227+0.206i 
-0.642+0.161i -0.273-0.053i +0.159-0.059i 
-0.064-0.237i +0.026+0.104i -0.665+0.098i 
 B : 
+0.359-0.276i -0.095-0.490i -0.028+1.018i 
-0.507-0.143i +0.479-0.472i +0.339+1.061i 
-0.103-0.486i +0.274-0.437i +0.016+0.748i 
 C : 
+0.114+0.075i +0.011+0.131i +0.001-0.274i 
+0.122+0.044i +0.068+0.128i -0.089-0.294i 
+0.027+0.127i -0.075+0.123i +0.185-0.203i 
 Press return to continue. 
 ---------------------------------------
 AB : 
+0.434810475+0.174468591i -0.343798055+0.262510666i -0.150150838-0.614952765i 
-0.100610661+0.229349630i +0.002243624+0.317665809i -0.136209570-0.847387889i 
+0.029462986+0.189563214i -0.187948557+0.408464831i +0.057625024-0.492134400i 
 BA : 
+0.434810475+0.174468591i -0.343798055+0.262510666i -0.150150838-0.614952765i 
-0.100610661+0.229349630i +0.002243624+0.317665809i -0.136209570-0.847387889i 
+0.029462986+0.189563214i -0.187948557+0.408464831i +0.057625024-0.492134400i 
 Press return to continue. 
 ---------------------------------------
 AC : 
-0.069113056-0.056712464i -0.019496306-0.100756985i -0.005673853+0.209178420i 
-0.104207477-0.029324530i -0.044492220-0.097029038i +0.069581516+0.218083037i 
-0.021175931-0.099932070i +0.056323283-0.089723975i -0.139750390+0.153741502i 
 CA : 
-0.069113056-0.056712464i -0.019496306-0.100756985i -0.005673853+0.209178420i 
-0.104207477-0.029324530i -0.044492220-0.097029038i +0.069581516+0.218083037i 
-0.021175931-0.099932070i +0.056323283-0.089723975i -0.139750390+0.153741502i 
 Press return to continue. 
 --------------------------------------
 BC : 
-0.058919263-0.044802143i -0.026610479-0.080914103i -0.009134934+0.166041105i 
-0.094014703-0.019303648i -0.049374383-0.076119628i +0.057129588+0.167383789i 
-0.017719240-0.082216972i +0.044087261-0.067204335i -0.131224715+0.120921771i 
 CB : 
-0.058919263-0.044802143i -0.026610479-0.080914103i -0.009134934+0.166041105i 
-0.094014703-0.019303648i -0.049374383-0.076119628i +0.057129588+0.167383789i 
-0.017719240-0.082216972i +0.044087261-0.067204335i -0.131224715+0.120921771i 
 Press return to continue
 Press X to stop

Mathc complexes/a137
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00c.c */
void AplsB(int r)
double **A = i_mZ(r,r);
double **B = i_mZ(r,r);
double **C = i_mZ(r,r);
double **D = i_mZ(r,r);
double **T = i_mZ(r,r);
double **AB = i_mZ(r,r);
double **BA = i_mZ(r,r);
 r_commute4_mZ(A,B,C,D,9);
 clrscrn();
 printf(" A : ");
 p_mZ(A,S5,P3,S5,P3,C6); 
 printf(" B : ");
 p_mZ(B,S5,P3,S5,P3,C6);
 printf(" C : ");
 p_mZ(C,S5,P3,S5,P3,C6); 
 printf(" D : ");
 p_mZ(D,S5,P3,S5,P3,C6); 
 stop();
 clrscrn();
 printf(" AB : ");
 p_mZ(mul_mZ(A,B,AB),S5,P9,S5,P9,C6);
 printf(" BA : ");
 p_mZ(mul_mZ(B,A,BA),S5,P9,S5,P9,C6);
 stop();
 clrscrn();
 printf(" AC : ");
 p_mZ(mul_mZ(A,C,AB),S5,P9,S5,P9,C6);
 printf(" CA : ");
 p_mZ(mul_mZ(C,A,BA),S5,P9,S5,P9,C6);
 stop();
 clrscrn();
 printf(" BC : ");
 p_mZ(mul_mZ(B,C,AB),S5,P9,S5,P9,C6);
 printf(" CB : ");
 p_mZ(mul_mZ(C,B,BA),S5,P9,S5,P9,C6); 
 stop();
 clrscrn();
 printf(" AD : ");
 p_mZ(mul_mZ(A,D,AB),S5,P9,S5,P9,C6);
 printf(" DA : ");
 p_mZ(mul_mZ(D,A,BA),S5,P9,S5,P9,C6);
 stop();
 clrscrn();
 printf(" BD : ");
 p_mZ(mul_mZ(B,D,AB),S5,P9,S5,P9,C6);
 printf(" DB : ");
 p_mZ(mul_mZ(D,B,BA),S5,P9,S5,P9,C6); 
 stop();
 clrscrn();
 printf(" CD : ");
 p_mZ(mul_mZ(C,D,AB),S5,P9,S5,P9,C6);
 printf(" DC : ");
 p_mZ(mul_mZ(D,C,BA),S5,P9,S5,P9,C6); 
 f_mZ(A);
 f_mZ(B);
 f_mZ(C);
 f_mZ(D);
 f_mZ(T);
 f_mZ(AB);
 f_mZ(BA);
/* ------------------------------------ */
void hello(void)