[LISP函数－转换]：角度转换函数

eachy

2. 
   
3. (setq _pi2 (/ pi 2)
   
4.       _pi4 (/ pi 4)
   
5.       _2pi (* pi 2)
   
6.       _3pi (* 1.5 pi)
   
7. )
   
8. ;;弧度转换为度
   
9. (defun xd-rtd (j$) (/ (* j$ 180.0) pi))
   
10. ;;度转换为弧度
    
11. (defun xd-dtr (j$) (* (/ j$ 180.0) pi))
    
12. ;;角度的标准化  转换至-90度-90度
    
13. (defun xd-angle_format (ang /)
    
14.   (setq ang (rem ang _2pi))
    
15.   (if (minusp ang)
    
16.     (setq ang (+ ang _2pi))
    
17.   )
    
18.   (cond        ;;2 3象限
    
19.         ((and (> ang _pi2) (<= ang _3pi))
    
20.          (setq ang (- ang pi))
    
21.         )
    
22.         ;;大于270度
    
23.         ((and (> ang _3pi) (< ang _2pi))
    
24.          (setq ang (- ang _2pi))
    
25.         )
    
26.         (t ang)
    
27.   )
    
28.   ang
    
29. )
    
30. ;;角度转换至0 - pi
    
31. (defun xd-angle_format0        (ang)
    
32.   (cond
    
33.     ((> ang pi)
    
34.      (- _2pi ang)
    
35.     )
    
36.     ((< ang 0.0)
    
37.      (if (< (abs ang) pi)
    
38.        (abs ang)
    
39.        (+ _2pi ang)
    
40.      )
    
41.     )
    
42.     (t ang)
    
43.   )
    
44. )

<br /> (setq _pi2 (/ pi 2)<br />       _pi4 (/ pi 4)<br />       _2pi (* pi 2)<br />       _3pi (* 1.5 pi)<br /> )<br /> ;;弧度转换为度<br /> (defun xd-rtd (j$) (/ (* j$ 180.0) pi))<br /> ;;度转换为弧度<br /> (defun xd-dtr (j$) (* (/ j$ 180.0) pi))<br /> ;;角度的标准化  转换至-90度-90度<br /> (defun xd-angle_format (ang /)<br />   (setq ang (rem ang _2pi))<br />   (if (minusp ang)<br />     (setq ang (+ ang _2pi))<br />   )<br />   (cond        ;;2 3象限<br />         ((and (> ang _pi2) (<= ang _3pi))<br />          (setq ang (- ang pi))<br />         )<br />         ;;大于270度<br />         ((and (> ang _3pi) (< ang _2pi))<br />          (setq ang (- ang _2pi))<br />         )<br />         (t ang)<br />   )<br />   ang<br /> )<br /> ;;角度转换至0 - pi<br /> (defun xd-angle_format0        (ang)<br />   (cond<br />     ((> ang pi)<br />      (- _2pi ang)<br />     )<br />     ((< ang 0.0)<br />      (if (< (abs ang) pi)<br />        (abs ang)<br />        (+ _2pi ang)<br />      )<br />     )<br />     (t ang)<br />   )<br /> )

狂刀

2. 
   
3. ;;角度的标准化  转换至-90度~90度(1,4象限)
   
4. (defun xd-a2PI1 (a)
   
5.   (setq a (rem a PI))
   
6.   (cond ((> a PI/2) (- a PI))
   
7.         ((<= a (- PI/2))(+ a PI))
   
8.         (T a)
   
9.   )
   
10. )
    

<br /> ;;角度的标准化  转换至-90度~90度(1,4象限)<br /> (defun xd-a2PI1 (a)<br />   (setq a (rem a PI))<br />   (cond ((> a PI/2) (- a PI))<br />         ((<= a (- PI/2))(+ a PI))<br />         (T a)<br />   )<br /> )<br />

aeo

2. 
   
3. ;;By Aeo @xdsoft.net
   
4. ;;角度转换至-90~90(1,4象限)
   
