Up ! Mathematical - Complexe

Ce programme présente l'usage des fonctions scientifiques sur les complexes.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/complexe2.upl.

Mode compilé

Commande de compilation

upscmp Source=complexe2.upl

Commande d'exécution

complexe2

Mode interprété

upssng Source=complexe2.upl

Fichier source

Source Composant "Exemple d'emploi du type Complexe" Version 4.0.0;

ImporterModule
/************/
Principal
/*******/
Variable
/******/
Debut
Ecran.Ecrire("Constantes");
Ecran.Ecrire("----------");
A=Complexe(10);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(10, 24);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(10.12);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(10.12, 24.36);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(10.12, Pi/4.0,Vrai);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe("10.12");
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe("10.12+i*24.36");
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe("10.12-i*24.36");
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe("-i*24.36");
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(Decimal(10.12));
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(Decimal(10.12), Decimal(24.36));
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
A=Complexe(Decimal(10.12), Decimal(Pi/4.0), Vrai);
Ecran.Ecrire(A.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Decomposition");
Ecran.Ecrire("-------------");
A=Complexe(123456, 456789);
Ecran.Ecrire(A.AnglePolaireVersReel());
Ecran.Ecrire(A.AnglePolaireVersDecimal().VersCaractere());
Ecran.Ecrire(A.PartieReelleVersEntier());
Ecran.Ecrire(A.PartieReelleVersReel());
Ecran.Ecrire(A.PartieReelleVersDecimal().VersCaractere());
Ecran.Ecrire(A.PartieImaginaireVersEntier());
Ecran.Ecrire(A.PartieImaginaireVersReel());
Ecran.Ecrire(A.PartieImaginaireVersDecimal().VersCaractere());
Ecran.Ecrire(");

Ecran.Ecrire("Arithmetique");
Ecran.Ecrire("------------");
A=Complexe(123, 456);
B=Complexe(456, 789);
AA=Complexe(Decimal(123), Decimal(456));
BB=Complexe(Decimal(456), Decimal(789));
C=A+B;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA+BB;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=A-B;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA-BB;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=A*B;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA*BB;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=A/B;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA/BB;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Comparaison");
Ecran.Ecrire("-----------");
Si A==B Alors Fin Si
Si AA==BB Alors Fin Si
Si A!=B Alors Fin Si
Si AA!=BB Alors Fin Si
Ecran.Ecrire(");

Ecran.Ecrire("Scientifiques");
Ecran.Ecrire("-------------");
A=Complexe(12, 3456);
AA=Complexe(Decimal(12), Decimal(3456));
B=Complexe(4.0, 5.6789);
BB=Complexe(Decimal(4.0), Decimal(5.6789));
C=A*A;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA*AA;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Racine(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Racine(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Log(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Log(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Exp(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Exp(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=A^B;
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=AA^BB;
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Trigonometriques");
Ecran.Ecrire("----------------");
A=Complexe(12.3, 4.56);
AA=Complexe(Decimal(12.3), Decimal(4.56));
C=Cos(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Cos(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Sin(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Sin(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Tan(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Tan(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Cot(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Cot(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Csc(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Csc(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=Sec(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=Sec(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Trigonometriques hyperboliques");
Ecran.Ecrire("------------------------------");
A=Complexe(1.23, 4.56);
AA=Complexe(Decimal(1.23), Decimal(4.56));
C=CosH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=CosH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=SinH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=SinH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=TanH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=TanH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=CotH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=CotH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=CscH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=CscH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=SecH(A); Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=SecH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Trigonometriques inverses");
Ecran.Ecrire("-------------------------");
C=ACos(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACos(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ASin(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ASin(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ATan(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ATan(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ACot(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACot(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ACsc(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACsc(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ASec(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ASec(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Ecran.Ecrire("Trigonometriques hyperboliques inverses");
Ecran.Ecrire("---------------------------------------");
C=ACosH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACosH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ASinH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ASinH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ATanH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ATanH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ACotH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACotH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ACscH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ACscH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
C=ASecH(A);
Ecran.Ecrire(C.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
CC=ASecH(AA);
Ecran.Ecrire(CC.VersCaractere("-&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&#,&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&.&&&"));
Ecran.Ecrire(");

Fin Principal

Résultat de l'exécution

Constantes ---------- 10 10+i*24 10,12 10,12+i*24,36 7,155.920.625.607.86+i*7,155.920.625.607.86 10,12 10,12+i*24,36 10,12-i*24,36 -i*24,36 10,12 10,12+i*24,36 7,155.920.625.607.863.162.521.638.402.311.391.782.958.693.618+i*7,155.920.625.607.858.731.351.451.486.690.066.792.323.514.672 Decomposition ------------- 1.30683359568381 1,3068 123456 123456 123.456,0000 456789 456789 456.789,0000 Arithmetique ------------ 579+i*1.245 579+i*1.245 -333-i*333 -333-i*333 -303.696+i*304.983 -303.696+i*304.983 0,500.774.874.557.021+i*0,133.527.684.154.628 0,500.774.874.557.021.013.730.993.898.540.201.359.010.761.544+i*0,133.527.684.154.628.114.399.661.872.920.572.648.553.748.117 Comparaison ----------- A!=B AA!=BB Scientifiques ------------- -11.943.792+i*82.944 -11.943.792+i*82.944 41,641.450.702.818.6+i*41,497.113.353.042.6 41,641.450.702.818.581.925.723.652.440.181.077.743.703.247.101+i*41,497.113.353.042.644.749.487.759.090.403.100.540.055.116.890 8,147.873.158.051.19+i*1,567.324.118.526.66 8,147.873.158.051.188.022.941.706.370.595.106.722.527.830.014+i*1,567.324.118.526.655.818.571.725.197.143.135.284.188.119.066 157.772,117.442.255+i*39.963,496.939.461.7 157.772,117.442.256.274.503.585.389.296.140.505.911.246.201.163.845+i*39.963,496.939.461.713.334.997.732.351.159.907.125.470.778.069.959 -12.585.320.211,936.5+i*14.821.855.830,896.7 -12.585.320.211,936.390.736.503.954.133.812.011.953.082.125.239.400.894.603+i*14.821.855.830,896.665.953.098.571.915.693.384.529.171.092.787.250.116.965 Trigonometriques ---------------- 46,111.296.906.342.4+i*12,578.928.337.064.1 46,111.296.906.342.381.468.122.649.803.393.845.663.565.010.233+i*12,578.928.337.064.132.088.367.691.832.745.922.299.940.730.092 -12,581.682.283.581.2+i*46,101.203.816.829.4 -12,581.682.283.581.184.930.857.633.275.138.476.973.963.163.060+i*46,101.203.816.829.405.315.276.504.766.935.027.579.778.872.162 -0,999.811.439.129.999-i*0,000.111.162.351.351.00 -0,999.811.439.129.998.728.236.897.553.449.050.909.314.714.068-i*0,000.111.162.351.351.437.956.673.087.411.404.406.011.540.641 -1,000.188.584.067.85+i*0,000.111.204.283.576.00 -1,000.188.584.067.847.530.778.062.529.239.198.786.954.321.228+i*0,000.111.204.283.576.306.323.760.686.639.683.132.275.726.113 -0,005.509.534.779.331.00-i*0,020.187.776.171.180.0 -0,005.509.534.779.330.867.387.793.853.533.578.191.013.608.448-i*0,020.187.776.171.180.375.663.060.517.873.518.633.264.404.453 0,020.184.581.999.383.00-i*0,005.506.251.775.992.00 0,020.184.581.999.383.069.893.500.473.141.544.865.890.105.016-i*0,005.506.251.775.991.829.554.787.170.231.820.361.391.077.568 Trigonometriques hyperboliques ------------------------------ -0,281.856.065.715.621-i*1,546.338.248.248.58 -0,281.856.065.715.619.859.294.042.877.700.991.842.383.740.119-i*1,546.338.248.248.576.712.415.214.529.733.085.016.531.799.379 -0,237.486.093.783.547-i*1,835.243.520.886.63 -0,237.486.093.783.545.911.543.540.006.674.452.201.848.541.625-i*1,835.243.520.886.630.511.737.550.535.866.598.659.149.441.075 1,175.762.357.460.06+i*0,060.730.347.071.886.00 1,175.762.357.460.059.027.499.266.349.430.447.717.668.365.223+i*0,060.730.347.071.886.217.358.160.539.649.731.107.949.822.652 0,848.248.946.612.755-i*0,043.813.660.646.900 0,848.248.946.612.754.433.680.571.798.230.723.563.028.992.661-i*0,043.813.660.646.900.255.733.267.181.391.247.050.342.512.899 -0,069.348.756.310.229.00+i*0,535.912.876.717.298 -0,069.348.756.310.229.267.570.123.499.677.759.989.942.391.725+i*0,535.912.876.717.297.938.042.799.709.894.865.890.449.938.893 -0,114.083.832.209.573+i*0,625.894.613.282.608 -0,114.083.832.209.572.782.455.460.255.739.514.430.981.737.959+i*0,625.894.613.282.608.320.352.611.767.400.704.258.822.912.900 Trigonometriques inverses ------------------------- 1,312.806.646.727.53-i*2,255.180.379.976.96 1,312.806.646.727.533.906.453.875.009.708.569.570.225.411.328-i*2,255.180.379.976.963.539.765.901.790.128.750.405.574.381.176 0,257.989.680.067.363+i*2,255.180.379.976.96 0,257.989.680.067.362.712.777.446.681.931.181.871.873.173.370+i*2,255.180.379.976.963.539.765.901.790.128.750.405.574.381.176 0,057.474.376.523.429.00-i*0,206.671.295.389.485 0,057.474.376.523.428.954.802.383.720.462.662.855.403.585.782-i*0,206.671.295.389.484.495.120.030.188.088.099.128.069.690.304 1,513.321.950.271.47+i*0,206.671.295.389.485 1,513.321.950.271.467.664.428.937.971.177.088.586.694.998.917+i*0,206.671.295.389.484.495.120.030.188.088.099.128.069.690.304 0,054.046.759.441.575.00-i*0,203.319.912.530.182 0,054.046.759.441.574.674.081.313.112.028.817.003.853.822.929-i*0,203.319.912.530.181.767.184.433.803.727.633.830.477.452.537 -1,516.749.567.353.32-i*0,203.319.912.530.167 -1,516.749.567.353.321.945.150.008.579.610.934.438.244.761.769-i*0,203.319.912.530.181.767.184.433.803.727.633.830.477.452.537 Trigonometriques hyperboliques inverses --------------------------------------- -2,235.806.006.958.07+i*0,269.271.227.472.323 -2,235.806.006.958.060.901.941.477.133.745.862.916.454.374.554+i*0,269.271.227.472.323.157.320.688.777.900.834.444.033.860.291 2,235.806.006.958.06+i*1,301.525.099.322.57 2,235.806.006.958.060.901.941.477.133.745.862.916.454.374.554+i*1,301.525.099.322.573.461.910.632.913.738.916.998.064.724.408 -0,052.972.282.538.173.00+i*0,202.220.687.710.915 -0,052.972.282.538.172.854.490.613.644.717.791.273.635.465.604+i*0,202.220.687.710.915.087.088.324.827.508.016.301.633.597.492 0,052.972.282.538.173.00+i*1,368.575.639.083.98 0,052.972.282.538.172.854.490.613.644.717.791.273.635.465.604+i*1,368.575.639.083.981.532.142.996.864.131.735.140.464.987.207 0,056.296.822.050.288.00-i*0,205.545.494.086.799 0,056.296.822.050.288.247.334.491.350.804.979.500.243.302.473-i*0,205.545.494.086.799.325.273.494.565.015.950.089.547.166.222 0,056.296.822.050.389.00+i*1,365.250.832.708.12 0,056.296.822.050.288.247.334.491.350.804.979.500.243.302.473+i*1,365.250.832.708.097.293.957.827.126.623.801.352.551.418.476