[求助]：简单问题求教，已知两点座标，求连线的中点座标

jinsong-liao · 发表于 2004-12-16 14:58:47

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

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

×

已知两点座标，求两点连线的中点座标，不能绘出连线。
论坛中肯定讨论过多次，搜索半天没搜到，水平有限哟！

czg09180274 · 发表于 2004-12-16 15:21:18

(setq qd '(x1 y1))
(setq qdx (car qd))
(setq qdy (cadr qd))
(setq zd '(x2 y2))
(setq zdx (car zd))
(setq zdy (cadr zd))

(setq midx (/ (+ qdx zdx) 2))
(setq midy (/ (+ qdy zdy) 2))
；；；中点坐标
(setq midpt (list midx midy))

jinsong-liao · 发表于 2004-12-16 15:29:44

谢谢czg09180274指点！

Free-Lancer · 发表于 2004-12-16 17:32:32

(defun fmidp (p1 p2)
(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)
)

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

[求助] [求助]：简单问题求教，已知两点座标，求连线的中点座标

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

相关帖子

浏览过的版块