время работы алгоритма

@Rayne · Регистрация: 11.07.2009

Как посчитать? Так понимаю TTimer по частоте не подойдёт как минимум, да и просто неточен будет, если не предпологается параллельное программирование.
Задача вообщем - узнать за какое время выполняется участок кода.

@Puporev · 01.01.2012, 12:11

Просто берем системное время начала и конца, вычитаем и получаем результат, вроде функция

Delphi

var a,b:TDateTime;
.......
a:=now;
//выполняем
b:=now;

вычитаем

go · 01.01.2012, 12:12

Сообщение от Rayne

Задача вообщем - узнать за какое время выполняется участок кода.

Перед началом выполнения алгоритма взяли системное время и сохранили, потом в конце опять взяли системное время и отняли от него сохраненное

@Puporev · 01.01.2012, 12:26

Не по теме:

go, Зачем меня копировать? Это вроде твои слова?

go · 01.01.2012, 12:38

Не по теме:

Сообщение от Puporev

go, Зачем меня копировать? Это вроде твои слова?

Когда я начал писать этот пост, вашего еще не было. И Вы это прекрасно знаете. Давайте не будем конфликтовать.

@Rayne · 01.01.2012, 13:23 **[ТС]**

а как миллисекунды отсюда получить?

@Страдалецъ · 01.01.2012, 13:30

Это не очень удачное решение использовать Now для этих целей. Лучше взять GetTickCount.

go · 01.01.2012, 13:42

Сообщение от Rayne

а как миллисекунды отсюда получить?

наверное из поста №2 никак
Пробуйте так.

Delphi

t : longint;
t := GetTickCount; // Начало
...
t := t - GetTickCount ; // Время работы алгоритма в милисекундах

@Ales'hon'ne · 01.01.2012, 14:20

Можно и из поста №2:

Delphi

1	ms:=round((b-a)2460601000);

@Mawrat · 01.01.2012, 16:00

1. Частота обновления данных в системных часах - около 1/25 секунды. Это означает, что если исследуемый процесс выполняется за время меньшее, чем 1/25 секунды, то его время выполнения с большой вероятностью будет определено как 0 (ноль).
---
2. Частота обновления для таймера, показания которого читает функция GetTickCount() - около 10 миллисекунд. Этот таймер (счётчик) отсчитывает количество миллисекунд, прошедшее от момента запуска операционной системы Windows.
---
3. И самый точный таймер - это мультимедийный таймер - он считает такты микропроцессора. Задержка этого таймера по отношению к программе, которая с ним работает, определяется лишь скоростью чтения данных из его регистра. С помощью него можно даже замерить время, прошедшее между выполнением двух соседних команд в программе, без применения усреднения.

Чтобы воспользоваться показаниями мультимедийного таймера используются две функции:
QueryPerformanceFrequency() - замеряет тактовую частоту процессора.
QueryPerformanceCounter() - читает показание мультимедийного таймера.
---
В принципе, любой из этих таймеров можно применить для замера времени выполнения некоторого процесса. Если время выполнения процесса близко к интервалу обновления таймера - в этом случае следует применить усреднение. Т. е., надо организовать цикл на некоторое количество итераций - на 100, 1000 (иногда и больше). И в этом цикле запускать исследуемый процесс. После завершения цикла вычислить усреднённое время выполнения процесса.
---
Пример, как замерить усреднённое время выполнения некоторого скоротечного процесса с помощью мультимедийного таймера. Здесь в качестве исследуемого процесса применяется заглушка - Sleep(10) - это задержка выполнения текущего потока на 10 миллисекунд.
Заодно проверите тактовую частоту своего процессора.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const
  M = 10;
var
  i : Integer;
  Fr, t : Int64;
  Dt : Extended;
begin
  //Определяем тактовую частоту процессора (количество тактов в секунду).
  QueryPerformanceFrequency(Fr);
  if Fr = 0 then begin
    ShowMessage('Не удалось получить сведения о тактовой частоте. Действие отменено.');
    Exit;
  end;
  ShowMessage('Тактовая частота процессора (количество тактов в секунду): ' + IntToStr(Fr));
 
  //Чтение показания счётчика тактов.
  QueryPerformanceCounter(t);
  Dt := t;
 
  //Запуск исследуемого процесса.
  for i := 1 to M do Sleep(10);
 
  //Показание счётчика тактов.
  QueryPerformanceCounter(t);
  //Рассчёт времени.
  Dt := (t - Dt) / (M * Fr);
 
  ShowMessage('Усреднённая длительность выполнения в секундах: ' + FloatToStr(Dt));
