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

二维点p1和p2的中点

有没有找到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

是的，谢谢你关注。
 
非常感谢。
页: [1]
查看完整版本: 二维点p1和p2的中点