BiA_RtD

N°	Fonction	Catégorie	Version
BIA 02	BiA_RtD	Fonction Arithmétique	1.0 - Janvier 2007

But	Convertit les radians en degrés
Prototype	(BiA_RtD 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	Convertit en degrés la valeur d'un angle exprimé en radians.
Notes	Contrairement à la routine RtD usuelle, BiA_RtD vérifie le type de l'argument et ne peut donc retourner un message d'erreur.
Exemples	(BiA_RtD 1) retourne 57.2958 (BiA_RtD -1) retourne -57.2958 (BiA_RtD pi) retourne 180.0 (BiA_RtD 0) retourne 0.0 (BiA_RtD "aab") retourne nil (BiA_RtD aa) retourne nil ( aa n'a pas été défini)

 1-   (defun BiA_RtD (*Angle_Rad)

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

Lignes 2-5 :	Vérifie si l'argument est un nombre (entier ou réel) 
			     Et, si oui,

Ligne 6 :   Multiplie par 180  le résultat de la division de la valeur 
				de l'angle en radians par pi (3.14159...)
	    Sinon retourne nil

Equivaut à multiplier le nombre en radians par 57.295779513
Pourrait donc être remplacé par (* *Angle_Rad 57.295779513)

Type : Renvoie le type de l'élément spécifié.