Alexeis, ещё раз перечитай моё сообщение. Обязательны 3 условия:
1. Одно ядро/процессор.
2. Отсутствие блокирующих операций.
3. Отсутствие активно расходующих процессорное время параллельных потоков других приложения, с тем же приоритетом(почти у любого из нас система работает в этом режиме практически постоянно).
Сейчас будут обоснования.
Добавлено @ 17:10
| Код |
var
Form1: TForm1;
ad,i,a:integer;
ThID: array [0..1] of dword;
by: byte;
function ThreadProc(): dword; stdcall;
begin
asm
push ecx
mov ecx,$FFFFFFFF
@f:
inc ad
xor byte ptr[by],$64
add byte ptr[by],$46
xor byte ptr[by],$54
shl byte ptr[by],2
loop @f
pop ecx
end;
ExitThread(0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ThID[0] :=CreateThread(nil,128*1024,@ThreadProc,nil,0,ThID[0]);
a := GetTickCount();
WaitForMultipleObjects(1, @ThID, FALSE, INFINITE);
ShowMessage(IntToStr(GetTickCount() - a));
end;
|
Что делает процедура ThreadProc можешь не вникать, суть в том, что там написан цикл, на ассемблере, с числом иттераций FFFFFFFF(4294967295). Наилучшее время выполнения: 56.766 сек.
Далее запускаю такой пример:
| Код |
var
Form1: TForm1;
ad,i,a:integer;
ThID: array [0..1] of dword;
by: byte;
implementation
{$R *.dfm}
function ThreadProc(): dword; stdcall;
begin
asm
push ecx
mov ecx,$7FFFFFFF
@f:
inc ad
xor byte ptr[by],$64
add byte ptr[by],$46
xor byte ptr[by],$54
shl byte ptr[by],2
loop @f
pop ecx
end;
ExitThread(0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ThID[0] :=CreateThread(nil,128*1024,@ThreadProc,nil,0,ThID[0]);
ThID[1] :=CreateThread(nil,128*1024,@ThreadProc,nil,0,ThID[1]);
a := GetTickCount();
WaitForMultipleObjects(2, @ThID, FALSE, INFINITE);
ShowMessage(IntToStr(GetTickCount() - a));
end;
|
Как видишь, два потока, в каждом будет выполняться цикл с числом иттераций 7FFFFFFF(2147483647), в общей сложности два потока выполнят 7FFFFFFF*2 = FFFFFFFE иттераций. Измерил и получил наилучшее время выполнения 56.046 сек.
Учитывая, что код обоих потоков сжох? можно предположить, что они хорошо закешированы и поэтому выполняются так же быстро.
Так же не учитывается погрешность с которой измеряет время GetTickCount, она составляет ~60 мс.
Программы запускал по 5 раз каждую, в качестве результат брал наименьшее значение, т.к. оно является самым верным(не среднее).
Счастливым обладателым n-ядерных процессоров предлагаю прочесть справку по SetThreadAffinityMask и, грамотно распараллелив потоки, сделать замер.
PS AMD Athlon AM2 3500+ |
)
