如何根据X坐标在表中找出前后点

shiyan001

如点表（（2000 210）（2100 180） （2120 189）（2160 192）（2230 187）） ，点表中x坐标由小到大，很有规律，如果已知某点p的x坐标2130，如何在点表中找出该点的前一个点（2120 189）和后一个点（2160 192），并插值计算出点p的y坐标。插值我会，如何找到前后两个点是关键。请高手帮忙。

vectra

1. (defun search (x alist / lb)
   
2.   (while (and (> (length alist) 0) (< (caar alist) x))
   
3.     (setq lb        (car alist)
   
4.           alist        (cdr alist)
   
5.     )
   
6.   )
   
7.   (list lb (car alist))
   
8. )

(defun search (x alist / lb)<br />   (while (and (> (length alist) 0) (< (caar alist) x))<br />     (setq lb        (car alist)<br />           alist        (cdr alist)<br />     )<br />   )<br />   (list lb (car alist))<br /> )

_$ (search 2130 '((2000 210)(2100 180) (2120 189)(2160 192)(2230 187)))
((2120 189) (2160 192))

wowan1314

我动作还是太慢了！！
一个是遍历，一个不是遍历的

2. ;;(SETQ LST '( (1 12) (2 22) (3 33) (4 44)))
   
3. ;;(T11 2.5 LST) = ((2 22) (3 33))
   
4. (defun T11 (A LST / AB A0)
   
5.   (vl-member-if
   
6.   '(lambda(X)
   
7.     (if (<= (car A0) A (car X))
   
8.       (setq AB (list A0 X))
   
9.       (setq A0 X AB NIL)
   
10.     )
    
11.   )
    
12.   LST
    
13.   )
    
14.   AB
    
15. )

;;(SETQ LST '( (1 12) (2 22) (3 33) (4 44)))<br /> ;;(T11 2.5 LST) = ((2 22) (3 33))<br /> (defun T11 (A LST / AB A0)<br />   (vl-member-if<br />   '(lambda(X)<br />     (if (<= (car A0) A (car X))<br />       (setq AB (list A0 X))<br />       (setq A0 X AB NIL)<br />     )<br />   )<br />   LST<br />   )<br />   AB<br /> )

2. ;;(SETQ LST '( (1 12) (2 22) (3 33) (4 44)))
   
3. ;;(T11 2.5 LST) = ((2 22) (3 33))
   
4. (defun T11 (A LST)
   
5.   (mapcar
   
6.         '(lambda(X Y)
   
7.           (if (<= (car X) A (car Y))
   
8.             (setq AB (list X Y))
   
9.           )
   
10.         )
    
11.         LST (cdr LST)
    
12.   )
    
13.   AB
    
14. )

;;(SETQ LST '( (1 12) (2 22) (3 33) (4 44)))<br /> ;;(T11 2.5 LST) = ((2 22) (3 33))<br /> (defun T11 (A LST)<br />   (mapcar<br />         '(lambda(X Y)<br />           (if (<= (car X) A (car Y))<br />             (setq AB (list X Y))<br />           )<br />         )<br />         LST (cdr LST)<br />   )<br />   AB<br /> )

阿然

(last (vl-remove (member pt pts) pts))这是前一个(cadr (member pt pts))是后一个，求更好的方法

shiyan001

谢谢各位了，追问：如果在点表中已经有与该点x坐标相等的点，则不再查找。程序应该怎样改。

vectra

确保点是整数时

(assoc 2120 '((2000 210)(2100 180) (2120 189)(2160 192)(2230 187)))

返回

（2120 189）

可以通用测试是否有返回值来判断。浮点数存在误差 必须对表进行遍历。

shiyan001

我明白了，谢谢各位了。