| N° |
Fonction |
Catégorie |
Version |
| BIA 06 |
BiA_AngleF |
Fonction Arithmétique |
1.0 - Janvier 2007 |
Description
|
But
|
Vérifie la valeur d'un angle.
|
|
Prototype
|
(BiA_AnleF Angle_Rad)
|
|
Argument
|
Angle_Rad - La valeur de l'angle en radians - Réel ou Entier -
|
|
Retours
|
Un nombre réel
|
|
Var. globales
|
Néant
|
|
Description
|
Vérifie la valeur d'un angle (exprimé en radians) :
- Si la valeur est négative, rajoute 2 pi (360°)
- Si la valeur est supérieure à 2 pi, retranche 2 pi..
|
|
Notes
|
Un cercle fait 2 pi radians soit 6.28... radians,
pi radian (c’est à dire 3.1416 radians) est égal à 180°..
|
|
Exemples
|
(setq angl1 (BiA_AngleF (Angle Pt1 Pt2)))
(BiA_AngleF 3) retourne 3
(BiA_AngleF -3) retourne 3.28319
(BiA_AngleF 8) retourne 1.71681
(BiA_AngleF (BiA_DtR -50)) retourne 5.41052 (310°)
(BiA_DtR convertit les degrés en radians)
(BiA_AngleF (DtR 400)) retourne 0.698132 (40°)
(BiA_AngleF aa) retourne
erreur: mauvais type d'argument
(aa n'a pas été défini et a une valeur nil)
|
La fonction
1- (defun BiA_AngleF (*Angle_Rad)
2- (cond
3- ((minusp *Angle_Rad)
4- (+ pi pi *Angle_Rad)
5- )
6- ((> *Angle_Rad (+ pi pi))
7- (- *Angle_Rad pi pi)
8- )
9- (T
10- *Angle_Rad
11- )
12- )
13- )
Ligne 2 : Conditions :
Ligne 3 : - Si l'argument *Angle_Rad est négatif,
Ligne 4 : Rajoute 2 fois pi (6.28... équivalent à 360°)
Ligne 6: - Si l'argument *Angle_Rad est supérieur à 2 fois pi, soit 360°
Ligne 7 : Retranche 2 fois pi (6.28... équivalent à 360°)
Ligne 9 : - Dans tous les autres cas,
Ligne 10 : Retourne la valeur sans rien changer.
Minusp : Teste si une valeur est négative.
Pi : Constante de valeur approximative 3.1415926
