两个函数，计算三角形面积和任意多边形面积...

XDSoft

下面的求得的面积 逆时针为正，顺时针为负。若不考虑方向，最后求得的面积请用(abs area)求绝对值。

2. 
   
3. ;;; 返回三角形 p1p2p3 的面积.
   
4. (defun tarea (p1 p2 p3)
   
5.   (- (+ (* (car p1) (cadr p2)) (* (car p2) (cadr p3)) (* (car p3)
   
6.                              (cadr p1)
   
7.                               )
   
8.     ) (* (car p1) (cadr p3)) (* (car p2) (cadr p1)) (* (car p3)
   
9.                             (cadr p2)
   
10.                             )
    
11.   )
    
12. )
    
13. ;;; 返回由表 L1 构成的多边形面积.
    
14. (defun parea (l1 / s x1 y1 x2 y2 p1)
    
15.   (setq s 0.
    
16.     p1 (last l1)
    
17.     x1 (car p1)
    
18.     y1 (cadr p1)
    
19.   )
    
20.   (foreach p1 l1
    
21.     (setq x2 (car p1)
    
22.       y2 (cadr p1)
    
23.       s (- (+ s (* x1 y2)) (* x2 y1))
    
24.       x1 x2
    
25.       y1 y2
    
26.     )
    
27.   )
    
28.   s
    
29. )
    

<br /> ;;; 返回三角形 p1p2p3 的面积. <br /> (defun tarea (p1 p2 p3) <br />   (- (+ (* (car p1) (cadr p2)) (* (car p2) (cadr p3)) (* (car p3) <br />                              (cadr p1) <br />                               ) <br />     ) (* (car p1) (cadr p3)) (* (car p2) (cadr p1)) (* (car p3) <br />                             (cadr p2) <br />                             ) <br />   ) <br /> ) <br /> ;;; 返回由表 L1 构成的多边形面积. <br /> (defun parea (l1 / s x1 y1 x2 y2 p1) <br />   (setq s 0. <br />     p1 (last l1) <br />     x1 (car p1) <br />     y1 (cadr p1) <br />   ) <br />   (foreach p1 l1 <br />     (setq x2 (car p1) <br />       y2 (cadr p1) <br />       s (- (+ s (* x1 y2)) (* x2 y1)) <br />       x1 x2 <br />       y1 y2 <br />     ) <br />   ) <br />   s <br /> ) <br />