怎样查找列表中的某一值

ugboss

现有数据列表如下，第一项 6.0 ，5.8， 5.6... 0 代表X坐标，都是0.2的倍数。
现有交点坐标5.92，怎样判断在5.8-6.0之间，并将5.8后的数值与6.0的数据读出写在对应的坐标点上，
((6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil)
(5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)
(5.6 "20070214" 12.74 13.2 12.52 12.68 1.86107 2.39952e+008 12.8932 1 2 nil)
.........
(0 "20070105" 7.68 8.2 7.65 8.18 2.36777 1.88621e+008 7.9662 1 2 nil))

想了半天也没有想出，求教。

ugboss

嘿嘿！鄙视你一眼，跟用眼睛瞪你一眼，有什么区别。
有哪位多人跳出来，包括什么管理员，什么版主，或维护，或分辩。或指责。
无它，只因Andyhon资格，和楼上的大部分熟悉。老资资。
咱应该对于2楼的发言，表示赞赏，“引用的不错，对我的帮助很大，感谢你在我最火烧屁股时。给了我一本百科全书，”
至于更有几位，回的贴子比我的发言更甚！
你们慢慢玩吧。
吃了别人东西，喝了别人酒。咱再下点东西，岂不快哉！
封ID,封IP，封IP段,悉请尊便。
感谢你后面回的贴子，同时鄙视哪些指手划脚的人。
by!

ugboss

楼上的好身手，别人2001年回的贴子丢给我，咋不让我新华书店呢，鄙视你。

Mai1993

哈哈，围观一下，别人欠你的啊，该回答你问题吗，没教养没素质

Andyhon

您先参考底下 Round 自定义函式
http://forums.autodesk.com/t5/Vi ... routine/td-p/908049

or more searching.....
http://www.google.com/search?as_ ... ts=&safe=images

无聊老用户

楼主太搞笑了.谁说2001的贴子就没有帮助了.你读书读的都是现在才写的书?

2. 
   
3. (setq lst '(
   
4. (6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil)
   
5. (5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)
   
6. (5.6 "20070214" 12.74 13.2 12.52 12.68 1.86107 2.39952e+008 12.8932 1 2 nil)
   
7. 
   
8. (0 "20070105" 7.68 8.2 7.65 8.18 2.36777 1.88621e+008 7.9662 1 2 nil))
   
9. )
   
10. 
    
11. (setq dmin   (read(rtos(* (fix (/ 5.92 0.2)) 0.2) 2 1)))
    
12. (setq dmax   (read(rtos (* (1+ (fix (/ 5.92 0.2))) 0.2)2 1))))
    
13. 
    
14. (assoc dmin lst)(5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)
    
15. (assoc dmax lst)(6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil)
    

<br /> (setq lst '(<br /> (6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil) <br /> (5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)<br /> (5.6 "20070214" 12.74 13.2 12.52 12.68 1.86107 2.39952e+008 12.8932 1 2 nil) <br /> <br /> (0 "20070105" 7.68 8.2 7.65 8.18 2.36777 1.88621e+008 7.9662 1 2 nil))<br /> )<br /> <br /> (setq dmin   (read(rtos(* (fix (/ 5.92 0.2)) 0.2) 2 1)))<br /> (setq dmax   (read(rtos (* (1+ (fix (/ 5.92 0.2))) 0.2)2 1))))<br /> <br /> (assoc dmin lst)(5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)<br /> (assoc dmax lst)(6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil)<br />

lsjj

ugboss 发表于 2010-12-7 22:17
楼上的好身手，别人2001年回的贴子丢给我，咋不让我新华书店呢，鄙视你。

這種求教的態度,能幫的也不想幫,我也讓你鄙視吧

ugboss

无聊老用户 发表于 2010-12-7 22:45
楼主太搞笑了.谁说2001的贴子就没有帮助了.你读书读的都是现在才写的书?

这个我知道，关键是assoc.只能取列表前14项的数据，(assoc 1.6 list)返回就是nil,怎么想办法都不行，上午思考了下，可能是我的数据太大了。
我只好写了个子程式，用repeat的方法来解决，速度还行。能够达到要求。

ugboss

lsjj 发表于 2010-12-7 22:48
這種求教的態度,能幫的也不想幫,我也讓你鄙視吧

我怀着一颗谦逊的心，但也希望别人能好好回答，就这样丢给我一个贴子，还是个英文的，算什么。就这样我一本LISP说明，能够回遍明经。
  教亦有教，你在这里起什么哄呀。

caoyin

Andyhon 是论坛的前辈和高手，人家帮了你，你还“鄙视”有点说不过去吧。你还说“怀着一颗谦逊的心”？Andyhon 算是“有教无类”，而没有义务“教亦有教”。

lsjj

ugboss 发表于 2010-12-8 20:02
我怀着一颗谦逊的心，但也希望别人能好好回答，就这样丢给我一个贴子，还是个英文的，算什么。就这样我一 ...

"教亦有教"這個詞也說的出來,真有你的
不是想和你抬槓,隨你怎麼說都行,鄙視你