Получить текущую тактовую частоту процессора

@Craw · Регистрация: 10.06.2012

Студворк — интернет-сервис помощи студентам

В Интернете я нашёл данный код, задался целью понять, как он работает. Для этого изучил WinAPI функции, которые здесь имеются, и закомментировал то, что они делают. Но всё равно есть несколько вопросов:
1. Зачем нам нужно менять приоритет приложения?
2. Зачем нужна задержка в 10 и 500 мс?
3. Какую работу выполняют данные инструкции на Асме?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
function TForm1.getCPUSpeed: string;
const
  DelayTime = 500;
var
  TimerHi, TimerLo: dword;
  PriorityClass, Priority: integer; // значения приоритетов процесса
  Speed: double;
begin
   // меняем приоритет текущего процесса
   PriorityClass := GetPriorityClass(GetCurrentProcess); // получаем значение класса приоритета
   Priority := GetThreadPriority( GetCurrentThread ); // получаем значение приоритета
   SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS); // задаем самый высокий класс приоритета
   SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL); // уровень базового приоритета = 31
 
   Sleep(10); // задержка на 10 мс
 
   asm
      dw  310Fh
      mov TimerLo, eax
      mov TimerHi, edx
   end;
 
   Sleep(DelayTime); // задержка на 500 мс
 
   asm
      dw  310Fh
      sub eax, TimerLo
      sbb edx, TimerHi
      mov TimerLo, eax
      mov TimerHi, edx
   end;
 
   // восстанавливаем приоритет тек. процесса для первоначального процесса
   SetThreadPriority(GetCurrentThread, Priority); // ставим значение приоритета
   SetPriorityClass(GetCurrentProcess, PriorityClass); // ставим класс приоритета
 
   Speed := TimerLo / (1000.0 * DelayTime);
   Result := Format('%f MHz', [Speed]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(getCPUSpeed);
end;

@FIL · 19.10.2013, 22:03

Ерунда это все какая-то.

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button2Click(Sender: TObject);
var
  Frequency: Int64;
begin
  if QueryPerformanceFrequency(Frequency) then
    ShowMessage(IntToStr(Frequency));
end;

@Craw · 19.10.2013, 23:01 **[ТС]**

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

Ерунда это все какая-то.

Только вот у нас совсем разные цели, мне нужна текущая частота (а она должна меняться непрерывно), а у вас всегда одинаковый результат выводится.
Да и ошибка где-то есть: у вашего кода выводит 2485,957, а у моего 2542,30.

@FIL · 19.10.2013, 23:25

QueryPerformanceFrequency возвращает текущую частоту процессора.
И почему ты решил, что частота должна "плавать"?

@Lirrk · 20.10.2013, 03:04

FIL,
Вот именно. частота плавает. Она не стабильна.
Зачем менять приоритет? А затем. Виндоус система многозадачная. И каждому приложению или процессу отводится доля времени для работы. И это может при подсчёте дать неверные данные. Вот поэтому устанавливается исключительный приоритет. Но устанавливается на короткое время, иначе может произойти крах системы.
Первая задержка нужна, чтобы всё "устаканилось" То есть перед измерением нужно дать время для стабилизации приоритета. И тоже самое перед снятием приоритета, и ещё чтобы полученные данные успели "зафиксироватся" поскольку подсчёт идёт на лету. Ну инерция. знаете что такое инерция? Вот и за время задержки идёт погашение инерции. не забывайте. что речь идёт об очень больших частотах. Правда тут нету задержки для перед возвращением приоритета, хотя лучше бы была. Но это как говорится. входит в зону риска...
А та задержка, что 500, это время подсчёта. Первый блок на ассемблере снимает текущие показания таймера. Второй блок снимает показания после задержки. За это время набегает куча тиков. Вот эта куча - разность между этими данными. Она вычисляется во втором блоке. Чем больше эта задержка, тем точнее подсчёт, но больше опасность краха. Иногда её рискуют поставить в 1000.

А плавает частота по очень простой причине. Кварц намного ниже по частоте. И для создания реальной тактовой частоты используют умножители частоты. Вот они дают некую флукацию (шум). Но это нисколько не отражается на расчётах, поскольку все точные подсчёты привязаны к кварцевому генератору. В СВЧ технике это неизбежно. Если даже мегагерцовая телевизионная частота гуляет, то чего вы хотите от гигагерц?

20.10.2013, 03:56

Я иак понимаю, код взят отсюда. Они там много копий сломали.

@FIL · 20.10.2013, 12:03

Частота - штука загадочная.
Например, у меня утилиты, показывающие частоту работы ядер в реальном времени (CPU-Z и т.п.), во время простоя выдают 1.6ГГц, под нагрузкой она возрастает до 3.7ГГц, при этом меняется только множитель.
А приведенный тут код выдает все время одно и тоже +-1кГц. Видимо тупо берет частоту шины и множит на 35 (как и QueryPerformanceFrequency, впрочем).

@Craw · 20.10.2013, 20:14 **[ТС]**

В ходе тестирования было обнаружено, что стандартная API функция QueryPerformanceFrequency работает некорректно: возвращает одно и тоже число всегда, к тому же оно и не соответствует реальному значению (погрешность 60 мГц).

Приведенный мною код работает правильно: т.к. частота "плавает", то и значения всегда разные, кроме того, они довольно точные, погрешность не превышает максимум 1 мГц (в сравнении с CPU-Z). А при увеличении DelayTime и ещё меньше.

@FIL · 20.10.2013, 20:18

Craw, а у тебя множитель частоты в CPU-Z меняется?

@Craw · 20.10.2013, 20:56 **[ТС]**

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

а у тебя множитель частоты в CPU-Z меняется?

Нет, он у меня постоянный - 19. А как это должно влиять?

@FIL · 20.10.2013, 21:42

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

А как это должно влиять?

У меня он меняется от 16 до 39 и, соответственно, частота - от 1.6ГГц до 3.9ГГц, а код выдает всегда один и тотже результат ~3.5ГГц. Т.е. он не учитывает изменение множителя и, следовательно, выдает некорректный результат на современных процессорах.

@Craw · 20.10.2013, 22:29 **[ТС]**

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

не учитывает изменение множителя

Тогда какие изменения следует внести, чтобы учитывать множитель? Есть идеи?

@FIL · 20.10.2013, 23:09

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

Есть идеи?

Нет. Везде этот код приводится.

Убежденный · 20.10.2013, 23:23

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

1. Зачем нам нужно менять приоритет приложения?
2. Зачем нужна задержка в 10 и 500 мс?

Автор кода пытался таким нехитрым способом влиять на переключение контекстов,
чтобы снизить его влияние на процесс измерения частоты CPU к минимуму.
На самом деле, все эти потуги с приоритетами и задержками примерно в равной
степени как уточняют результат вычислений, так и искажают его (ибо все равно
остаются прерывания, переключения контекстов, paging и прочие побочные эффекты,
влияние которых нельзя полностью исключить).

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

3. Какую работу выполняют данные инструкции на Асме?

Работа с инструкцией RDTSC.
Это известный способ измерения рабочей частоты процессора.

@Craw · 21.10.2013, 20:30 **[ТС]**

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

Везде этот код приводится.

Может есть иные способы узнать частоту ЦП?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	19.10.2013, 23:25
	QueryPerformanceFrequency возвращает текущую частоту процессора. И почему ты решил, что частота должна "плавать"? 0

@Lirrk Заблокирован
	20.10.2013, 03:04
	FIL, Вот именно. частота плавает. Она не стабильна. Зачем менять приоритет? А затем. Виндоус система многозадачная. И каждому приложению или процессу отводится доля времени для работы. И это может при подсчёте дать неверные данные. Вот поэтому устанавливается исключительный приоритет. Но устанавливается на короткое время, иначе может произойти крах системы. Первая задержка нужна, чтобы всё "устаканилось" То есть перед измерением нужно дать время для стабилизации приоритета. И тоже самое перед снятием приоритета, и ещё чтобы полученные данные успели "зафиксироватся" поскольку подсчёт идёт на лету. Ну инерция. знаете что такое инерция? Вот и за время задержки идёт погашение инерции. не забывайте. что речь идёт об очень больших частотах. Правда тут нету задержки для перед возвращением приоритета, хотя лучше бы была. Но это как говорится. входит в зону риска... А та задержка, что 500, это время подсчёта. Первый блок на ассемблере снимает текущие показания таймера. Второй блок снимает показания после задержки. За это время набегает куча тиков. Вот эта куча - разность между этими данными. Она вычисляется во втором блоке. Чем больше эта задержка, тем точнее подсчёт, но больше опасность краха. Иногда её рискуют поставить в 1000. А плавает частота по очень простой причине. Кварц намного ниже по частоте. И для создания реальной тактовой частоты используют умножители частоты. Вот они дают некую флукацию (шум). Но это нисколько не отражается на расчётах, поскольку все точные подсчёты привязаны к кварцевому генератору. В СВЧ технике это неизбежно. Если даже мегагерцовая телевизионная частота гуляет, то чего вы хотите от гигагерц? 2

angstrom
	20.10.2013, 03:56
	Я иак понимаю, код взят отсюда. Они там много копий сломали.

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	20.10.2013, 12:03
	Частота - штука загадочная. Например, у меня утилиты, показывающие частоту работы ядер в реальном времени (CPU-Z и т.п.), во время простоя выдают 1.6ГГц, под нагрузкой она возрастает до 3.7ГГц, при этом меняется только множитель. А приведенный тут код выдает все время одно и тоже +-1кГц. Видимо тупо берет частоту шины и множит на 35 (как и QueryPerformanceFrequency, впрочем). 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	20.10.2013, 20:14 [ТС]
	В ходе тестирования было обнаружено, что стандартная API функция QueryPerformanceFrequency работает некорректно: возвращает одно и тоже число всегда, к тому же оно и не соответствует реальному значению (погрешность 60 мГц). Приведенный мною код работает правильно: т.к. частота "плавает", то и значения всегда разные, кроме того, они довольно точные, погрешность не превышает максимум 1 мГц (в сравнении с CPU-Z). А при увеличении DelayTime и ещё меньше. 0

@FIL Модератор 3492 / 2614 / 742 Регистрация: 19.09.2012 Сообщений: 7,977
	20.10.2013, 20:18
	Craw, а у тебя множитель частоты в CPU-Z меняется? 0