Mathc complexes/a136
Installer et compiler ces fichiers dans votre répertoire de travail.
c00b.c |
---|
/* ------------------------------------ */
/* Save as : c00b.c */
/* ------------------------------------ */
#include "w_a.h"
/* ------------------------------------ */
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