POPPUR爱换

标题: [开源]自编二叉树排序测试小程序[一百万个节点] Fortran 90 [OpenMP]支持多处理器 [打印本页]

作者: Nature 时间: 2008-9-15 17:52
标题: [开源]自编二叉树排序测试小程序[一百万个节点] Fortran 90 [OpenMP]支持多处理器
今天无事写了一个小程序。
一百万个随机生成的字符串通过二叉树算法进行排序（Tree sort).
Windows 可执行文件和Fortran 源代码在附件中

测试结果
Core2 Duo T2370 Vista SP1
Tree sort benchmark - 1M nodes
Number of CPUs available          2
time(s)       speed(nodes/s)       progress
5.4132338          19370       10 %
17.378511          8763       20 %
36.083035          5605       30 %
61.916798          4058       40 %
95.706612          3103       50 %
138.35728          2458       60 %
190.85162          1997       70 %
252.76843          1693       80 %
325.30890          1445       90 %
407.80222          1271       100 %
average speed: 2571.2856    nodes per second

Celeron 540 Linux (Debian Lenny)
Tree sort benchmark - 1M nodes
Number of CPUs available          1
time(s)       speed(nodes/s)       progress
4.5242820          23176       10 %
20.453278          6582       20 %
52.759296          3245       30 %
105.99863          1969       40 %
181.96738          1380       50 %
280.89355          1059       60 %
402.81317          860       70 %
547.45416          724       80 %
714.97266          625       90 %
905.16455          551       100 %
average speed: 1158.4010    nodes per second

ENJOY{wink:]

作者: Nature 时间: 2008-9-15 17:55
忘传附件了[local]1[/local]{blush:] [local]2[/local]

作者: xiaofeng_000 时间: 2008-9-15 17:58
程序呢？

作者: Nature 时间: 2008-9-15 18:00
[attach]921777[/attach]

作者: Nature 时间: 2008-9-15 18:08
[local]1[/local]

作者: [MB] l1 时间: 2008-9-15 18:12
id3位数发帖1位数的潜水艇化石，积分太少传不了了，传到网盘上吧

[ 本帖最后由 [MB] l1 于 2008-9-15 18:14 编辑 ]

作者: Nature 时间: 2008-9-15 18:12
Windows可执行代码太大了，传不上来
只能把代码先传上来。

用gfortran编译。 gfortran可以在这里下载 http://quatramaran.ens.fr/~coudert/gfortran/gfortran-windows.exe
在终端窗口下输入
gfortran -fopenmp -O2 tree-sort.f90 init-rand-seed.f90 tree-bench.f90

作者: [MB] l1 时间: 2008-9-15 18:37
test

[ 本帖最后由 [MB] l1 于 2008-9-15 20:38 编辑 ]

作者: notfishcc 时间: 2008-9-15 18:43
运行到50%程序出错....

作者: Nature 时间: 2008-9-15 18:47

原帖由 notfishcc 于 2008-9-15 18:43 发表
运行到50%程序出错....

出错信息可以分享一下吗

我正在注册一个网络共享存储网站。

作者: notfishcc 时间: 2008-9-15 18:55

原帖由 Nature 于 2008-9-15 18:47 发表

出错信息可以分享一下吗

我正在注册一个网络共享存储网站。

Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

[ 本帖最后由 notfishcc 于 2008-9-15 18:56 编辑 ]

作者: [MB] l1 时间: 2008-9-15 19:40
编译时有平台限制吗？

作者: Nature 时间: 2008-9-15 20:08

原帖由 notfishcc 于 2008-9-15 18:55 发表

Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

我怀疑在你楼上放rar的那个人的电脑里有trojan，从而导致生成的exe破损。
建议大家不要下载那个rar包

作者: xiaofeng_000 时间: 2008-9-15 20:11
60%-70%窗口就自动关闭了
而且4核cpu无法100%利用
只能80%+

作者: Nature 时间: 2008-9-15 20:13

原帖由 [MB] l1 于 2008-9-15 19:40 发表
编译时有平台限制吗？

没有限制。
只要是支持fortran90 和openmp2.5 的编译器都可以。
建议使用gfortran(gcc 4.3 backend)。链接在楼主贴可以找到。

作者: Nature 时间: 2008-9-15 20:16
刚刚申请好一个网络硬盘
http://pickup.mofile.com/3542510506587451
从这个链接可以下载

作者: Nature 时间: 2008-9-15 20:18

原帖由 notfishcc 于 2008-9-15 18:55 发表

Windows Vista直接提示a.exe 已停止工作.....
然后弹出问题报告和解决方案

病毒警报：Microsoft 在您的计算机上检测到 Trojan.PWS.Legmir.AD / W32.Ahlem.A@mm 病毒

!!!!!!!!{sweat:]

那个rar包里可能有木马。建议大家不要下载。

作者: Nature 时间: 2008-9-15 20:20

原帖由 xiaofeng_000 于 2008-9-15 20:11 发表
60%-70%窗口就自动关闭了
而且4核cpu无法100%利用
只能80%+

试试我给的链接里的可执行文件。

作者: [MB] l1 时间: 2008-9-15 20:44

原帖由 Nature 于 2008-9-15 20:18 发表

那个rar包里可能有木马。建议大家不要下载。

直接用你给那个编译器编译的，也是40％后自动退出，木马应该是误报，你网盘那个就大了几十字节，可以运行而且速度快很多，莫非是你给那个编译器有问题？

作者: 肥肉方子 时间: 2008-9-15 21:46
看来楼主，只会在自己的机器上面写程序，不会发布！

作者: xiaofeng_000 时间: 2008-9-15 22:58
Tree sort benchmark - 1M nodes
Number of CPUs available          4
time(s)       speed(nodes/s)       progress
  3.0625000          34238       10 %
  9.1406250          17251       20 %
  17.750000          12179       30 %
  29.390625          9007       40 %
  43.421875          7473       50 %
  60.203125          6248       60 %
  79.234375          5509       70 %
  102.28125          4549       80 %
  127.28125          4194       90 %
  155.17188          3759       100 %
average speed: 6757.5132    nodes per second

作者: Megatron 时间: 2008-9-15 23:41

原帖由 Nature 于 2008-9-15 20:16 发表
刚刚申请好一个网络硬盘
http://pickup.mofile.com/3542510506587451
从这个链接可以下载

提取码？

作者: khseaman 时间: 2008-9-16 00:21
jiong~~~~~~~~~~~~~~~~~~~~~~~~~

作者: itany 时间: 2008-9-16 02:15
E8300 默认

作者: Nature 时间: 2008-9-16 06:05
谢谢大家的支持。{handshake:]

欢迎光临 POPPUR爱换 (https://we.poppur.com/)