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

Mathc matrices/a81
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
double **sinh_mR(
double **A,
double **sinhA
double **A_n = i_mR(RCA,RCA);
double **sA = i_mR(RCA,RCA);
double **NewsinhA = i_mR(RCA,RCA);
int n = 10; 
int i; 
 for(i = 1.; i <= n; i+=2.)
 pow_mR(i, A, A_n); 
 smul_mR(1./factorial(i), A_n, sA); 
 add_mR(sinhA,sA,NewsinhA); 
 c_mR(NewsinhA,sinhA);

f_mR(A_n);
 f_mR(sA);
 f_mR(NewsinhA);
 return (sinhA); 
/* ------------------------------------ */
double **cosh_mR(
double **A,
double **coshA
double **A_n = i_mR(RCA,RCA);
double **sA = i_mR(RCA,RCA);
double **NewcoshA = i_mR(RCA,RCA);
int n = 10; 
int i; 
 for(i = 0.; i <= n; i+=2.)
 pow_mR(i, A, A_n); 
 smul_mR(1./factorial(i), A_n, sA); 
 add_mR(coshA,sA,NewcoshA); 
 c_mR(NewcoshA,coshA);

f_mR(A_n);
 f_mR(sA);
 f_mR(NewcoshA);
 return (coshA); 
/* ------------------------------------ */
void fun(void)
double **A = rE_mR(i_mR(RCA,RCA),999,+1.E-3); 
double **sinhA = i_mR(RCA,RCA); 
double **coshA = i_mR(RCA,RCA);
double **sinhA2 = i_mR(RCA,RCA); 
double **coshA2 = i_mR(RCA,RCA);
 clrscrn(); 
 printf(" Copy/Past into the octave window. \n");
 p_Octave_mR(A, "A", P4);
 stop();
 clrscrn(); 
 sinh_mR(A, sinhA);
 cosh_mR(A, coshA); 
 printf(" sinhA :");
 p_mR(sinhA,S8,P4,C6);
 printf(" coshA :");
 p_mR(coshA,S8,P4,C6); 
 stop();
 clrscrn(); 
 pow_mR(2, sinhA, sinhA2);
 pow_mR(2, coshA, coshA2); 
 printf(" sinhA2 :");
 p_mR(sinhA2,S8,P4,C6);
 printf(" coshA2 :");
 p_mR(coshA2,S8,P4,C6); 
 sub_mR(coshA2,sinhA2,A); 
 printf(" I = coshA**2 -sinhA**2 ");
 p_mR(A,S8,P4,C6); 
 f_mR(A);
 f_mR(sinhA);
 f_mR(coshA);
 f_mR(sinhA2);
 f_mR(coshA2); 
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 SinhA = + A + (1/3!) A**3 + (1/5!) A**5 + (1/7!) A**7 + ...
 CoshA = + I + (1/2!) A**2 + (1/4!) A**4 + (1/6!) A**6 + ...
 Exemple de sortie écran :
 Copy/Past into the octave window. 
 A=[
+0.6170,+0.9630,+0.8290,-0.7990;
-0.8750,+0.2740,-0.6240,-0.7260;
-0.9490,+0.1990,-0.5240,+0.9020;
+0.3820,-0.2960,-0.8550,+0.7330]
 Press return to continue. 
 ------------------------------------ 
 sinhA :
 +0.2146 +0.8186 +0.6265 -0.8283 
 -0.8622 +0.1971 -0.5423 -0.6433 
 -0.5174 +0.0929 -0.3827 +0.9124 
 +0.4605 -0.0363 -0.6258 +0.5427 
 coshA :
 +0.2359 +0.5130 +0.0507 -0.4597 
 -0.2261 +0.6569 +0.0113 -0.2519 
 +0.1014 -0.5108 +0.3835 +0.3687 
 +0.6745 +0.0149 +0.1479 +0.7904 
 Press return to continue. 
 ------------------------------------ 
 sinhA2 :
 -1.3653 +0.4253 -0.0308 -0.5823 
 -0.3706 -0.6940 -0.0369 -0.2565 
 +0.4270 -0.4739 -0.7991 +0.5148 
 +0.7039 +0.2920 +0.2080 -0.6345 
 coshA2 :
 -0.3653 +0.4253 -0.0308 -0.5823 
 -0.3706 +0.3060 -0.0369 -0.2565 
 +0.4270 -0.4739 +0.2009 +0.5148 
 +0.7039 +0.2920 +0.2080 +0.3655 
 I = coshA**2 -sinhA**2 
 +1.0000 +0.0000 +0.0000 -0.0000 
 -0.0000 +1.0000 +0.0000 -0.0000 
 -0.0000 -0.0000 +1.0000 +0.0000 
 +0.0000 -0.0000 -0.0000 +1.0000 
 Press return to continue
 Press X to stop

Mathc matrices/a82
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00b.c */
double **sin_mR(
double **A,
double **sinA
double **A_n = i_mR(RCA,RCA);
double **sA = i_mR(RCA,RCA);
double **NewsinA = i_mR(RCA,RCA);
int n = 10; 
int i;
int j; 
 for(i=1.,j=0.; i <= n; i+=2.,j++)
 pow_mR(i, A, A_n); 
 smul_mR(pow((-1),j)/factorial(i), A_n, sA); 
 add_mR(sinA,sA,NewsinA); 
 c_mR(NewsinA,sinA);