[求助]：角度修改至0~2pi的问题.

xshrimp

(defun fixang (ang)
  (while (minusp ang) (setq ang (+ ang (* 2 pi))))
  (if (< ang (* 2 pi)) ang   (rem ang (* 2 pi)))
)

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 40) 1)))
6.28319

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 41) 1)))
3.14159

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 42) 1)))
1.96208e-015

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 43) 1)))
3.14159

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 44) 1)))
6.28319

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 45) 1)))
3.14159

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 46) 1)))
6.28319

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 47) 1)))
3.14159

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 48) 1)))
6.28319

命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 49) 1)))
3.14159
命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 50) 1)))
9.82396e-016
命令: (setq ang (angle '(0 0) (polar '(0 0) (* pi 50.0001) 1)))
0.000314159




为什么50pi  42pi时会异常?其他的时候都很正常.

zml84

1e-15，已经很小了，也不能说不正常。