BiA_ASin

Fonction Catégorie Version
BIA 04 BiA_ASin Fonction Arithmétique 1.0 - Janvier 2007

Description

But Retourne l'Arcsinus d'un angle.
Prototype (BiA_ASin Sinus_Angle)
Argument Sinus_Angle - La valeur du sinus 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'Arcsinus d'un angle, c'est à dire, la valeur d'un angle (en radians), si on transmet le sinus.
Notes La valeur du sinus doit être comprise entre -1 et +1 (-90° et +90°).
Exemples
		 
(BiA_ASin 0.5)			retourne	0.523599
(BiA_ASin 1)			retourne	1.5708   (angle 90°)
(BiA_ASin -1)			retourne	-1.5708  (angle -90°)
(BiA_ASin 0)			retourne	0.0
(BiA_RtD(BiA_ASin 0.5))	retourne	30.0	 (angle 30°)
	(BiA_RtD convertit les radians en degrés)
(BiA_ASin 1.1)			retourne	nil
(BiA_ASin -1.1)			retourne	nil
(BiA_ASin aa)			retourne	nil
	 ( aa n'a pas été défini)
(BiA_ASin "aab")		retourne	
	 erreur: mauvais type d'argument	 

La fonction


 1-  (defun BiA_ASin (*Sin_Angl)

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

Lignes 2-4 : Vérifie si l'argument (le sinus) est un nombre compris entre 1.0  
             et -1.0   et si oui,
Ligne 5 :      Si le sinus est différent de 1, plus ou moins 0.000001, et, si oui,
Ligne 6 :	     Si le sinus est différent de -1, plus ou moins 0.000001,
Ligne 7 :	         	Retourne l'arctangente  de la division du sinus de l'angle
Ligne 8 :	         		par la racine carrée de 1 diminué du carré du sinus.
Ligne 11 :	         	Sinon (si le sinus est -1), retourne - 1.5708 >> angle de -90°
Ligne 13 :	      Sinon (si le sinus est 1), retourne  1.5708 >> angle de 90°
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