怎样查找列表中的某一值
现有数据列表如下,第一项 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))
想了半天也没有想出,求教。
嘿嘿!鄙视你一眼,跟用眼睛瞪你一眼,有什么区别。
有哪位多人跳出来,包括什么管理员,什么版主,或维护,或分辩。或指责。
无它,只因Andyhon资格,和楼上的大部分熟悉。老资资。
咱应该对于2楼的发言,表示赞赏,“引用的不错,对我的帮助很大,感谢你在我最火烧屁股时。给了我一本百科全书,”
至于更有几位,回的贴子比我的发言更甚!
你们慢慢玩吧。
吃了别人东西,喝了别人酒。咱再下点东西,岂不快哉!
封ID,封IP,封IP段,悉请尊便。
感谢你后面回的贴子,同时鄙视哪些指手划脚的人。
by!
楼上的好身手,别人2001年回的贴子丢给我,咋不让我新华书店呢,鄙视你。 哈哈,围观一下,别人欠你的啊,该回答你问题吗,没教养没素质 您先参考底下 Round 自定义函式
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/onsnap-lisp-routine/td-p/908049
or more searching.....
http://www.google.com/search?as_q=rem+&hl=zh-CN&num=10&btnG=Google+%E6%90%9C%E5%B0%8B&as_epq=defun+round+&as_oq=&as_eq=&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=&as_rights=&safe=images
楼主太搞笑了.谁说2001的贴子就没有帮助了.你读书读的都是现在才写的书?
(setq lst '(
(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))
)
(setq dmin (read(rtos(* (fix (/ 5.92 0.2)) 0.2) 2 1)))
(setq dmax (read(rtos (* (1+ (fix (/ 5.92 0.2))) 0.2)2 1))))
(assoc dmin lst)(5.8 "20070215" 12.7 13.0 12.6 12.9 1.08311 1.38372e+008 12.7755 1 2 nil)
(assoc dmax lst)(6.0 "20070216" 12.95 13.0 12.55 12.63 0.929523 1.18004e+008 12.6951 1 2 nil)
ugboss 发表于 2010-12-7 22:17 static/image/common/back.gif
楼上的好身手,别人2001年回的贴子丢给我,咋不让我新华书店呢,鄙视你。
這種求教的態度,能幫的也不想幫,我也讓你鄙視吧 无聊老用户 发表于 2010-12-7 22:45 static/image/common/back.gif
楼主太搞笑了.谁说2001的贴子就没有帮助了.你读书读的都是现在才写的书?
这个我知道,关键是assoc.只能取列表前14项的数据,(assoc 1.6 list)返回就是nil,怎么想办法都不行,上午思考了下,可能是我的数据太大了。
我只好写了个子程式,用repeat的方法来解决,速度还行。能够达到要求。 lsjj 发表于 2010-12-7 22:48 static/image/common/back.gif
這種求教的態度,能幫的也不想幫,我也讓你鄙視吧
我怀着一颗谦逊的心,但也希望别人能好好回答,就这样丢给我一个贴子,还是个英文的,算什么。就这样我一本LISP说明,能够回遍明经。
教亦有教,你在这里起什么哄呀。 Andyhon 是论坛的前辈和高手,人家帮了你,你还“鄙视”有点说不过去吧。你还说“怀着一颗谦逊的心”?Andyhon 算是“有教无类”,而没有义务“教亦有教”。 ugboss 发表于 2010-12-8 20:02 static/image/common/back.gif
我怀着一颗谦逊的心,但也希望别人能好好回答,就这样丢给我一个贴子,还是个英文的,算什么。就这样我一 ...
"教亦有教"這個詞也說的出來,真有你的
不是想和你抬槓,隨你怎麼說都行,鄙視你