![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
MIPS и FPS [D7, WinXP]
DIMAL © (2007-01-25 08:46:00)Как определить количество операций в секунду, выполняемых процессором с плавающей запятой и с целыми числами.
_SuN_ (2007-01-28 18:54:00) [1]
const DelayTime = 500;
function MCPUUssage.CPURealSpeed: Double;
var th, tl : DWORD;
prc, pr : Integer;
begin
prc:=GetPriorityClass(GetCurrentProcess);
pr:=GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
sleep(10);
asm
dw 310Fh
mov tl,eax
mov th,edx
end;
sleep(DelayTime);
asm
dw 310Fh
sub eax, tl
sbb edx, th
mov tl, eax
mov th, edx
end;
SetThreadPriority(GetCurrentThread,pr);
SetPriorityClass(GetCurrentProcess,prc);
result:=tl/(1000.0*DelayTime);
end;
Cj (2007-01-28 17:15:00) [2]Привилегии возьми
Игорь Шевченко (2007-01-25 17:40:00) [3]
> Так он же не устанавливается для пользовательских программ
start /realtime разве перестал работать ?
DimaL (2007-01-25 17:35:00) [4]Установить бы для процесса приоритет реального времени. Так он же не устанавливается для пользовательских программ.
Сергей М. (2007-01-25 16:20:00) [5]
> как быть с паралельными процессами?
А нехрена эксперементировать в мультизадачной системе !)
Экспериментируй в системе реального времени, либо используй возможности своей мультизадачной среды по кратковременнойустановке для твоего процесса приоритета, эмулирующего среду реального времени.
Джо (2007-01-25 15:57:00) [6]> [2] DimaL (25.01.07 15:54)
> А как быть с паралельными процессами?
Смириться.
DimaL (2007-01-25 15:54:00) [7]А как быть с паралельными процессами?
tesseract (2007-01-25 10:23:00) [8]Примерно - написать таймер и выполнить инстркции 10к-10 м раз.