printf("\n ");
 printf("\n (A+B)**2 = A**2 + AB + BA + B**2 ");
 printf("\n ************************** \n");
 printf("\n\n ");
 printf("\n \n");
 stop();
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 hello();
do
 fun(RC4);
} while(stop_w());
 return 0;
/* ------------------------------------ */
Propriétés des matrices commutatives :
Exemple de sortie écran :
 A : 
-2.000+5.000i +7.000-8.000i +2.000-3.000i +3.000-8.000i 
+8.000+9.000i -6.000+6.000i +8.000-6.000i +8.000+2.000i 
-1.000-2.000i +9.000+8.000i +4.000+8.000i -3.000+2.000i 
+3.000+8.000i -8.000-7.000i -3.000+7.000i +9.000-6.000i 
 B : 
+1.000+2.000i +3.000-5.000i +8.000+3.000i +4.000+8.000i 
-8.000+5.000i -6.000-8.000i -1.000+4.000i +8.000-7.000i 
+3.000-3.000i +6.000-9.000i +7.000-9.000i +2.000+4.000i 
+9.000+1.000i +8.000+8.000i -1.000-8.000i +1.000-5.000i 
 Press return to continue. 
 -------------------------------------------
 (A+B)**2 :
+238.000+139.000i +85.000+216.000i +116.000 -58.000i +148.000-226.000i 
+171.000-137.000i +430.000+167.000i -82.000+125.000i -92.000 -56.000i 
 -2.000+235.000i -69.000-121.000i +253.000-132.000i +300.000 +12.000i 
+117.000 +51.000i +189.000 -79.000i +26.000+124.000i +78.000-164.000i 
 (A+B)**2 = A**2 + AB + BA + B**2 :
+238.000+139.000i +85.000+216.000i +116.000 -58.000i +148.000-226.000i 
+171.000-137.000i +430.000+167.000i -82.000+125.000i -92.000 -56.000i 
 -2.000+235.000i -69.000-121.000i +253.000-132.000i +300.000 +12.000i 
+117.000 +51.000i +189.000 -79.000i +26.000+124.000i +78.000-164.000i 
 Press return to continue
 Press X to stop

Mathc complexes/a143
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* ------------------------------------ */
/* Save as : c00c.c */
void fun(int r)
double **A = r_mZ(i_mZ(r,r),9);
double **A_2 = i_mZ(r,r);
double **B = r_mZ(i_mZ(r,r),9);
double **B_2 = i_mZ(r,r);
double **AplsB = i_mZ(r,r);
double **AplsB_2 = i_mZ(r,r);
double **AB = i_mZ(r,r);
double **AB2 = i_mZ(r,r);
double **T1 = i_mZ(r,r);
double **T2 = i_mZ(r,r);
 clrscrn();
 printf(" A : ");
 p_mZ(A,S5,P3,S5,P3,C6); 
 printf(" B : ");
 p_mZ(B,S5,P3,S5,P3,C6); 
 stop();
 clrscrn(); 
 printf("(A+B)**2 :\n");
 add_mZ(A,B,AplsB);
 pow_mZ(2,AplsB,AplsB_2);
 p_mZ(AplsB_2,S8,P3,S8,P3,C6); 
 printf(" (A+B)**2 != A**2 + 2*AB + B**2 :\n");
 pow_mZ(2,A,A_2); 
 mul_mZ(A,B,AB);
 smul_mZ(2,AB,AB2);
 pow_mZ(2,B,B_2);
 add_mZ(A_2,AB2,T1);
 add_mZ(T1,B_2,T2);
 p_mZ(T2,S8,P3,S8,P3,C6);
 f_mZ(A);
 f_mZ(A_2);
 f_mZ(B);
 f_mZ(B_2);
 f_mZ(AplsB);
 f_mZ(AplsB_2);
 f_mZ(AB);
 f_mZ(AB2);
 f_mZ(T1);
 f_mZ(T2);
/* ------------------------------------ */
void hello(void)
 printf("\n ");
 printf("\n None commutative matrices ");
 printf("\n ");
 printf("\n (A+B)**2 != A**2 + 2*AB + B**2 ");
 printf("\n ********************** \n");
 printf("\n\n ");
 printf("\n \n");
 stop();
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
 hello();
do
 fun(RC4);
} while(stop_w());
 return 0;
/* ------------------------------------ */
Propriétés des matrices commutatives :
Exemple de sortie écran :
 A : 
+9.000+7.000i -3.000-9.000i -7.000-2.000i -8.000-4.000i 
+2.000-9.000i -4.000+1.000i +5.000-1.000i +5.000-7.000i 
-8.000+9.000i -8.000-1.000i +5.000-7.000i +4.000+5.000i 
-5.000+1.000i +7.000-6.000i +5.000-2.000i -6.000-9.000i 
 B : 
+9.000-1.000i -3.000+1.000i -8.000-6.000i -7.000-3.000i 
-2.000+7.000i -4.000+5.000i +7.000-7.000i -2.000+4.000i 
+3.000-7.000i -2.000+1.000i -3.000-9.000i +4.000+1.000i 
-4.000-6.000i +6.000-5.000i +3.000+3.000i +3.000-2.000i 
 Press return to continue. 
 -------------------------------------------
