三角形旁心（一边与另外两边延长线相切圆圆心）

newer

1. ;;三角形旁心（一边与另外两边延长线相切圆圆心）,函数返回第一个点对边方向的旁切圆圆心
   
2. (defun XD::Geom:TriangleNheart (p1 p2 p3 / v1 v12 v13 v2 v21 v23)
   
3.    (setq v13 (xdrx_vector_normalize (mapcar '- p3 p1))
   
4.          v12 (xdrx_vector_normalize (mapcar '- p2 p1))
   
5.          v1 (mapcar '+ v13 v12)
   
6.          v23 (xdrx_vector_normalize (mapcar '- p3 p2))
   
7.          v21 (xdrx_vector_normalize (mapcar '- p2 p1))
   
8.          v2 (mapcar '+ v23 v21)
   
9.    )
   
10.    (inters p1 (mapcar '+ p1 v1) p2 (mapcar '+ p2 v2) nil)
    
11. )
    
12. 
    

;;三角形旁心（一边与另外两边延长线相切圆圆心）,函数返回第一个点对边方向的旁切圆圆心<br /> (defun XD::Geom:TriangleNheart (p1 p2 p3 / v1 v12 v13 v2 v21 v23)<br />    (setq v13 (xdrx_vector_normalize (mapcar '- p3 p1))<br />          v12 (xdrx_vector_normalize (mapcar '- p2 p1))<br />          v1 (mapcar '+ v13 v12)<br />          v23 (xdrx_vector_normalize (mapcar '- p3 p2))<br />          v21 (xdrx_vector_normalize (mapcar '- p2 p1))<br />          v2 (mapcar '+ v23 v21)<br />    )<br />    (inters p1 (mapcar '+ p1 v1) p2 (mapcar '+ p2 v2) nil)<br /> )<br /> <br />

st788796

1. (defun ff (p1 p2 p3)
   
2.   (inters p1
   
3.           (c:cal "(p2+pld(p1,p3,abs(p1-p2)))/2")
   
4.           p3
   
5.           (c:cal "(p2+pld(p1,p3,(abs(p3-p2)+abs(p1-p3))))/2")
   
6.           nil
   
7.   )
   
8. )

(defun ff (p1 p2 p3)<br />   (inters p1<br />           (c:cal "(p2+pld(p1,p3,abs(p1-p2)))/2")<br />           p3<br />           (c:cal "(p2+pld(p1,p3,(abs(p3-p2)+abs(p1-p3))))/2")<br />           nil<br />   )<br /> )

Free-Lancer

继续

1. (defun ff (p1 p2 p3)
   
2.   (c:cal
   
3.     "ill(p1,plt(p2,pld(p1,p3,abs(p1-p2)),0.5),p3,plt(p2,pld(p1,p3,abs(p3-p2)+abs(p1-p3)),0.5))"
   
4.   )
   
5. )

(defun ff (p1 p2 p3)<br />   (c:cal<br />     "ill(p1,plt(p2,pld(p1,p3,abs(p1-p2)),0.5),p3,plt(p2,pld(p1,p3,abs(p3-p2)+abs(p1-p3)),0.5))"<br />   )<br /> )