三角形重心（中线交点）

newer

1. ;;三角形重心（中线交点）
   
2. (defun XD::Geom:TriangleCentroid(p1 p2 p3 / ge1 ge2 p_1 p_2)  
   
3.    (xdrx_points_centroid p1 p2 p3)
   
4. )
   

;;三角形重心（中线交点）<br /> (defun XD::Geom:TriangleCentroid(p1 p2 p3 / ge1 ge2 p_1 p_2)  <br />    (xdrx_points_centroid p1 p2 p3)<br /> )<br />

/db_自贡黄明儒_

2. ;;[功能] 两点中点
   
3. (defun HH::2PMid (p1 p2 / X Y)
   
4.   (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)
   
5. )
   
6. ;;三角形重心（中线交点）
   
7. (defun XD::Geom:TriangleCentroid (p1 p2 p3)
   
8.   (inters (HH::2PMid p1 p2) p3 (HH::2PMid p2 p3) p1)
   
9. )

;;[功能] 两点中点<br /> (defun HH::2PMid (p1 p2 / X Y)<br />   (mapcar '(lambda (X Y) (* (+ X Y) 0.5)) P1 P2)<br /> )<br /> ;;三角形重心（中线交点）<br /> (defun XD::Geom:TriangleCentroid (p1 p2 p3)<br />   (inters (HH::2PMid p1 p2) p3 (HH::2PMid p2 p3) p1)<br /> )

st788796

/db_自贡黄明儒_ 发表于 2014-10-16 16:47

1. (defun triangle:center (p1 p2 p3)
   
2.   (c:cal "(p1+p2+p3)/3")
   
3. )

(defun triangle:center (p1 p2 p3)<br />   (c:cal "(p1+p2+p3)/3")<br /> )