[准备/原创]:亲身体验多核/超线程

[大熊猫侯佩]

背包问题，我写了两个版本的算法程序，bag 和 bag-mt 其中后者是多线程版本，其
使用 4 线程分段计算验证，编写语言是 ASM ,感性趣的可以索取源代码。
计算耗时结果如下:

在计算 2^24 方时:

bag : 平均耗时 5500 ms

bag-mt : 平均耗时 5050 ms

我的cpu为 AMD 2400+ ，各位看官可能要奇怪了，这个不是超线程或多核处理器啊？
的确，我还没在多核上试(全部倒！)，以下是测试计划:

AMD 2800+ 64bit

intel 至强 超线程 2.4GB x 2 logic

intel 至强 物理双cpu，每个都是超线程 2.4 x 2 logic (一共4个逻辑cpu)

各位期待吧，呵呵

[Scarroot]

可以把源代码贴出来吗？

[大熊猫侯佩]

bag:

.386
.model flat,stdcall
option casemap:none

include c:\masm32\include\windows.inc
include c:\masm32\include\user32.inc
includelib c:\masm32\lib\user32.lib
include c:\masm32\include\kernel32.inc
includelib c:\masm32\lib\kernel32.lib

CDim equ 28

.const
wet db 220,56,79,135,21,5,175,90,11,153 ;KG
db 25,68,123,35,8,94,207,2,67,159
db 78,34,43,12,167,231,12,54,98,32
db 65,146,57,234,65,93,56,243,8,56
val db 60,100,45,26,90,10,57,240,136,230 ;$
db 78,34,7,23,89,250,129,94,45,24
db 56,89,34,124,78,5,45,234,89,32
db 34,72,50,147,180,210,45,18,69,94
limwet dd 400 ;Limit Wet
two dd 2
ft db 'TTs == %d ,MaxWet == %d , MaxVal == %d ,TakeTime == %d',0
cp db 'Windows XP',0

.data?
MaxVal dd ?
MaxWet dd ?
nbn dd ?
tmptime dd ?
TTs dd ?
buf db 256 dup(?)

.code
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
EnumCt proc
local TmpWet
local i

mov nbn,1
mov TmpWet,0

.while nbn<=0fffffffh ;2^CDim - 1
mov i,0
xor ebx,ebx
.while i<CDim
mov eax,i

bt nbn,eax
.if CARRY?
mov al,wet[eax]
and eax,0ffh
add ebx,eax
.endif
inc i
.endw
.if ebx > limwet
jmp a0
.endif
mov TmpWet,ebx
mov i,0
xor ebx,ebx
.while i<CDim
mov eax,i

bt nbn,eax
.if CARRY?
mov al,val[eax]
and eax,0ffh
add ebx,eax
.endif
inc i
.endw
.if ebx > MaxVal
mov MaxVal,ebx
mov ebx,TmpWet
mov MaxWet,ebx
.endif
a0:
inc TTs
inc nbn
.endw

ret

EnumCt endp
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
start:

mov TTs,0
mov MaxVal,0
mov MaxWet,0
invoke GetTickCount
mov tmptime,eax

invoke EnumCt

invoke GetTickCount
sub eax,tmptime

invoke wsprintf,addr buf,addr ft,TTs,MaxWet,MaxVal,eax
invoke MessageBox,NULL,addr buf,addr cp,MB_OK

invoke ExitProcess,NULL
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
end start

[大熊猫侯佩]

bag-mt:

.386
.model flat,stdcall
option casemap:none

include c:\masm32\include\windows.inc
include c:\masm32\include\user32.inc
includelib c:\masm32\lib\user32.lib
include c:\masm32\include\kernel32.inc
includelib c:\masm32\lib\kernel32.lib

CDim equ 28

cst struct
sf dd ?
ef dd ?
tts dd ?
mw dd ?
mv dd ?
cst ends

.const
wet db 220,56,79,135,21,5,175,90,11,153 ;KG
db 25,68,123,35,8,94,207,2,67,159
db 78,34,43,12,167,231,12,54,98,32
db 65,146,57,234,65,93,56,243,8,56
val db 60,100,45,26,90,10,57,240,136,230 ;$
db 78,34,7,23,89,250,129,94,45,24
db 56,89,34,124,78,5,45,234,89,32
db 34,72,50,147,180,210,45,18,69,94
limwet dd 400 ;Limit Wet
ft0 db 'TTs == %d ,MaxWet == %d , MaxVal == %d ',0
ft1 db 'Total TakeTime == %d',0
cp db 'Windows XP',0

