BiA_Acos

Fonction Catégorie Version
BIA 05 BiA_ACos Fonction Arithmétique 1.0 - Janvier 2007

Description

But Retourne l'Arccosinus d'un angle.
Prototype (BiA_ACos Cosinus_Angle)
Argument Cosinus_Angle - La valeur du cosinus de l'angle - Réel ou Entier -
Retours Valeur de l'angle exprimé en radians ou nil. - Réel
Var. globales Néant
Description Retourne l'Arccosinus d'un angle, c'est à dire, la valeur d'un angle (en radians), si on transmet le cosinus.
Notes La valeur du cosinus doit être comprise entre +1 et -1 (0° et +180°).
Exemples

(BiA_ACos 0.5)			retourne	1.0472
(BiA_ACos 0)			retourne	1.5708   (angle 90°)
(BiA_ACos -1)			retourne	3.14159  (angle 180°)
(BiA_ACos 1)			retourne	0.0
(BiA_RtD(BiA_ACos 0.5))		retourne	60.0	 (angle 60° )
       (BiA_RtD convertit les radians en degrés)
(BiA_ACos 1.1)			retourne	nil
(BiA_ACos -1.1)			retourne	nil
(BiA_ACos aa)			retourne	nil
	 ( aa n'a pas été défini)
(BiA_ACos "aab")		retourne	
         erreur: mauvais type d'argument

La fonction


  1-  (defun BiA_ACos (*Cos_Angl)

  2-     (if (and (<= *Cos_Angl 1.0)
  3-              (>= *Cos_Angl -1.0)
  4-         )
  5-         (if (not (equal *Cos_Angl 1.0 1e-06))
  6-            (if (not (equal *Cos_Angl -1.0 1e-06))
  7-                (atan 
  8-                     (sqrt (- 1.0 (* *Cos_Angl *Cos_Angl))) 
  9-                     *Cos_Angl 
 10-			  )
 11-                (eval pi)
 12-            )
 13-            (eval '0.0)
 14-         )
 15-      )
 16-  )

Lignes 2-4 : Vérifie si l'argument (le cosinus) est un nombre compris entre 1.0  
             et -1.0   et si oui,
Ligne 5 :      Si le cosinus est différent de 1, plus ou moins 0.000001, et, si oui,
Ligne 6 :	 Si le cosinus est différent de -1, plus ou moins 0.000001,
Ligne 7 :	    Retourne l'arctangente  
Ligne 8 :	        de  la racine carrée de 1 diminué du carré du cosinus.
Ligne 9 :	        avec le cosinus comme second argument.
Ligne 11 :	    Sinon (si le cosinus est -1), retourne 3.14159 >> angle de 180°
Ligne 13 :	 Sinon (si le sinus est 1), retourne  0.0 >> angle de 0°
Ligne 15 :   Sinon  (nombre supérieur à 1 ou inférieur à -1)  retourne nil.
Equal : Détermine si 2 expressions sont égales, le 3ème argument définissant la précision.
Atan : Renvoie la cotangente d'un angle dont la valeur est exprimée en radians.
Sqrt : Renvoie la racine carrée d'un nombre.
Eval : Renvoie le résultat d'une évaluation d'une expression.
Pi : Constante de valeur approximative 3.1415926