ATAN |
ArcTangente |
|---|---|
| Apple Pascal | TRANSCEND |
Syntaxe
| Function ATan(r:Real):Real; |
Paramètres
| Nom | Description |
|---|---|
| r | Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter. |
Description
Cette fonction trigonométrique permet de calculer la «ArcTangente» en radians.
Algorithme
|
MODULE SQRT(X) SI X = 0.0 ALORS RETOURNE 0.0 SINON M ← 1.0 XN ← X BOUCLE FAIRE TANT QUE XN >= 2.0 XN ← 0.25 x XN M ← 2.0 x M FIN BOUCLE FAIRE TANT QUE BOUCLE FAIRE TANT QUE XN < 0.5 XN ← 4.0 x XN M ← 0.5 x M FIN BOUCLE FAIRE TANT QUE A ← XN B ← 1.0 - XN BOUCLE REPETER A ← A x (1.0 + 0.5 x B) B ← 0.25 x (3.0 + B) x B x B FIN BOUCLE JUSQU'A B ← 1.0E - 15 RETOURNE A x M FIN SI MODULE ATAN(X) A ← 1.0 / SQRT(1.0 + (X x X)) B ← 1.0 BOUCLE POUR N ← 1 JUSQU'A 11 A ← (A + B) / 2.0 B ← SQRT(A x B) FIN BOUCLE POUR RETOURNE X / (SQRT(1.0 + (X x X)) x A) |
Remarques
- Cette fonction effectue ses calculs en radians et ainsi si vous souhaitez obtenir des degrés, vous devrez prendre en considération l'équation suivante : «degres = (180/π) x angle en radians».
- Dans les compilateurs concurrents, ces fonctions est plutôt nommé «ArcTan» comme par exemple en Turbo Pascal, Free Pascal,...
Dernière mise à jour : Dimanche, le 1 mars 2015