Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Требуется замерить время выполнения алгоритма 
:(
    Опции темы
Pakshin A. S.
  Дата 31.3.2006, 22:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Появилось желание замерить время выполнения алгоритма в программе для последующей его оптимизации. Завести таймер как-то не хочется, так как не красиво... Поэтому хотелось сделать замер более изящным.

Общая схема мне так представляется:

Цитата

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


Как реализовать? smile

PM   Вверх
Matematik
Дата 31.3.2006, 22:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50



Код

t:=GetTickCount
{kod}
t:=GetTickCount()-t;
ShowMessage(IntToStr(t)+' мс')

PM MAIL WWW ICQ   Вверх
Pakshin A. S.
Дата 31.3.2006, 22:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61



Спасибо за оригинальный овтет. smile
PM   Вверх
maxim1000
Дата 31.3.2006, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

Репутация: 4
Всего: 110



еще можно попробовать GetThreadTimes...


--------------------
qqq
PM WWW   Вверх
cardinal
Дата 31.3.2006, 22:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 2
Всего: 99



см. profiler

В Visual C++ ты можешь посмотреть например сколько времени длится каждая функция...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Alex
Дата 1.4.2006, 06:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162





--------------------
Написать можно все - главное четко представлять, что ты хочешь получить в конце. 
PM Skype   Вверх
Демо
Дата 1.4.2006, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50



Pakshin A. S.,
Посмотри на http://forum.vingrad.ru/index.php?showtopic=84401&hl=

Очень точно время замерить нельзя - все-таки не система реального времени.

В качестве варианта можешь запкстить поток свысоким приоритетом, в нем алгоритм прогр\нать в цикле раз 100, средние результаты получить.

Либо запускать в консольном приложении, чтобы не влиял GUI.


--------------------
    
PM MAIL ICQ Skype   Вверх
bems
Дата 1.4.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88



Только GetThreadTimes!

Цитата(Демо @ 1.4.2006, 13:55 Найти цитируемый пост)
В качестве варианта можешь запкстить поток свысоким приоритетом, в нем алгоритм прогр\нать в цикле раз 100, средние результаты получить.
Все равно никаких гарантий. То есть для себя замерить - годиться, а если чтобы на чужой тачке с левым юзером выполнялось, то мало ли что там еще работает и с каким приоритетом.

Только GetThreadTimes!




--------------------
Обижено школьников: 8
PM MAIL   Вверх
Демо
Дата 1.4.2006, 15:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50



Цитата(bems @ 1.4.2006, 15:19 Найти цитируемый пост)
Только GetThreadTimes!


С какой стати? Проблемы точно те же - ОС не RealTIme.
Добавлено @ 15:23
Хотя в отдельном потоке будет точнее.
Да и других факторов много.



--------------------
    
PM MAIL ICQ Skype   Вверх
bems
Дата 1.4.2006, 15:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88



Цитата(Демо @ 1.4.2006, 15:21 Найти цитируемый пост)
ОС не RealTIme
Ну и что?
если при переходе кернелмод<->юзермод, и при сохранениии-восстановлении контекста потока делать замеры времени (а примерно эту инфу и получает GetThreadTimes, мне так кажеться))) то результат будет точным.
Проблема с реалтаймом-нереалтаймом возникает когда нужно предсказать/установить это время заранее, а если нужно только замерять, какая разница?

Это сообщение отредактировал(а) bems - 1.4.2006, 15:30


--------------------
Обижено школьников: 8
PM MAIL   Вверх
AZDesign
Дата 5.4.2006, 11:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 24.6.2005

Репутация: нет
Всего: нет



Цитата(Pakshin A. S. @ 31.3.2006, 22:08)
Появилось желание замерить время выполнения алгоритма в программе для последующей его оптимизации. Завести таймер как-то не хочется, так как не красиво... Поэтому хотелось сделать замер более изящным.

Общая схема мне так представляется:

Цитата

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


Как реализовать? smile

Измерения проводятся для оптимизации алгоритма на своем компьютере. В этом случае все рассуждения о Real-Time теряют смысл. Есть компьютер со свои быстродействием и своими накладными расходами. До оптимизации и после оптимизации эти параметры не меняются.
В этом случае замер делается просто:
Код

Var
  tmBeg,tmEnd : TDateTime
Begin
  tmBeg := Now;

.....какой-то код....

 tmEnd := Now;
ShowMessage(FormatDateTime('HH:MM:SS.zzz',tmEnd-tmBeg));



PM MAIL   Вверх
bems
Дата 5.4.2006, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88



Цитата(AZDesign @ 5.4.2006, 11:59 Найти цитируемый пост)
Есть компьютер со свои быстродействием и своими накладными расходами
На котором время от времени запускается скринсейвер, просыпаются разные службы или планировщик потоков неожиданно вспоминает, что какая-нибудь низкоприоритетная дрянь уже с полминуты голодает...
GetThreadTimes!


--------------------
Обижено школьников: 8
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0784 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.