Mathc complexes/a145
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(" (");p_Z(a,S3,P4,S3,P4);printf(")**0 = ");
 p_Z(pow_Z(0,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**1 = ");
 p_Z(pow_Z(1,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**2 = ");
 p_Z(pow_Z(2,a),S3,P6,S3,P6);printf("\n\n");
 printf(" (");p_Z(a,S3,P4,S3,P4);printf(")**3 = ");
 p_Z(pow_Z(3,a),S3,P6,S3,P6);printf("\n\n");
 stop(); 
 return 0;
/* ------------------------------------ */
Exemple de sortie écran : 
 (-0.1250+0.5460i )**0 = +1.000000+0.000000i 
 (-0.1250+0.5460i )**1 = -0.125000+0.546000i 
 (-0.1250+0.5460i )**2 = -0.282491-0.136500i 
 (-0.1250+0.5460i )**3 = +0.109840-0.137178i 
 Press return to continue.

Mathc complexes/a148
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(-.1525, .5346);
 printf(" exp(");p_Z(a,S3,P4,S3,P4);printf(") = ");
 p_Z(exp_Z(a),S3,P6,S3,P6);printf("\n\n");
 stop(); 
 return 0;
/* ------------------------------------ */

Exemple de sortie écran : 
 exp(-0.1525+0.5346i ) = +0.738766+0.437433i 
 Press return to continue.

Mathc complexes/a150
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
nb_Z asin_Z(
nb_Z A
nb_Z A_n;
nb_Z sA;
nb_Z sinA = i_Z(0,0);
int n = 10; 
int i;
 for(i=0.; i <= n; i++)
 A_n = pow_Z((2.*i+1.), A); 
 sA = smul_Z( factorial(2.*i)
 (pow(4.,i)*pow(factorial(i),2.)*(2.*i+1.)), 
 A_n);
 sinA = add_Z(sinA,sA);

return (sinA); 
/* ------------------------------------ */
int main(void)
nb_Z a;
nb_Z b;
 clrscrn();
 a = i_Z(-.38112545, .02453546);
 printf(" sin(");
 p_Z(a,S3,P8,S3,P8);
 printf(") = ");
 p_Z(sin_Z(a),S3,P8,S3,P8);
 printf("\n\n\n");
 b = sin_Z(a);
 printf(" asin(");
 p_Z(b,S3,P8,S3,P8);
 printf(") = ");
 p_Z(asin_Z(b),S3,P8,S3,P8);
 printf("\n\n\n");
 stop(); 
 return 0;
/* ------------------------------------ */

Cet exemple pose des problèmes. Je l'ai installé pour mémoire.
Exemple de sortie écran : 
 sin(-0.38112545+0.02453546i ) = -0.37207737+0.02277724i 
 asin(-0.37207737+0.02277724i ) = -0.38112545+0.02453546i 
 Press return to continue.

Mathc complexes/a151
Application
Installer et compiler ce fichier dans votre répertoire de travail.
/* Save as : c00a.c */
nb_Z acos_Z(
nb_Z A
nb_Z A_n;
nb_Z sA;
nb_Z sinA = i_Z(0,0);
nb_Z PIt = i_Z(3.14159265359/2., 0.);
int n = 10; 
int i;
 for(i=0.; i <= n; i++)
 A_n = pow_Z((2.*i+1.), A); 
 sA = smul_Z( factorial(2.*i)
 (pow(4.,i)*pow(factorial(i),2.)*(2.*i+1.)), 
 A_n);
 sinA = add_Z(sinA,sA);

Mathc matrices/a84
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
void fun(void)
double **A = rEsymmetric_mR(i_mR(RCA,RCA),555.,1E-3);
double **cos_A = i_mR(RCA,RCA);
double **EigsVector = i_mR(RCA,RCA);
double **T_EigsVector = i_mR(RCA,RCA);
double **EigsValue = i_mR(RCA,RCA);
double **cos_EigsValue = i_mR(RCA,RCA);
double **T1 = i_mR(RCA,RCA);
 clrscrn();
 printf(" A :");
 p_mR(A,S10,P4,C6); 
 eigs_V_uv_mR(A,EigsVector); 
 transpose_mR(EigsVector,T_EigsVector);
/* EigsValue : T_EigsVector * A * EigsVector */
 mul_mR(T_EigsVector,A,T1);
 mul_mR(T1,EigsVector,EigsValue); 
 f_eigs_uv_mR(cos,EigsValue,cos_EigsValue);
//A == EigsVector * EigsValue * T_EigsVector 
 mul_mR(EigsVector,cos_EigsValue,T1);
 mul_mR(T1,T_EigsVector,cos_A); 
 printf(" cos(A) :");
 p_mR(cos_A,S10,P4,C6); 
 eigs_V_uv_mR(cos_A,EigsVector); 
 transpose_mR(EigsVector,T_EigsVector); 
/* EigsValue : T_EigsVector * A * EigsVector */
 mul_mR(T_EigsVector,cos_A,T1);
 mul_mR(T1,EigsVector,EigsValue); 
 f_eigs_uv_mR(acos,EigsValue,cos_EigsValue);
//A == EigsVector * EigsValue * T_EigsVector 
 mul_mR(EigsVector,cos_EigsValue,T1);
 mul_mR(T1,T_EigsVector,A); 
 printf(" acos(cos(A)) = A :");
 p_mR(A,S10,P4,C6);
 f_mR(A);
 f_mR(cos_A);
 f_mR(EigsVector);
 f_mR(T_EigsVector);
 f_mR(EigsValue); 
 f_mR(cos_EigsValue); 
 f_mR(T1);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 acos(cos(A)) = A

Exemple de sortie écran :
 A :
 +0.2584 -0.1805 -0.2321 -0.1239 -0.0287 
 -0.1805 +0.4288 +0.2662 -0.1582 -0.1468 
 -0.2321 +0.2662 +0.3610 +0.1499 +0.0574 
 -0.1239 -0.1582 +0.1499 +0.4023 +0.3353 
 -0.0287 -0.1468 +0.0574 +0.3353 +0.7024 
 cos(A) :
 +0.9199 +0.0767 +0.1000 +0.0457 +0.0252 
 +0.0767 +0.8428 -0.1043 +0.0545 +0.0907 
 +0.1000 -0.1043 +0.8674 -0.0561 -0.0359 
 +0.0457 +0.0545 -0.0561 +0.8442 -0.1855 
 +0.0252 +0.0907 -0.0359 -0.1855 +0.7090 
 acos(cos(A)) = A :
 +0.2584 -0.1805 -0.2321 -0.1239 -0.0287 
 -0.1805 +0.4288 +0.2662 -0.1582 -0.1468 
 -0.2321 +0.2662 +0.3610 +0.1499 +0.0574 
 -0.1239 -0.1582 +0.1499 +0.4023 +0.3353 
 -0.0287 -0.1468 +0.0574 +0.3353 +0.7024 
 Press return to continue
 Press X return to stop

Mathc matrices/a85
Application
Installer et compiler ces fichiers dans votre répertoire de travail.
/* Save as : c00a.c */
/* ------------------------------------ */
void fun(void)
double **A = rEsymmetric_mR(i_mR(RCA,RCA),455.,1E-3);
double **sin_A = i_mR(RCA,RCA);
double **EigsVector = i_mR(RCA,RCA);
double **T_EigsVector = i_mR(RCA,RCA);
double **EigsValue = i_mR(RCA,RCA);
double **sin_EigsValue = i_mR(RCA,RCA);
double **T1 = i_mR(RCA,RCA);
 clrscrn();
 printf(" A :");
 p_mR(A,S10,P4,C6); 
 eigs_V_uv_mR(A,EigsVector); 
 transpose_mR(EigsVector,T_EigsVector);
/* EigsValue : T_EigsVector * A * EigsVector */
 mul_mR(T_EigsVector,A,T1);
 mul_mR(T1,EigsVector,EigsValue); 
 f_eigs_uv_mR(sin,EigsValue,sin_EigsValue);
//A == EigsVector * EigsValue * T_EigsVector 
 mul_mR(EigsVector,sin_EigsValue,T1);
 mul_mR(T1,T_EigsVector,sin_A); 
 printf(" sin(A) :");
 p_mR(sin_A,S10,P4,C6); 
 eigs_V_uv_mR(sin_A,EigsVector); 
 transpose_mR(EigsVector,T_EigsVector); 
/* EigsValue : T_EigsVector * A * EigsVector */
 mul_mR(T_EigsVector,sin_A,T1);
 mul_mR(T1,EigsVector,EigsValue); 
 f_eigs_uv_mR(asin,EigsValue,sin_EigsValue);
//A == EigsVector * EigsValue * T_EigsVector 
 mul_mR(EigsVector,sin_EigsValue,T1);
 mul_mR(T1,T_EigsVector,A); 
 printf(" asin(sin(A)) = A :");
 p_mR(A,S10,P4,C6);
 f_mR(A);
 f_mR(sin_A);
 f_mR(EigsVector);
 f_mR(T_EigsVector);
 f_mR(EigsValue); 
 f_mR(sin_EigsValue); 
 f_mR(T1);
/* ------------------------------------ */
int main(void)
time_t t;
 srand(time(&t));
do
 fun();
} while(stop_w());
 return 0;
/* ------------------------------------ */
 asin(sin(A)) = A :

Exemple de sortie écran :
 A :
 +0.3672 -0.1919 -0.1067 -0.0639 -0.0243 
 -0.1919 +0.3287 +0.1053 +0.2621 +0.0517 
 -0.1067 +0.1053 +0.2286 +0.2096 +0.0909 
 -0.0639 +0.2621 +0.2096 +0.4114 +0.1167 
 -0.0243 +0.0517 +0.0909 +0.1167 +0.4063 
 sin(A) :
 +0.3478 -0.1702 -0.0922 -0.0427 -0.0155 
 -0.1702 +0.2987 +0.0845 +0.2292 +0.0374 
 -0.0922 +0.0845 +0.2126 +0.1849 +0.0783 
 -0.0427 +0.2292 +0.1849 +0.3720 +0.0976 
 -0.0155 +0.0374 +0.0783 +0.0976 +0.3891 
 asin(sin(A)) = A :
 +0.3672 -0.1919 -0.1067 -0.0639 -0.0243 
 -0.1919 +0.3287 +0.1053 +0.2621 +0.0517 
 -0.1067 +0.1053 +0.2286 +0.2096 +0.0909 
 -0.0639 +0.2621 +0.2096 +0.4114 +0.1167 
 -0.0243 +0.0517 +0.0909 +0.1167 +0.4063 
 Press return to continue
 Press X return to stop