[LISP函数-点]：点是否在多边形内

eachy

2. 
   
3. ;;点 P 是否在多边形 PM 内
   
4. ;;If 'p' is in 'pm', return T.
   
5. ;;'mx' is a very long distance.
   
6. (defun xd-point_inm (p pm / px p1 p2 tf tf1 tf2 mx)
   
7.   (setq mx 1e+100)
   
8.   (setq        px (list (+ mx (car p)) (cadr p))
   
9.         p1 (last pm)
   
10.   )
    
11.   (foreach p2 pm
    
12.     (if        (inters px p p1 p2)
    
13.       (setq tf2        (if (> (cadr p1) (cadr p2))
    
14.                   1
    
15.                   0
    
16.                 )
    
17.             tf        (if (= tf1 tf2)
    
18.                   tf
    
19.                   (not tf)
    
20.                 )
    
21.             tf1        tf2
    
22.       )
    
23.       (setq tf1 nil)
    
24.     )
    
25.     (setq p1 p2)
    
26.   )
    
27.   tf
    
28. )

<br /> ;;点 P 是否在多边形 PM 内<br /> ;;If 'p' is in 'pm', return T.<br /> ;;'mx' is a very long distance.<br /> (defun xd-point_inm (p pm / px p1 p2 tf tf1 tf2 mx)<br />   (setq mx 1e+100)<br />   (setq        px (list (+ mx (car p)) (cadr p))<br />         p1 (last pm)<br />   )<br />   (foreach p2 pm<br />     (if        (inters px p p1 p2)<br />       (setq tf2        (if (> (cadr p1) (cadr p2))<br />                   1<br />                   0<br />                 )<br />             tf        (if (= tf1 tf2)<br />                   tf<br />                   (not tf)<br />                 )<br />             tf1        tf2<br />       )<br />       (setq tf1 nil)<br />     )<br />     (setq p1 p2)<br />   )<br />   tf<br /> )

狂刀

2. 
   
3.   [FONT=courier new]
   
4. (defun ptinpm ( pt lst)
   
5.   (equal PI
   
6.     (abs(apply '+(mapcar '(lambda (x y) (rem (- (angle pt x) (angle pt y)) PI)) (cons (last lst) lst)lst)))
   
7.     1e-4)
   
8. )
   
9.   [/FONT]
   

<br />   [FONT=courier new]<br /> (defun ptinpm ( pt lst) <br />   (equal PI <br />     (abs(apply '+(mapcar '(lambda (x y) (rem (- (angle pt x) (angle pt y)) PI)) (cons (last lst) lst)lst))) <br />     1e-4) <br /> )<br />   [/FONT]<br />