end;

@Arcor · 01.01.2012, 16:24

Сообщение от Mawrat

. И самый точный таймер - это мультимедийный таймер - он считает такты микропроцессора

Сообщение от Mawrat

Чтобы воспользоваться показаниями мультимедийного таймера используются две функции:
QueryPerformanceFrequency() - замеряет тактовую частоту процессора.
QueryPerformanceCounter() - читает показание мультимедийного таймера.

Не по теме:

Где же вы раньше были с этим описанием ;), Благодарю, теперь поможет решить одну задачу :good:

@Mawrat · 01.01.2012, 16:34

Кстати, надо иметь в виду, что в современных компах тактовая частота процессора может изменяться. Например - в ноутбуках. - В обычном режиме - одна частота, в режиме пониженного энергопотребления - уже может быть меньше. Могут быть задачи, где это придётся учитывать.

@Rayne 76 / 62 / 23 Регистрация: 11.07.2009 Сообщений: 730
		1
	время работы алгоритма 01.01.2012, 12:01. Показов 9121. Ответов 11 Метки g, gettickcount, queryperformancecounter, queryperformancefrequency, time, временной интервал, время, время выполнения, замерить, измерить, интервал, определить (Все метки) Как посчитать? Так понимаю TTimer по частоте не подойдёт как минимум, да и просто неточен будет, если не предпологается параллельное программирование. Задача вообщем - узнать за какое время выполняется участок кода. 0

go 3646 / 1378 / 243 Регистрация: 16.04.2009 Сообщений: 4,526
	01.01.2012, 12:12	3
	Сообщение от Rayne Задача вообщем - узнать за какое время выполняется участок кода. Перед началом выполнения алгоритма взяли системное время и сохранили, потом в конце опять взяли системное время и отняли от него сохраненное 0

@Puporev
	01.01.2012, 12:26 #4
	Не по теме: go, Зачем меня копировать? Это вроде твои слова? 0

go
	01.01.2012, 12:38 #5
	Не по теме: Сообщение от Puporev go, Зачем меня копировать? Это вроде твои слова? Когда я начал писать этот пост, вашего еще не было. И Вы это прекрасно знаете. Давайте не будем конфликтовать. 0

@Rayne 76 / 62 / 23 Регистрация: 11.07.2009 Сообщений: 730
	01.01.2012, 13:23 [ТС]	6
	а как миллисекунды отсюда получить? 0

@Страдалецъ Тимуровец 445 / 285 / 50 Регистрация: 10.09.2009 Сообщений: 963
	01.01.2012, 13:30	7
	Это не очень удачное решение использовать Now для этих целей. Лучше взять GetTickCount. 0

@Arcor 5687 / 2278 / 466 Регистрация: 20.11.2009 Сообщений: 7,670 Записей в блоге: 1
	01.01.2012, 16:24	11
	Сообщение от Mawrat . И самый точный таймер - это мультимедийный таймер - он считает такты микропроцессора Сообщение от Mawrat Чтобы воспользоваться показаниями мультимедийного таймера используются две функции: QueryPerformanceFrequency() - замеряет тактовую частоту процессора. QueryPerformanceCounter() - читает показание мультимедийного таймера. Не по теме: Где же вы раньше были с этим описанием ;), Благодарю, теперь поможет решить одну задачу :good: 0

@Mawrat 13094 / 5875 / 1706 Регистрация: 19.09.2009 Сообщений: 8,808
	01.01.2012, 16:34	12
	Кстати, надо иметь в виду, что в современных компах тактовая частота процессора может изменяться. Например - в ноутбуках. - В обычном режиме - одна частота, в режиме пониженного энергопотребления - уже может быть меньше. Могут быть задачи, где это придётся учитывать. 2

Опции темы

время работы алгоритма

Решение