(A+B)**2 :
+463.000+376.000i -86.000 +2.000i -629.000-129.000i -374.000-190.000i 
 -62.000 +56.000i -102.000 -76.000i -141.000 -63.000i +82.000 +56.000i 
-122.000 +16.000i +276.000+118.000i -223.000 +82.000i +213.000-187.000i 
-224.000 -45.000i -264.000+148.000i +182.000-306.000i +52.000+188.000i 
 (A+B)**2 != A**2 + 2*AB + B**2 :
+346.000+467.000i -81.000 +32.000i -550.000-270.000i -361.000-286.000i 
 -89.000-289.000i -129.000-193.000i -217.000 +60.000i -103.000 +59.000i 
-347.000 -71.000i +390.000 +30.000i -149.000 +87.000i +402.000-242.000i 
-178.000+191.000i -264.000+163.000i +123.000-456.000i +122.000+209.000i 
 Press return to continue
 Press X to stop

Mathc complexes/a144
Bibliothèque
Installer ce fichier dans votre répertoire de travail.
/* Save as : wzst.h */
/* ------------------------------------ */
nb_Z pow_Z(
int n,
nb_Z A
nb_Z A_n = A; 
int i;
 if(!n) A_n = i_Z(1,0);
 else
 for(i=n-1; i; i--)
 A_n = mul_Z(A_n,A);
 return(A_n);
/* ------------------------------------ */
nb_Z sin_Z(
nb_Z A
nb_Z A_n;
nb_Z sA;
nb_Z sinA = i_Z(0,0);
int n = 12; 
int i;
int j; 
 for(i=1.,j=0.; i <= n; i+=2.,j++)
 A_n = pow_Z(i, A); 
 sA = smul_Z(pow((-1),j)/factorial(i), A_n);
 sinA = add_Z(sinA,sA);

return (sinA); 
/* ------------------------------------ */
nb_Z cos_Z(
nb_Z A
nb_Z A_n;
nb_Z sA ;
nb_Z cosA = i_Z(0,0);
int n = 12; 
int i; 
int j; 
 for(i=0.,j=0.; i <= n; i+=2.,j++)
 A_n = pow_Z(i, A); 
 sA = smul_Z(pow((-1),j)/factorial(i), A_n);
 cosA = add_Z(cosA,sA);

return (cosA); 
/* ------------------------------------ */
nb_Z sinh_Z (
nb_Z A
nb_Z A_n;
nb_Z sA;
nb_Z sinhA = i_Z(0,0);
int n = 12; 
int i; 
 for(i = 1.; i <= n; i+=2.)
 A_n = pow_Z(i, A); 
 sA = smul_Z(1./factorial(i), A_n);
 sinhA = add_Z(sinhA,sA);

return (sinhA); 
/* ------------------------------------ */
nb_Z cosh_Z (
nb_Z A
nb_Z A_n;
nb_Z sA;
nb_Z coshA = i_Z(0,0);
int n = 12; 
int i; 
 for(i = 0.; i <= n; i+=2.)
 A_n = pow_Z(i, A); 
 sA = smul_Z(1./factorial(i), A_n);
 coshA = add_Z(coshA,sA);

return (coshA); 
/* ------------------------------------ */
nb_Z exp_Z(
nb_Z A
nb_Z A_n;
nb_Z sA ;
nb_Z expA = i_Z(0,0);
int n = 10; 
int i; 
 for(i=0.; i <= n; i++)
 A_n = pow_Z(i, A); 
 sA = smul_Z(1./factorial(i), A_n);
 expA = add_Z(expA,sA);

return (expA); 
/* ------------------------------------ */

Mathc complexes/a146
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
nb_Z a;
 clrscrn();
 a = i_Z(-.125, .546);
 printf(" sin(");
 p_Z(a,S3,P4,S3,P4);
 printf(") = ");
 p_Z(sin_Z(a),S3,P6,S3,P6);
 printf("\n\n\n");
 printf(" cos(");
 p_Z(a,S3,P4,S3,P4);
 printf(") = ");
 p_Z(cos_Z(a),S3,P6,S3,P6);
 printf("\n\n\n");
 stop(); 
 return 0;
/* ------------------------------------ */

Exemple de sortie écran : 
 sin(-0.1250+0.5460i ) = -0.143725+0.569061i 
 cos(-0.1250+0.5460i ) = +1.143804+0.071505i 
 Press return to continue.

Mathc complexes/a147
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
int main(void)
nb_Z a;
 clrscrn();
 a = i_Z(-.125, .546);
 printf(" sinh(");
 p_Z(a,S3,P4,S3,P4);
 printf(") = ");
 p_Z(sinh_Z(a),S3,P6,S3,P6);
 printf("\n\n\n");
 printf(" cosh(");
 p_Z(a,S3,P4,S3,P4);
 printf(") = ");
 p_Z(cosh_Z(a),S3,P6,S3,P6);
 printf("\n\n\n");
 stop();
 return 0;
/* ------------------------------------ */

Exemple de sortie écran : 
 sinh(-0.1250+0.5460i ) = -0.107104+0.523335i 
 cosh(-0.1250+0.5460i ) = +0.861294-0.065078i 
 Press return to continue.