求助-程式中定點無法定位到第四象限

lead009

Uploaded with ImageShack.us


這一段程式在繪製"方形序號球"，程式運作起來都正常，唯獨在當角度為第四象限時
數字的定位會出錯，會定位到第三象限，導致數字在方框外。
小弟檢查了好久，仍無法找出錯誤在哪
還請各位指點迷津

3. (defun C:224()
4.   ;;使用者輸入
5.   (setvar "cmdecho" 0)
6.   (setq num(getint"\n輸入起始值<1> "))
7.   (if(null num) (setq num 1))
8.   (setq d1(getdist"\n輸入正方形邊長<10>"))
9.   (if(null d1) (setq d1 10))
10.   ;;while
11.   (while num
12.     (setq ps(getpoint "\n輸入起點"))
13.     (setq pe(getpoint "\n輸入終點" ps))
14.     (setq dd(distance ps pe))
15.     (setq ang(angle ps pe))
16.     (setq pol1 pe)
17.     ;;定義畫矩形用的點
18.     (cond ((and(<= ang (* pi 0.5)) (> ang 0)) (setq pol2(polar pe 0 d1)))
19.    ((and(<= ang pi) (> ang (* pi 0.5))) (setq pol2(polar pe (* 0.5 pi) d1)))
20.    ((and(<= ang (* pi 1.5)) (> ang pi)) (setq pol2(polar pe pi d1)))
21.    ((and(<= ang (* pi 2)) (> ang (* pi 1.5))) (setq pol2(polar pe (* pi 1.5) d1)))   
22.     )
24.     ;;定義"填數字"角度
25.     (cond ((and(<= ang (* pi 0.5)) (> ang 0)) (setq ang1 (* pi 0.25)))
26.    ((and(<= ang pi) (> ang (* pi 0.5))) (setq ang1 (* pi 0.75)))
27.    ((and(<= ang (* pi 1.5)) (> ang pi)) (setq ang1 (* pi 1.25)))
28.    ((and(<= ang 0 ) (> ang (* pi 1.5))) (setq ang1 (* pi 1.75)))   
29.     )
30.    
31.     (command"donut" 0 (/ d1 10) ps "");;畫小圓點
32.     (command"POLYGON" "4" "e" pol1 pol2 );;矩形
33.     (command"line" ps pe "");;直線
34.     (command "text" "m" (polar pe ang1 (* d1 0.7)) (* d1 0.4) 0 (itoa num));;填數字
35.     (setq num(+ num 1))
36.   )
37.   ;;while
38. (prin1)
39. )

(defun C:224()   ;;使用者輸入   (setvar "cmdecho" 0)   (setq num(getint"\n輸入起始值<1> "))   (if(null num) (setq num 1))   (setq d1(getdist"\n輸入正方形邊長<10>"))   (if(null d1) (setq d1 10))   ;;while   (while num     (setq ps(getpoint "\n輸入起點"))     (setq pe(getpoint "\n輸入終點" ps))     (setq dd(distance ps pe))     (setq ang(angle ps pe))     (setq pol1 pe)     ;;定義畫矩形用的點     (cond ((and(<= ang (* pi 0.5)) (> ang 0)) (setq pol2(polar pe 0 d1)))    ((and(<= ang pi) (> ang (* pi 0.5))) (setq pol2(polar pe (* 0.5 pi) d1)))    ((and(<= ang (* pi 1.5)) (> ang pi)) (setq pol2(polar pe pi d1)))    ((and(<= ang (* pi 2)) (> ang (* pi 1.5))) (setq pol2(polar pe (* pi 1.5) d1)))        )     ;;定義"填數字"角度     (cond ((and(<= ang (* pi 0.5)) (> ang 0)) (setq ang1 (* pi 0.25)))    ((and(<= ang pi) (> ang (* pi 0.5))) (setq ang1 (* pi 0.75)))    ((and(<= ang (* pi 1.5)) (> ang pi)) (setq ang1 (* pi 1.25)))    ((and(<= ang 0 ) (> ang (* pi 1.5))) (setq ang1 (* pi 1.75)))        )         (command"donut" 0 (/ d1 10) ps "");;畫小圓點     (command"POLYGON" "4" "e" pol1 pol2 );;矩形     (command"line" ps pe "");;直線     (command "text" "m" (polar pe ang1 (* d1 0.7)) (* d1 0.4) 0 (itoa num));;填數字     (setq num(+ num 1))   )   ;;while (prin1) )

Andyhon

((and (<= ang 0) (> ang (* pi 1.5)))

==>

((and (<= ang (* pi 2)) (> ang (* pi 1.5)))

 

==================

 

(* Pi x) ==> 建議在迴圈外定義,免致重覆運算...

lead009

謝謝你的建議。

 

我有個疑問

ang 0    ang (* pi 2)

 

這兩個意思不是相同的嗎？怎麼會產生不同的結果呢??

 

Andyhon

(* Pi 2) -->  6.2831853+

 

 (* pi 2) < ang < (* Pi 1.5)

 

0 < ang < (* Pi 1.5) 則出錯

lead009

恩，這樣我懂了

雖然角度是一樣的，但是轉換成弳度一個是0，一是6.28。

謝謝你的解釋