如何从表中 查找第一个数据最接近于0的那对数据 然后替换

f4800

如何从表中  查找第一个数据最接近于0的那对数据   然后替换
比如
示例1
(
(-20.0 332.96)
(-19.2385 333.12)
(-17.8847 332.14)
(-11.091 332.24)
(-4.16108 332.2)
(-2.79833 333.81)
(0.0444494 333.79)       这一对数据的第一个数据最接近 0 ，  然后修改替换为  0   333.79
(1.47892 333.76)
(2.8191 333.9)
(5.13449 331.96)
(9.74579 331.8)
(12.0496 333.53)
(14.9349 333.68)
(20.0 333.85)
)



示例2
(
(-20.0 332.96 326)
(-19.2385 333.12 326)
(-17.8847 332.14 326)
(-11.091 332.24 326)
(-4.16108 332.2 326)
(-2.79833 333.81 326)
(-0.0564 333.79 326)       这一对数据的第一个数据最接近 0 ，  然后修改替换为  0   333.79  326
(1.47892 333.76 326)
(2.8191 333.9 326)
(5.13449 331.96 326)
(9.74579 331.8 326)
(12.0496 333.53 326)
(14.9349 333.68 326)
(20.0 333.85 326)
)

请问这里如何实现？  多谢了

多谢

紫苏炒黄瓜

2. (setq jin0
   
3.         (apply 'min
   
4.                 (mapcar
   
5.                         (function
   
6.                                 (lambda (x)
   
7.                                         (abs (car x))
   
8.                                 )
   
9.                         )
   
10.                         LST
    
11.                 )
    
12.         )
    
13. )
    
14. (or
    
15.         (setq lst_jin0 (assoc (* jin0 -1) lst))
    
16.         (setq lst_jin0 (assoc jin0 lst))
    
17. )
    
18. (subst (list 0.0 (cadr lst_jin0)) lst_jin0 lst)

(setq jin0<br />         (apply 'min <br />                 (mapcar <br />                         (function <br />                                 (lambda (x)<br />                                         (abs (car x))<br />                                 )<br />                         )<br />                         LST<br />                 )<br />         )<br /> )<br /> (or <br />         (setq lst_jin0 (assoc (* jin0 -1) lst))<br />         (setq lst_jin0 (assoc jin0 lst))<br /> )<br /> (subst (list 0.0 (cadr lst_jin0)) lst_jin0 lst)

试试

f4800

紫苏炒黄瓜 发表于 2022-3-13 23:09
试试

可行  大师。。。