[求助]如何通过位移量来求点座标?

vocabulary · 发表于 2006-4-11 10:38:00

各位前辈
已知一个点pt1的座标为(0 0 0),下一个点pt2的x位移量dst_x为100,下一个点的y位移量
dst_y为30,有没有什么函数直接用这些已知条件求出下一个点pt2的座标?请大家给指点指点好吗？先谢谢了!

;;这是我个人的解法:
(setq ptx (+ (car pt1) dst_x))
(setq pty (+ (cadr pt1) dst_y))
(setq pt2 (list ptx pty 0))

ljpnb · 发表于 2006-4-11 11:06:00

本帖最后由作者于 2006-4-11 13:13:08 编辑

(setq x 100 y 30 )

(setq pt2(mapcar '+ (list x y 0) pt1))或
(setq pt2(mapcar '(lambda (a b) (+ a b)) (list x y 0) pt1 ))

vocabulary · 发表于 2006-4-11 12:05:00

谢谢ljpnb大侠,今天又长见识了!(mapcar)

vocabulary · 发表于 2006-4-11 12:48:00

to:lipnb大侠，如果y的位移量为 -30，x的位移量为100，能用一句(mapcar)同时进行加减吗？

vocabulary · 发表于 2006-4-11 12:56:00

TO：ljpnb大侠，为何代入变量后出错呢？setq pt2(mapcar '+' (dst_x dst_y 0) pt1)) 如果要代入变量该怎么写呢？谢谢！

ljpnb · 发表于 2006-4-11 13:05:00

如果用变量改成第二种形式来求解。

vocabulary · 发表于 2006-4-11 13:12:00

谢谢ljpnb大侠，我再试一试！

ljpnb · 发表于 2006-4-11 13:14:00

其实2楼我起先写错了，现在可以了两种方法可以，还是第一种简捷

vocabulary · 发表于 2006-4-11 13:51:00

谢谢ljpnb大侠，(setq pt2(mapcar '+ (list x y 0) pt1))很好用！I like it very munch!

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