.data
cst0 cst <1,4000000h,0,0,0>
cst1 cst <4000001h,8000000h,0,0,0>
cst2 cst <8000001h,0c000000h,0,0,0>
cst3 cst <0c000001h,0fffffffh,0,0,0>

.data?
tmptime dd ?
ht0 dd ?
ht1 dd ?
ht2 dd ?
ht3 dd ?
buf db 256 dup(?)

.code
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
EnumCt proc lpcst
local TmpWet
local Tmpnbn
local i

mov edi,lpcst
assume edi:ptr cst

push [edi].sf
pop Tmpnbn
mov TmpWet,0
mov edx,[edi].ef

.while Tmpnbn<=edx ;2^CDim - 1
mov i,0
xor ebx,ebx
.while i<CDim
mov eax,i

bt Tmpnbn,eax
.if CARRY?
mov al,wet[eax]
and eax,0ffh
add ebx,eax
.endif
inc i
.endw
.if ebx > limwet
jmp a0
.endif
mov TmpWet,ebx
mov i,0
xor ebx,ebx
.while i<CDim
mov eax,i

bt Tmpnbn,eax
.if CARRY?
mov al,val[eax]
and eax,0ffh
add ebx,eax
.endif
inc i
.endw
.if ebx > [edi].mv
mov [edi].mv,ebx
mov ebx,TmpWet
mov [edi].mw,ebx
.endif
a0:
inc [edi].tts
inc Tmpnbn
.endw

ret

EnumCt endp
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
start:
invoke GetTickCount
mov tmptime,eax

invoke CreateThread,NULL,0,addr EnumCt,addr cst0,\
NULL,NULL
mov ht0,eax
invoke CreateThread,NULL,0,addr EnumCt,addr cst1,\
NULL,NULL
mov ht1,eax
invoke CreateThread,NULL,0,addr EnumCt,addr cst2,\
NULL,NULL
mov ht2,eax
invoke CreateThread,NULL,0,addr EnumCt,addr cst3,\
NULL,NULL
mov ht3,eax
invoke WaitForMultipleObjects,4,addr ht0,TRUE,INFINITE

invoke GetTickCount
sub eax,tmptime
mov tmptime,eax

invoke wsprintf,addr buf,addr ft0,cst0.tts,cst0.mw,cst0.mv
invoke MessageBox,NULL,addr buf,addr cp,MB_OK
invoke wsprintf,addr buf,addr ft0,cst1.tts,cst1.mw,cst1.mv
invoke MessageBox,NULL,addr buf,addr cp,MB_OK
invoke wsprintf,addr buf,addr ft0,cst2.tts,cst2.mw,cst2.mv
invoke MessageBox,NULL,addr buf,addr cp,MB_OK
invoke wsprintf,addr buf,addr ft0,cst3.tts,cst3.mw,cst3.mv
invoke MessageBox,NULL,addr buf,addr cp,MB_OK
invoke wsprintf,addr buf,addr ft1,tmptime
invoke MessageBox,NULL,addr buf,addr cp,MB_OK


invoke ExitProcess,NULL
;~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
end start

[大熊猫侯佩]

up

[大熊猫侯佩]

对于 bag-mt 略作说明:

a 采用的是 4 线程'并发'

b 使用了 对象等待 win32 API

以上代码均用 masm32v8.2 编译连接通过，其编译连接指令为:

ml /c /coff name.asm
link /subsystem:console name.obj

欢迎大家用编译连接后的 exe 作测试，并贴上测试结果，同时给出cpu类型
masm32 编译器请到:

www.masm32.com 或 www.aogosoft.com 下载,有问题请和我联系。

[cpio]

光是计算啊，有没有其它的处理

[大熊猫侯佩]

主要就是计算啊！

[大熊猫侯佩]

up

[elite01]

哦，期待

[大熊猫侯佩]

tks~

[大熊猫侯佩]

谢谢楼上，我周围的机器试的差不多了//

[pjie131]

期待进一步的测试结果，可惜我帮不上忙，没有机子。

[碧海情天-赵亮]

看来对一些配置来说，效果还是很明显的。

希望多一些这方面的测试报告，很有益处。

[大熊猫侯佩]

顶起~

[WYlslrt]

mark好贴

[大熊猫侯佩]

up～

[佛萍]

up~~~

[大熊猫侯佩]

en

[jbzj]

我想要源代码看一下啊，可以吗？
[e-mail]

[大熊猫侯佩]

贴在上面了啊！