BiA_Tan

N°	Fonction	Catégorie	Version
BIA 03	BiA_Tan	Fonction Arithmétique	1.0 - Janvier 2007

But	Retourne la tangente d'un angle.
Prototype	(BiA_Tan Angle_Rad)
Argument	Angle_Rad - La valeur de l'angle en radians - Réel ou Entier -
Retours	Un nombre réel ou nil.
Var. globales	Néant
Description	Retourne la tangente d'un angle dont la valeur doit être exprimée en radians.
Notes	Contrairement à la routine Tan usuelle, BiA_Tan vérifie le type de l'argument et ne peut donc retourner un message d'erreur.
Exemples	(BiA_Tan 1) retourne 1.55741 (57°2958) (BiA_Tan -1) retourne -1.55741 (BiA_Tan (BiA_DtR 60)) retourne 1.73205 (angle 60°) (BiA_DtR convertit les degrés en radians) (BiA_Tan 0) retourne 0.0 (BiA_Tan "aab") retourne nil (BiA_Tan aa) retourne nil (aa n'a pas été défini)

 1-   (defun BiA_Tan (*Angle_Rad)

 2-       (if (or
 3-              (= (type *Angle_Rad) 'REAL) 
 4-              (= (type *Angle_Rad) 'INT) 
 5-           )
 6- 		  (/ (sin *Angle_Rad) (cos *Angle_Rad))
 7-       )
 8-    ) 

Lignes 2-5 :	Vérifie si l'argument est un nombre (entier ou réel) 
				Et, si oui,
Ligne 6 :	       Divise le sinus de l'angle par le cosinus de l'angle.
				   Sinon retourne nil

Type : Renvoie le type de l'élément spécifié.
Sin : Renvoie le sinus d'un angle dont la valeur est exprimée en radians.
Cos : Renvoie le cosinus d'un angle dont la valeur est exprimée en radians.