[LISP函数-点集]：返回由表 L1 构成的多边形面积.

eachy

2. 
   
3. ;;; 返回由表 L1 构成的多边形面积.
   
4. (defun xd-points_area (l1 / s x1 y1 x2 y2 p1)
   
5.   (setq        s  0.
   
6.         p1 (last l1)
   
7.         x1 (car p1)
   
8.         y1 (cadr p1)
   
9.   )
   
10.   (foreach p1 l1
    
11.     (setq x2 (car p1)
    
12.           y2 (cadr p1)
    
13.           s  (- (+ s (* x1 y2)) (* x2 y1))
    
14.           x1 x2
    
15.           y1 y2
    
16.     )
    
17.   )
    
18.   s
    
19. )

<br /> ;;; 返回由表 L1 构成的多边形面积.<br /> (defun xd-points_area (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 /> )

taner

能否再解釋一下,看得不是很明白.
一個點表構成的多邊形可能有好多種.

yshf

斑竹：
    你的程序计算结果不正确，应改为如下：

2. ;;; 返回由表 L1 构成的多边形面积.
   
3. (defun xd-points_area (l1 / s x1 y1 x2 y2 p1)
   
4.   (setq        s  0.
   
5.         p1 (last l1)
   
6.         x1 (car p1)
   
7.         y1 (cadr p1)
   
8.   )
   
9.   (foreach p1 l1
   
10.     (setq x2 (car p1)
    
11.           y2 (cadr p1)
    
12.           s  (- (+ s (* x1 y2)) (* x2 y1))
    
13.           x1 x2
    
14.           y1 y2
    
15.     )
    
16.   )
    
17.   (* 0.5 (abs s))
    
18. )

;;; 返回由表 L1 构成的多边形面积.<br /> (defun xd-points_area (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 />   (* 0.5 (abs s))<br /> )

mapinfo600

程序很不严谨,建议学学图形学

eachy

最初由 mapinfo600 发布
[B]程序很不严谨,建议学学图形学 [/B]

http://spaces.msn.com/members/tuxw/Blog/cns!1p1KRL2snDHMdTagFMfJCgKg!160.entry

[iframe h=600 w=100%]http://spaces.msn.com/members/tuxw/Blog/cns!1p1KRL2snDHMdTagFMfJCgKg!160.entry[/iframe]