[求助](已解决) polar 函数出错,为什么?

luojie454870

请问为什么输入以下代码后返还: (6.12323e-017 1.0)

2. (setq
3.    j^ (polar (list 0 0) (* 0.5 pi) 1)
4. )

(setq    j^ (polar (list 0 0) (* 0.5 pi) 1) )

按道理应该返还: (0 1)

具体情况如下:

2. _$  (setq
3.     j^ (polar (list 0 0) (* 0.5 pi) 1))
4. (6.12323e-017 1.0)
5. _$
6. _$

_$  (setq     j^ (polar (list 0 0) (* 0.5 pi) 1)) (6.12323e-017 1.0) _$ _$

caoyin

实数的误差,在LISP中，实数、或点的比较用equal

(setq  j^ (polar (list 0 0) (* 0.5 pi) 1))
(equal j^ '(0 1) 0.00001)--->T

luojie454870

谢谢版主..

我想可能是这样的..

这个代码

(polar (list 0 0) (* 0.5 pi) 1))

运算是 由内而外的故顺序为:  (* 0.5 pi)--> (polar p ag dist)

而(* 0.5 pi)=无限不循环小数=0.5pi 

这个数经误差处理获得一个数ag = 0.5pi±Δ  ≈ 0.5pi

而这个(polar p 0.5pi±Δ  dist) = (6.12323e-017 1.0) ≈ (0 1)

而版主所说的(equal j^ '(0 1) 0.00001),

我想那个0.00001是给的误差范围吧...