5. (defun xd-angle_90 (a)
   
6.   (if(= (setq a(rem a PI))(/ pi 2))
   
7.         a
   
8.         (-(* 2(rem a(/ pi 2)))a)
   
9.   )
   
10. )
    
11. 
    
12. 
    
13. ;;;=========================================================
    
14. ;;;=========================================================
    
15. ;;角度转换至0 ~180(1,2象限)
    
16. (defun xd-angle_180(ang)
    
17.   (setq ang(xd-angle_360 ang))
    
18.   (if(> ang pi)(-(- ang pi pi)) ang)
    
19. )
    
20. 
    
21. 
    
22. ;;;=====================================================
    
23. ;;;=====================================================
    
24. ;;一圈之内(0~360)
    
25. (defun xd-angle_360 (ang)     
    
26.   (while (minusp ang)(setq ang (+ ang pi pi)))
    
27.   (rem ang (* pi 2))
    
28. )
    

<br /> ;;By Aeo @xdsoft.net<br /> ;;角度转换至-90~90(1,4象限)<br /> (defun xd-angle_90 (a)<br />   (if(= (setq a(rem a PI))(/ pi 2))<br />         a<br />         (-(* 2(rem a(/ pi 2)))a)<br />   )<br /> )<br /> <br /> <br /> ;;;=========================================================<br /> ;;;=========================================================<br /> ;;角度转换至0 ~180(1,2象限)<br /> (defun xd-angle_180(ang)<br />   (setq ang(xd-angle_360 ang))<br />   (if(> ang pi)(-(- ang pi pi)) ang)<br /> )<br /> <br /> <br /> ;;;=====================================================<br /> ;;;=====================================================<br /> ;;一圈之内(0~360)<br /> (defun xd-angle_360 (ang)     <br />   (while (minusp ang)(setq ang (+ ang pi pi)))<br />   (rem ang (* pi 2))<br /> )<br />

狂刀

;;供大家测试，我还没仔细测

2. 
   
3. (setq 2PI (+ PI PI)
   
4.       PI/2 (/ PI 2))
   
5. (defun a2a (an from to / an2)
   
6.   (setq an (rem an 2PI))
   
7.   (or (<= from (setq an2 an) to)
   
8.       (<= from (setq an2 (+ an PI)) to)
   
9.       (<= from (setq an2 (- an PI)) to)
   
10.       (<= from (setq an2 (a2a (+ an 2PI) from to)) to)
    
11.   )
    
12.   an2
    
13. )
    
14. 
    
15. (defun an2an (ang from to)
    
16.   (setq ang (dtor ang)
    
17.         from(dtor from)
    
18.         to  (dtor to))
    
19.   (rtod (a2a ang from to))
    
20. )
    

<br /> (setq 2PI (+ PI PI)<br />       PI/2 (/ PI 2))<br /> (defun a2a (an from to / an2)<br />   (setq an (rem an 2PI))<br />   (or (<= from (setq an2 an) to)<br />       (<= from (setq an2 (+ an PI)) to)<br />       (<= from (setq an2 (- an PI)) to)<br />       (<= from (setq an2 (a2a (+ an 2PI) from to)) to)<br />   )<br />   an2<br /> )<br /> <br /> (defun an2an (ang from to)<br />   (setq ang (dtor ang)<br />         from(dtor from)<br />         to  (dtor to))<br />   (rtod (a2a ang from to))<br /> )<br />

;|
(an2an -130 -90 90) -> 50.0
(an2an -130 0 180) -> 50.0
(an2an -230 0 180) -> 130.0
(an2an -230 180 360) -> 310.0
(an2an -10 90 270) -> 170
|;

eachy

From to 用 1 2 3 4 不是更好
0 -〉0 & 360
1 -〉90
2 -> 180
3 -> 270

twc999

5楼说得不错,如果在程序一开始就给用户一个选择,这样就会更简单明了.

jx2008

能不能编一个完整的程序贴上来呢？xyp帮我弄了一个，非常好用，在此感谢xyp学院派斑竹。