二维点p1和p2的中点

wimal · 发表于 2022-7-5 18:26:49

有没有找到p1和p2中点（2Dpoints）的捷径
Lisp程序。

Tharwat · 发表于 2022-7-5 18:41:44


(setq p3 (mapcar '(lambda (q p) (/ (+ q p) 2.)) p1 p2))

Tharwat · 发表于 2022-7-5 18:41:59

另一个让我想起了过去


(setq p3 (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.)))

wimal · 发表于 2022-7-5 18:55:32

谢谢，两个代码都有效。

Tharwat · 发表于 2022-7-5 18:57:02

不客气。

BIGAL · 发表于 2022-7-5 19:05:46

第一个是55个字符第二个是58个只是一些琐事

hanhphuc · 发表于 2022-7-5 19:15:25

不管好坏

Lee Mac · 发表于 2022-7-5 19:21:49

请注意，此方法仅适用于平行于UCS平面的平面中的共面点，因为三维点将通过角度函数投影到UCS平面。

Tharwat · 发表于 2022-7-5 19:27:21

是的，谢谢你关注。

非常感谢。

[编程交流] 二维点p1和p2的中点