Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Про точные интервалы времени.....................

Kettle of delphi © (2002-03-14 03:24:00)
Здравствуйте.
Такой вопрос: Хоть примерно, сколько времени занимает вот эта команда: Label1.Caption := "!"; ?
Cколько примерно времени занимает вычисление синуса?

И почему в следующем коде:

procedure TForm1.Button4Click(Sender: TObject);
var PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
QueryPerformanceCounter(Preceding64);
QueryPerformanceCounter(Current64);
SetThreadPriority(GetCurrentThread, Priority);
SetPriorityClass(GetCurrentProcess, PriorityClass);
Label5.Caption := FloatToStr(Preceding64);
Label8.Caption := FloatToStr(Current64);
Label11.Caption := FloatToStr(Current64 - Preceding64);
end;

(Current64 - Preceding64) дает 6 тактов счетчика, что есть, примерно, 5 микросекунд! - ?

wicked (2002-03-14 17:07:00) [1]
2 MBo ©
по заявлению разработчиков free pascal можно перенести на любую платформу, где имеет место быть gnu c... правда, можно упереться в rtl...

MBo (2002-03-14 16:42:00) [2]
Говорят, что GNU-сный Pascal (в исходниках) можно скомпилировать под QNX

Kettle of delphi (2002-03-14 16:23:00) [3]
Но неужели процессор Pentium III выполняет директиву QueryPerformanceCounter 4-6 микросекунд?

Предположим, требуется "выжать" из компьютера реакцию с частотой QueryPerformanceFrequency - т.е. меньше 1 микросекунды. Я понимаю, что ОС Windows для этого не приспособлена, но ведь есть теоретическая возможность! Мыслю так: Сделать программу, загрузить ее вместо Explorer.exe (через system.ini) с максимальным приоритетом. Кто-нибудь может посоветовать, на сколько реально работающим будет такой подход? Требуется обмениваться данными с интерфейсной платой на частоте миллион герц (т.е. ~ 1 микросекунда).

QNX приспособлена как раз для подобных целей. Но я не знаю, есть ли там средство разработки программ, базирующееся на языке Pascal?

MBo (2002-03-14 15:33:00) [4]
Принцип неопределенности - нельзя произвести сколь угодно точные измерения, поскольку этим вносим возмущение в систему - и для процессорных квантов времени действует!

Алексей Петров (2002-03-14 15:26:00) [5]
Вообще-то на выполнение QueryPerformanceCounter тоже нужно время, хоят и не большое.

Alx2 (2002-03-14 14:36:00) [6]
Есть такая вещь, как прерывания... Отчасти это они виноваты

Kettle of delphi (2002-03-14 14:28:00) [7]
ааууу...

Kettle of delphi (2002-03-14 11:55:00) [8]
ВОТ ГЛАВНЫЙВОПРОС:

Почему директивы
QueryPerformanceCounter(Preceding641); QueryPerformanceCounter(Current64);
записанные, как видно, ПОСЛЕДОВАТЕЛЬНО, дают значения счетчика, различающиеся на 5-6 тиков!?

Johnmen (2002-03-14 11:50:00) [9]
>Kettle of delphi : Слава Богу не обиделся и понял правильно !
А на указанные машины можно поставить PASCAL !
Код будет совершенно другим !

wicked (2002-03-14 11:40:00) [10]
а еще можно использовать RDTSC и делить на тактовую частоту... уж точно не ошибёшся...

Alx2 (2002-03-14 11:17:00) [11]
Рекомендую Intel VTune для замера скорострельности

Kettle of delphi (2002-03-14 11:14:00) [12]
А приведенный код под ЕС1022или IBM9370тоже будет работать, после того, как установить на эти машины Delphi? :)

Если кто-то еще мыслит на столько же абстрактно, то поставлю вопрос так: сколько примерно времени будет вычисляться синус на компьютере с процессором:

1. Pentium 100,
2. Pentium II 300,
3. Pentium III 500,
4. Pentium III 1000,
5. Pentium IV 2 GGz?

и почему в приведенном коде директивы:
QueryPerformanceCounter(Preceding641); QueryPerformanceCounter(Current64);
записанные ПОСЛЕДОВАТЕЛЬНО, дают значения счетчика, различающиеся на 5-6 тиков!?

Johnmen (2002-03-14 09:49:00) [13]
>Cколько примерно времени занимает вычисление синуса?

0. если использовать бумагу и карандаш - то ок. 3 мин
1. если использовать счеты - то около 5 минут
2. если ЕС1022 - то около 1 мс
3. если IBM9370 - ок. 400 мкс

Считаю это полным ответом на все 3 вопроса !

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »