Mathc complexes/a137
Installer et compiler ces fichiers dans votre répertoire de travail.
c00c.c |
---|
/* ------------------------------------ */
/* Save as : c00c.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 **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)
{
printf("\n ");
printf("\n Four 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.478-0.975i -0.494-1.419i +0.054-1.130i
+0.527+0.346i +0.085-0.091i +0.683+0.174i
+0.067+1.132i +1.145+1.104i -0.449+1.066i
B :
+0.440+0.003i +0.011+0.183i +0.045+0.004i
-0.012-0.105i +0.406-0.023i -0.001-0.031i
-0.069+0.078i -0.097-0.074i +0.262+0.021i
C :
-5.192+0.051i -0.296-5.946i -1.527+0.013i
+0.333+3.496i -4.113+0.802i -0.060+1.010i
+2.315-2.774i +3.097+2.326i +0.796-0.853i
D :
+4.003+0.063i +0.269+4.520i +1.118+0.107i
-0.300-2.607i +3.151-0.581i -0.027-0.761i
-1.709+1.924i -2.397-1.825i -0.404+0.517i
Press return to continue.
---------------------------------------
AB :
-0.267114744-0.278761780i -0.149305228-0.556310560i -0.022751860-0.324217027i
+0.159752665+0.186879579i -0.078602402-0.006022517i +0.194649270+0.075369517i
+0.077121399+0.255657421i +0.406418416+0.375293568i -0.108931567+0.284784297i
BA :
-0.267114744-0.278761780i -0.149305228-0.556310560i -0.022751860-0.324217027i
+0.159752665+0.186879579i -0.078602402-0.006022517i +0.194649270+0.075369517i
+0.077121399+0.255657421i +0.406418416+0.375293568i -0.108931567+0.284784297i
Press return to continue.
---------------------------------------
AC :
+4.314090863+0.072930900i +0.308606689+5.192615635i +1.283883680+0.123312178i
-0.344163319-2.994881907i +3.335838845-0.667081989i -0.030682400-0.874409570i
-1.963537685+2.209695980i -2.753104593-2.095996326i -0.748159525+0.594151088i
CA :
+4.314090863+0.072930900i +0.308606689+5.192615635i +1.283883680+0.123312178i
-0.344163319-2.994881907i +3.335838845-0.667081989i -0.030682400-0.874409570i
-1.963537685+2.209695980i -2.753104593-2.095996326i -0.748159525+0.594151088i
Press return to continue.
---------------------------------------
BC :
-2.803851972-0.007460925i -0.176363200-3.242364545i -0.817813847-0.033290308i
+0.197632512+1.888888066i -2.204777496+0.427428555i -0.007734946+0.548570679i
+1.244794527-1.448974555i +1.703424057+1.287594053i +0.411099200-0.419967631i
CB :
-2.803851972-0.007460925i -0.176363200-3.242364545i -0.817813847-0.033290308i
+0.197632512+1.888888066i -2.204777496+0.427428555i -0.007734946+0.548570679i
+1.244794527-1.448974555i +1.703424057+1.287594053i +0.411099200-0.419967631i
Press return to continue.
---------------------------------------
AD :
-3.319255063-0.184823083i -0.292649587-3.994977859i -0.933231635-0.242613558i
+0.323158746+2.240489593i -2.526864601+0.476413017i +0.114511701+0.664035324i
+1.447366240-1.466136442i +2.171072671+1.684178670i +0.392930986-0.291589934i
DA :
-3.319255063-0.184823083i -0.292649587-3.994977859i -0.933231635-0.242613558i
+0.323158746+2.240489593i -2.526864601+0.476413017i +0.114511701+0.664035324i
+1.447366240-1.466136442i +2.171072671+1.684178670i +0.392930986-0.291589934i
Press return to continue.
---------------------------------------
BD :
+2.149249498+0.034649532i +0.146619297+2.467016036i +0.609974211+0.058585719i
-0.163512281-1.422870902i +1.684481146-0.316931212i -0.014577234-0.415432719i
-0.932878398+1.049828411i -1.308002297-0.995809610i -0.255829900+0.282281680i
DB :
+2.149249498+0.034649532i +0.146619297+2.467016036i +0.609974211+0.058585719i
-0.163512281-1.422870902i +1.684481146-0.316931212i -0.014577234-0.415432719i
-0.932878398+1.049828411i -1.308002297-0.995809610i -0.255829900+0.282281680i
Press return to continue.
---------------------------------------
CD :
-33.613996156-0.533408828i -2.325899559-39.266161807i -9.716294147-0.911713866i
+2.594332899+22.656012217i -26.222117778+5.049596327i +0.219242242+6.613440645i
+14.857017126-16.742424946i +20.811324502+15.839700067i +4.692000980-4.516187499i
DC :
-33.613996156-0.533408828i -2.325899559-39.266161807i -9.716294147-0.911713866i
+2.594332899+22.656012217i -26.222117778+5.049596327i +0.219242242+6.613440645i
+14.857017126-16.742424946i +20.811324502+15.839700067i +4.692000980-4.516187499i
Press return to continue
Press X to stop