значит так, есть у нас в университете такой предмет "Параллельные алгоритмы".
на зачет программа:
"Реализуйте линейный конгруэнтный генератор псевдослучайных чисел, распараллелив его на два процессора методом блочного разбиения. В качестве модуля генератора m сгенерируйте простое трехзначное число. На базе полученного генератора псевдослучайных чисел реализуйте поточное шифрование, путем побитового «ИСКЛЮЧАЮЩЕГО ИЛИ» псевдослучайной последовательности с исходным текстом. Процесс шифрования также необходимо распараллелить на два процессора."
главная "оценка" программы состоит в оценке времени её работы на 1-м и 2-х процессорах соответственно. (Нужно показать что на 2-х как-никак быстрее)
ну закодил вот я (fasm):
| Код |
format PE console
entry start
include 'include\win32a.inc'
n = 02000000h ;4-х байтовых слов на каждый поток
section '.data' data readable writeable
hOut dd ?
tH1 dd ?
ns dd ?
countbytes dd ?
a dd 69069
c dd 5
stime dd ?
etime dd ?
tID1 dd ?
first_param:
x0 dd 3
nfirst dd n
fmem dd filedump
second_param:
xn dd ?
nsecond dd n
smem dd filedump + n
;cline dd ?
soutime db 12 dup (' ')
fstring db "%u",0
inpath db "in.txt",0
inhandle dd ?
outpath db "out.txt",0
outhandle dd ?
filedump dd 2*n dup ?
section '.text' code readable executable
start:
invoke GetStdHandle,STD_OUTPUT_HANDLE
mov [hOut],eax
invoke CreateFile, inpath, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
cmp eax, INVALID_HANDLE_VALUE
je @F
;считываем 2*n 4-х байтовых слова из файла
mov [inhandle], eax
invoke ReadFile, eax, filedump, 4*2*n, countbytes, NULL
invoke CloseHandle, [inhandle]
@@:
invoke GetCommandLine
;mov [cline], eax
mov edi, eax
xor al, al
mov ecx, 261
repne scasb ;ищем конец командной строки
mov bl, [edi-2] ;последний байт в bl
invoke GetTickCount ; засекаем время
mov [stime], eax
cmp bl, '1'
jne @F
mov [soutime],'1'
;один поток
mov [nfirst], n*2
push first_param
call OurThread
jmp endprogram
@@:
;2 потока
mov [soutime],'2'
mov eax, [a]
mov ecx, n
;;;;
;;;call exponent
mov edi, 1
stexp:
jecxz endexp
test ecx, 1
jz @F
xchg eax, edi
mul edi
xchg edi, eax
@@:
mul eax
shr ecx, 1
jmp stexp
endexp:
mov eax, edi
;;
mul [x0]
push eax ; a^n * u[0]
mov ebx, [a]
mov ecx, n-1
;call magicFunc
mov eax, 1 ; summ-a
@@:
mul ebx
inc eax
loop @B
mul [c]
pop ebx
add eax,ebx
mov [xn],eax ; сохранили n-й член последовательности
invoke CreateThread, 0, 0, OurThread, first_param, 0, tID1
mov [tH1], eax
push second_param
call OurThread
invoke WaitForSingleObject, eax, 0FFh
endprogram:
invoke GetTickCount
mov [etime], eax
sub eax,[stime]
invoke wsprintf , soutime+2, fstring, eax
add esp, 12
invoke WriteConsole,[hOut],soutime,12,ns,NULL
invoke CreateFile, outpath, GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0
cmp eax, INVALID_HANDLE_VALUE
je @F
mov [outhandle], eax
invoke WriteFile, eax, filedump, [countbytes], countbytes, NULL
invoke CloseHandle, [outhandle]
@@:
invoke ExitProcess,0
;ПОТОКОВАЯ ФУНКЦИЯ
proc OurThread parametr
mov eax, [parametr]
mov edi, [eax+8] ; куда записывать результат
mov ecx, [eax+4] ; количество
mov eax, [eax] ; зерно
@@:
mul [a]
add eax, [c]
xor [edi],eax
add edi, 4
;stosd
loop @B
ret
endp
section '.idata' import data readable
library kernel32,'KERNEL32.DLL',\
user32,'USER32.DLL'
include 'INCLUDE\api\kernel32.inc'
include 'INCLUDE\api\USER32.INC'
|
в общем запускаю я её с аргументами "1" или "2".
программа правильно определяет ск-ка потоков надо запустить (0 или 1 соответственно), запускает и считает случайные числа и даже шифрует/дешифрует правильно
но одна проблема: никакого прироста в скорости при запуске на 2-х потоках не ощущается, даже наоброт.
даже не знаю что делать 
ка бы так её изменить чтобы и задачу она выполняла правильно и время работы на 2-х было бы хотя на чуток больше чем на 1-м. |
