[求助]：点集坐标过滤问题

158466939 · 发表于 2008-7-18 23:00:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[PHP](while (setq &pt6 (car &mplt1))
   (setq &mplt1 (cdr &mplt1))
   (if (= (car &pt6) (car &pt5))
(setq &pt8 &pt6)
   )
   (if (= (cadr &pt6) (cadr &pt5))
(setq &pt9 &pt6)
   )
)[/PHP]
为什么可以把X坐标相同从点集&mplt1中过滤出来而Y坐标相同的过滤不出来？

Underway · 发表于 2008-7-19 08:44:33

(if (equal (car &pt6) (car &pt5) 1e-6)
(setq &pt8 &pt6)
)
(if (equal (cadr &pt6) (cadr &pt5) 1e-6)
(setq &pt9 &pt6)
)

;; check usage of equal

158466939 · 发表于 2008-7-21 09:45:40

谢谢楼上的，你能否好人做到底，给我讲下误差1e-6是怎么取的吗？或者告诉下哪里有这个值取法的资料？

Underway · 发表于 2008-7-21 12:28:50

(equal expr1 expr2 [fuzz])
Arguments

expr1

The expression to be compared.

expr2

The expression to compare with expr1.

fuzz

A real number defining the maximum amount by which expr1 and expr2
can differ and still be considered equal.

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

Fuzz 的值依自己的图形所能接受的数值而定,非固定值

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：点集坐标过滤问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子