ynhh 发表于 2022-11-4 22:08:10

求空间三点 的中点

求空间三点 的中点经测试感觉不对？
不知是不是思路错了
请知道的老师指点一下
谢谢

(defun PZ123 (p*1 p*2 p*3)
(list
(* 0.5 (+ (car p*1) (car p*2) (car p*3)))
(* 0.5 (+ (cadr p*1) (cadr p*2) (cadr p*3)))
(* 0.5 (+ (caddr p*1) (caddr p*2) (caddr p*3)))
)
)

(P123 pt1 pt2 pt3)

liuhe 发表于 2022-11-4 22:38:29

(defun MID (po1 po2)
(setq po (MAPCAR '(lambda (X Y Z) (* (+ X Y Z) 0.5)) po1 po2))
)

liuhe 发表于 2022-11-4 22:39:38

三个点 哪来是中点？三个点？

ynhh 发表于 2022-11-4 22:41:43

本帖最后由 ynhh 于 2022-11-4 22:46 编辑

liuhe 发表于 2022-11-4 22:39
三个点 哪来是中点？三个点？
谢谢
可能是我想的不对
后改为重心点，可能就对了
黄工的程序中有三点求重心的
可能就是了
谢谢您的指点


(defun zx (p1 p2 p3)
(inters p1
          (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p2 p3))
          p2
          (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p3))
)
)


或

(mapcar (function (lambda (e1 e2 e3) (/ (+ e1 e2 e3) 3.0))) p1 p2 p3)

vitalgg 发表于 2022-11-4 23:03:53




页: [1]
查看完整版本: 求空间三点 的中点