用二阶行列式法计算点表面积，带符号

lishucheng96

1. ;;参数:lst:点表，格式((x1 y1)(x2 y2)(x3 y3)(x4 y4)(x5 y5))
   
2. ;;返回：面积值，顺时针为负，逆时针为正
   
3. ;|
   
4. (defun c:tst()
   
5.   (setq lst (list
   
6.                 '(28.375 314.517)
   
7.                 '(397.730 127.575)
   
8.                 '(944.173 155.364)
   
9.                 '(1058.016 319.569)
   
10.                 '(622.885 544.405)
    
11.                 '(139.688 438.303)
    
12.             )        
    
13.   )
    
14.   (princ (rtos (lst_area lst) 2 6))
    
15. )
    
16. |;
    
17. ;;by:半边书生
    
18. (defun lst_area(lst / nn ss x1 y1 x2 y2)
    
19.         ;...公式：Area=1/2*(x1*y2-x2*y1+x2*y3-x3*y2+... ...+xn*x1-x1*yn)
    
20.         (setq nn 0 ss 0)
    
21.         ;将首点坐标插入到尾点以后
    
22.         (setq lst (append lst (list (car lst))))
    
23.         ;开始循环求值
    
24.         (while (< nn (- (length lst) 1))
    
25.                  (setq x1 (car (nth nn lst))
    
26.                              y1 (cadr (nth nn lst))
    
27.                              x2 (car (nth (1+ nn) lst))
    
28.                              y2 (cadr (nth (1+ nn) lst))
    
29.                  )
    
30.                  (setq ss (+ ss (* x1 y2) (* -1 x2 y1)))
    
31.                  (setq nn (1+ nn))
    
32.         )
    
33.         ;除以2得面积
    
34.         (setq ss (/ ss 2))
    
35. );end

;;参数:lst:点表，格式((x1 y1)(x2 y2)(x3 y3)(x4 y4)(x5 y5))<br /> ;;返回：面积值，顺时针为负，逆时针为正<br /> ;|<br /> (defun c:tst()<br />   (setq lst (list <br />                 '(28.375 314.517)<br />                 '(397.730 127.575)<br />                 '(944.173 155.364)<br />                 '(1058.016 319.569)<br />                 '(622.885 544.405)<br />                 '(139.688 438.303)<br />             )        <br />   )<br />   (princ (rtos (lst_area lst) 2 6))<br /> )<br /> |;<br /> ;;by:半边书生<br /> (defun lst_area(lst / nn ss x1 y1 x2 y2)<br />         ;...公式：Area=1/2*(x1*y2-x2*y1+x2*y3-x3*y2+... ...+xn*x1-x1*yn)<br />         (setq nn 0 ss 0)<br />         ;将首点坐标插入到尾点以后<br />         (setq lst (append lst (list (car lst))))<br />         ;开始循环求值<br />         (while (< nn (- (length lst) 1))<br />                  (setq x1 (car (nth nn lst))<br />                              y1 (cadr (nth nn lst))<br />                              x2 (car (nth (1+ nn) lst))<br />                              y2 (cadr (nth (1+ nn) lst))<br />                  )<br />                  (setq ss (+ ss (* x1 y2) (* -1 x2 y1)))<br />                  (setq nn (1+ nn))<br />         )<br />         ;除以2得面积<br />         (setq ss (/ ss 2))<br /> );end

yoyoho

谢谢! 分享学习!!!!

czb203

这个也很好，也谢谢你