mapcar效率与lambda函数有关

newer

pengfei2010 发表于 2013-6-3 21:18
再次传上测试文件

http://bbs.xdcad.net/thread-668610-1-1.html

这个帖子里面有 wowan1314 的测试函数，里面有时间计时的， 你多建立些多边形，对MAPCAR来说，40个太小了。

写个完整的测试吧，公布下每个的具体运行时间。

newer

pengfei2010 发表于 2013-6-3 20:58
我思考过，跟append没有关系，以为append只运行了一次，主要是把所有图元的组码放到一个大表里面，方便下 ...

对于刚才说的

(setq zmlst (apply 'append (mapcar '(lambda(x) (entget x)) ents)))(length zmlst)

这句，你看是一个APPEND，可是参数是很多表，对大量的表，每个元素都遍历，速度很慢的。
哪怕即使你想用APPEND，也应该在把entget没用的数据剔除后，留下顶点的时候，再APPEND，省去很多没用的数据浪费的时间。

QiaoCheng

俺试了下这么个情况
111 用时  0.4850  秒
222 用时  0.7660  秒
333 用时  1.1250  秒
444 用时  0.4060  秒

不知道还有谁测试是不同的？

{:soso_e113:}还好最近在研究apply没白浪费时间

dnbcgrass

444改为如下555一试：

2. 
   
3. (defun c:555 (); ents lst ss x zmlst)   ; test_mapcar
   
4.   (setq ss (ssget '((0 . "LWPOLYLINE")))
   
5.         lst nil
   
6.         zmlst nil
   
7.   )
   
8.   (setq ents (cpf-ss->ents ss))
   
9.   (mapcar
   
10.     '(lambda (x)
    
11.        (mapcar
    
12.          '(lambda (y)
    
13.             (setq lst (cons y lst))
    
14.           )
    
15.          (mapcar
    
16.            'cdr
    
17.            (vl-remove-if-not '(lambda (y)
    
18.                                 (= (car y) 10)
    
19.                               ) (entget x)
    
20.            )
    
21.          )
    
22.        )
    
23.      )
    
24.     ents
    
25.   )
    
26.   (length lst)
    
27. )
    

<br /> (defun c:555 (); ents lst ss x zmlst)   ; test_mapcar<br />   (setq ss (ssget '((0 . "LWPOLYLINE")))<br />         lst nil<br />         zmlst nil<br />   )<br />   (setq ents (cpf-ss->ents ss))<br />   (mapcar<br />     '(lambda (x)<br />        (mapcar<br />          '(lambda (y)<br />             (setq lst (cons y lst))<br />           )<br />          (mapcar<br />            'cdr<br />            (vl-remove-if-not '(lambda (y)<br />                                 (= (car y) 10)<br />                               ) (entget x)<br />            )<br />          )<br />        )<br />      )<br />     ents<br />   )<br />   (length lst)<br /> )<br />

XDSoft

QiaoCheng 发表于 2013-6-3 21:51
俺试了下这么个情况
111 用时  0.4850  秒
222 用时  0.7660  秒

你用的哪个测试的？

XDSoft

dnbcgrass 发表于 2013-6-3 22:03
444改为如下555一试：

这个代码把14楼NEWER的代码几个MAPCAR合并到一起了。两个的效率应该是一样的。一个代码短，一个更容易读懂。各有千秋。

QiaoCheng

=====================================
对象40个的情况下
111 用时  0.4850  秒 (while)
222 用时  0.7660  秒 (repeat)
333 用时  1.1250  秒 (foreach)
444 用时  0.4060  秒 (mapcar)
=====================================
对象80个的情况下
用时  0.8590  秒  (while)
用时  1.3130  秒  (repeat)
用时  3.1400  秒  (foreach)
用时  0.7350  秒  (mapcar)
=====================================
对象640个的情况下  
用时  7.3750  秒   (while)
用时  11.2970 秒   (repeat)
机子崩溃了{:soso_e109:}         (foreach)   用时  171.4530
用时  7.6560  秒   (mapcar)

楼主您的四种代码是不是每种都保证是最大优化的？

前三个用楼主的，第四个用newer的

dnbcgrass

本人测试：
111耗时：0.469387
222耗时：0.704080
333耗时：1.139939
555耗时：0.342727

QiaoCheng

dnbcgrass
对象640个的情况下
555 用时  5.6090  秒 640000

XDSoft

dnbcgrass 发表于 2013-6-3 22:14
本人测试：
111耗时：0.469387
222耗时：0.704080

多建立些多边形测试下，贴下结果。

pengfei2010

晕倒，不知道你们在搞什么，不能修改我的程序，要不然算法就不公平了！！！我是在同一种算法下测试的！

pengfei2010

为什么你们用mapcar会这么快啊啊，我用mapcar会要好长时间。另外 千万不要改我的代码！！！

pengfei2010

难道是我的cad问题，同样的代码 在我电脑上会相差这么大？

QiaoCheng

测试应该是在大家代码已经到了没办法再优化的基础上
才进行测试才有意义吧？

dnbcgrass

算法是一致的：取多段线节点的坐标表放入表中。只不过是你选择了开汽车到罗马的方式，当然不如坐飞机快啦！