关于在三角形内画内切圆的难题

yxh1202

版主是采用三点画圆的方式啊，很感谢。

定义三点的行列式,即三点之倍面积

(defun det (p1 p2 p3 / x2 y2)

  (setq x2 (car p2)

 y2 (cadr p2)

  )

  (- (* (- x2 (car p3)) (- y2 (cadr p1)))

     (* (- x2 (car p1)) (- y2 (cadr p3)))

  )

highflybird

，你好，这个函数是计算已知三点所形成的三角形面积，公式可否讲解一下吗。

xyp1964

(defun det (p1 p2 p3 / a b c s)
  (setq a (distance p1 p2)
 b (distance p2 p3)
 c (distance p3 p1)
 s (* (+ a b c) 0.5)
  )
  (sqrt (* s (- s a) (- s b) (- s c)))
)

PEPAN

有没有办法实现批量的呢？？[

PEPAN

即直接选取已有三角形，直接产生内切圆。

阿然

highflybird 发表于 2010-7-15 17:09
利用角平分线定理，设角平分线为AE,   则有 AB/AC = BE/CE,然后按照这个分比，求出坐标。
内切圆 ...

高飞老师几何神人，我真是第一次知道内切圆半径等于三角形面积两倍/周长，学习了。

pannelchen

1. ;三角内切圆,面积
   
2. ;试编的,在2012上运行成功
   
3. 
   
4. (defun getlen(ent)
   
5.     (command "lengthen" ent "")
   
6.     (getvar "perimeter")
   
7.     )
   
8. 
   
9. (defun area3(a b c)
   
10.     (setq s (* (+ a b c) 0.5))
    
11.     (sqrt (* s (- s a) (- s b) (- s c)))
    
12.     )
    
13. (defun get3()
    
14.   (setq en1(entsel"\n指定第一边"))
    
15.   (setq en2(entsel"\n指定第二边"))
    
16. (setq en3(entsel"\n指定第三边"))
    
17. )
    
18. 
    
19. (defun inc3()
    
20.   (setq pa (cadr en1))
    
21.   (setq pb (cadr en2))
    
22.   (setq pc (cadr en3))
    
23.   (command "circle" "3P" "tan" pa "tan" pb "tan" pc)
    
24. )
    
25. 
    
26. (defun c:tri_inc_area()
    
27.           (get3)
    
28.     (inc3)
    
29.     (setq a (getlen (car en1)))
    
30.           (setq b (getlen (car en2)))
    
31.           (setq c (getlen (car en3)))
    
32.           (setq ss (area3 a b c))
    
33.    (alert (strcat "三角形的面积=" (rtos ss)))
    
34. 
    
35.   (prin1)
    
36.   )
    
37. (princ "c:tri_inc_area")

;三角内切圆,面积<br /> ;试编的,在2012上运行成功<br /> <br /> (defun getlen(ent)<br />     (command "lengthen" ent "")<br />     (getvar "perimeter")<br />     )<br /> <br /> (defun area3(a b c)<br />     (setq s (* (+ a b c) 0.5))<br />     (sqrt (* s (- s a) (- s b) (- s c)))<br />     )<br /> (defun get3()<br />   (setq en1(entsel"\n指定第一边"))<br />   (setq en2(entsel"\n指定第二边"))<br /> (setq en3(entsel"\n指定第三边"))<br /> )<br /> <br /> (defun inc3()<br />   (setq pa (cadr en1))<br />   (setq pb (cadr en2))<br />   (setq pc (cadr en3))<br />   (command "circle" "3P" "tan" pa "tan" pb "tan" pc)<br /> )<br /> <br /> (defun c:tri_inc_area()<br />           (get3)<br />     (inc3)<br />     (setq a (getlen (car en1)))<br />           (setq b (getlen (car en2)))<br />           (setq c (getlen (car en3)))<br />           (setq ss (area3 a b c))<br />    (alert (strcat "三角形的面积=" (rtos ss)))<br /> <br />   (prin1)<br />   )<br /> (princ "c:tri_inc_area")