求空间三点 的中点

ynhh

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

(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

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

liuhe

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

ynhh

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