Skip to content

Выравнивание чисел в колонках по разрядности дробной части мин. значения #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
Stivo182 merged 1 commit into from
May 6, 2025
Merged

Выравнивание чисел в колонках по разрядности дробной части мин. значения #7

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВерхнийКвартиль.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Q3";
Колонка.Описание = "Третий (верхний) квартиль (75-й процентиль)";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВыделяемаяПамять.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Allocated";
Колонка.Описание = "Выделяемая память на одну операцию";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Байт;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions ...BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковКоэффициентПроизводительности.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,7 @@
Колонка.Заголовок = "Ratio";
Колонка.Описание = "Среднее значение отношений [Mean] / [Baseline Mean]";
Колонка.СтильКоэффициента = СтилиКоэффициентаБенчмарка.Значение;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМакс.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Max";
Колонка.Описание = "Максимум";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМедиана.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Median";
Колонка.Описание = "Значение, разделяющее упорядоченные измерения на две равные части";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМин.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Min";
Колонка.Описание = "Минимум";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковНижнийКвартиль.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Q1";
Колонка.Описание = "Первый (нижний) квартиль (25-й процентиль)";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковОперацийВСекунду.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Op/s";
Колонка.Описание = "Операций в секунду";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.ОперацийВСекунду;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковПроцентиль.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -14,6 +14,7 @@
Колонка.Заголовок = "P" + Процентиль;
Колонка.Описание = СтрШаблон("%1-й процентиль", Процентиль);
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСреднее.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "Mean";
Колонка.Описание = "Арифметическое среднее всех измерений";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартнаяОшибка.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "StdErr";
Колонка.Описание = "Стандартная ошибка всех измерений";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
1 change: 1 addition & 0 deletions src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартноеОтклонение.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -10,6 +10,7 @@
Колонка.Заголовок = "StdDev";
Колонка.Описание = "Стандартное отклонение всех измерений";
Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
Колонка.ЭтоЧисло = Истина;
Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");

Возврат Колонка;
Expand Down
46 changes: 45 additions & 1 deletion src/BenchmarkOneScript/core/Классы/ПостроительОтчетаБенчмарков.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -184,8 +184,10 @@

КонецЦИкла;

// Порядок важен
ОпределитьЧисловыеКолонки();
ОпределитьЕдиницыИзмеренияПредставления();
ОпределитьФорматныеСтроки();
ОпределитьРазмерыКолонок();

КонецПроцедуры
Expand All @@ -194,8 +196,12 @@

Для Каждого Колонка Из _Отчет.Колонки Цикл

Если Колонка.ЭтоЧисло Тогда
Продолжить;
КонецЕсли;

ЗначенияКолонки = _Отчет.Таблица.ВыгрузитьКолонку(Колонка.Имя);
Если МатематическиеФункцииБенчмарков.ТолькоЧисла(ЗначенияКолонки, Истина) Тогда
Если МатематическиеФункцииБенчмарков.ТолькоЧисла(ЗначенияКолонки) Тогда
Колонка.ЭтоЧисло = Истина;
КонецЕсли;

Expand Down Expand Up @@ -231,6 +237,44 @@

КонецПроцедуры

Процедура ОпределитьФорматныеСтроки()

Check failure on line 240 in src/BenchmarkOneScript/core/Классы/ПостроительОтчетаБенчмарков.os

View check run for this annotation

sonar.openbsl.ru qa-bot / SonarQube Code Analysis

src/BenchmarkOneScript/core/Классы/ПостроительОтчетаБенчмарков.os#L240 

Уменьшите когнитивную сложность "ОпределитьФорматныеСтроки" с 17 до 15

Для Каждого Колонка Из _Отчет.Колонки Цикл

Если Не Колонка.ЭтоЧисло Тогда
Продолжить;
КонецЕсли;

МинЗначение = Неопределено;
Для Каждого Строка Из _Отчет.Таблица Цикл
Значение = Строка[Колонка.Имя];
Если ТипЗнч(Значение) = Тип("Число") Тогда
МинЗначение = ?(МинЗначение = Неопределено, Значение, Мин(МинЗначение, Значение));
КонецЕсли;
КонецЦикла;

Если МинЗначение = Неопределено Тогда
Возврат;
КонецЕсли;

Если Не Колонка.ЕдиницаИзмерения = Неопределено И Не Колонка.ЕдиницаИзмеренияПредставления = Неопределено Тогда
МинЗначение = ЕдиницыИзмеренийБенчмарков.Конвертировать(
МинЗначение,
Колонка.ЕдиницаИзмерения,
Колонка.ЕдиницаИзмеренияПредставления
);
КонецЕсли;

Разрядность = ПредставленияПоказателейБенчмарков.ПодобратьРазрядностьДробнойЧасти(
МинЗначение,
Колонка.ЕдиницаИзмерения);

Колонка.ФорматнаяСтрока = ПредставленияПоказателейБенчмарков.ФорматнаяСтрокаЧисла(Разрядность);

КонецЦикла;

КонецПроцедуры

Процедура ОпределитьРазмерыКолонок()

Для Каждого Колонка Из _Отчет.Колонки Цикл
Expand Down
8 changes: 1 addition & 7 deletions src/BenchmarkOneScript/core/Модули/МатематическиеФункцииБенчмарков.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -104,20 +104,14 @@

КонецФункции

Функция ТолькоЧисла(Значения, ВключаяНеопределено = Ложь) Экспорт
Функция ТолькоЧисла(Значения) Экспорт

ТипЧисло = Тип("Число");

Для Каждого Значение Из Значения Цикл

Если Значение = Неопределено И ВключаяНеопределено Тогда
Продолжить;
КонецЕсли;

Если Не ТипЗнч(Значение) = ТипЧисло Тогда
Возврат Ложь;
КонецЕсли;

КонецЦикла;

Возврат Истина;
Expand Down
50 changes: 39 additions & 11 deletions src/BenchmarkOneScript/core/Модули/ПредставленияПоказателейБенчмарков.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
Если ЗначениеЗаполнено(ФорматнаяСтрока) Тогда
Представление = Формат(Значение, ФорматнаяСтрока);
ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда
Представление = ПредставлениеЧисла(Значение);
Представление = ПредставлениеЧисла(Значение, ЕдиницаИзмерения);
ИначеЕсли ТипЗнч(Значение) = Тип("Булево") Тогда
Представление = ПредставлениеБулево(Значение);
Иначе
Expand Down Expand Up @@ -39,22 +39,37 @@

КонецФункции

Функция ПредставлениеЧисла(Знач Значение, Разрядность = Неопределено) Экспорт
Функция ПредставлениеЧисла(Значение, ЕдиницаИзмерения = Неопределено) Экспорт

МинимальнаяТочность = 1;
МаксимальнаяТочность = 4;
Разрядность = ПодобратьРазрядностьДробнойЧасти(Значение, ЕдиницаИзмерения);

Если Значение <> 0 Тогда
Точность = 3 - Цел(Log10(?(Значение < 0, -Значение, Значение)));
Точность = Макс(Точность, МинимальнаяТочность);
Точность = Мин(Точность, МаксимальнаяТочность);
Представление = Формат(Значение, ФорматнаяСтрокаЧисла(Разрядность));

Возврат Представление;

КонецФункции

Значение = Окр(Значение, Точность);
Функция ПодобратьРазрядностьДробнойЧасти(Знач Значение, ЕдиницаИзмерения = Неопределено) Экспорт

Если Значение = 0 Тогда
Возврат 0;
КонецЕсли;

Представление = Формат(Значение, ФорматнаяСтрокаЧисла(Разрядность));
ЭтоВремя = Не ЕдиницаИзмерения = Неопределено И ЕдиницаИзмерения.Базовая = ЕдиницыИзмеренийБенчмарков.Наносекунда;

Возврат Представление;
МинимальнаяРазрядность = ?(ЭтоВремя, 1, 0);
МаксимальнаяРазрядность = 4;

Значение = ?(Значение < 0, -Значение, Значение);
Разрядность = 3 - Цел(Log10(Значение));

Check notice on line 64 in src/BenchmarkOneScript/core/Модули/ПредставленияПоказателейБенчмарков.os

View check run for this annotation

sonar.openbsl.ru qa-bot / SonarQube Code Analysis

src/BenchmarkOneScript/core/Модули/ПредставленияПоказателейБенчмарков.os#L64 

Создайте константу с понятным названием, присвойте ей значение "3" и используйте эту константу вместо магического числа.
Разрядность = Макс(Разрядность, МинимальнаяРазрядность);
Разрядность = Мин(Разрядность, МаксимальнаяРазрядность);

Значение = Окр(Значение, Разрядность);

Разрядность = Макс(РазрядностьЧисла(Значение), МинимальнаяРазрядность);

Возврат Разрядность;

КонецФункции

Expand Down Expand Up @@ -95,4 +110,17 @@
Возврат Строка + ДобавочныеСимволы;
КонецЕсли;

КонецФункции

Функция РазрядностьЧисла(Знач Значение)

Значение = ?(Значение < 0, -Значение, Значение);
Значение = Значение - Цел(Значение);

Если Значение = 0 Тогда
Возврат 0;
КонецЕсли;

Возврат СтрДлина(СтрЗаменить(Значение, "0.", ""));

КонецФункции
80 changes: 68 additions & 12 deletions tests/ТестыПредставленияПоказателей.os
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,18 +41,18 @@

ТестовыйНабор = Новый Соответствие();
ТестовыйНабор[0] = "0 ns";
ТестовыйНабор[10] = "10 ns";
ТестовыйНабор[100] = "100 ns";
ТестовыйНабор[1000] = "1 us";
ТестовыйНабор[10000] = "10 us";
ТестовыйНабор[100000] = "100 us";
ТестовыйНабор[1000000] = "1 ms";
ТестовыйНабор[10000000] = "10 ms";
ТестовыйНабор[100000000] = "100 ms";
ТестовыйНабор[1000000000] = "1 s";
ТестовыйНабор[10000000000] = "10 s";
ТестовыйНабор[60000000000] = "60 s";
ТестовыйНабор[600000000000] = "600 s";
ТестовыйНабор[10] = "10.0 ns";
ТестовыйНабор[100] = "100.0 ns";
ТестовыйНабор[1000] = "1.0 us";
ТестовыйНабор[10000] = "10.0 us";
ТестовыйНабор[100000] = "100.0 us";
ТестовыйНабор[1000000] = "1.0 ms";
ТестовыйНабор[10000000] = "10.0 ms";
ТестовыйНабор[100000000] = "100.0 ms";
ТестовыйНабор[1000000000] = "1.0 s";
ТестовыйНабор[10000000000] = "10.0 s";
ТестовыйНабор[60000000000] = "60.0 s";
ТестовыйНабор[600000000000] = "600.0 s";

Для Каждого Строка Из ТестовыйНабор Цикл

Expand All @@ -68,4 +68,60 @@

КонецЦикла;

КонецПроцедуры

&Тест
Процедура Тест_ПредставлениеЧислаСекунды() Экспорт

ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;

ТестовыйНабор = Новый Соответствие();
ТестовыйНабор[0] = "0";
ТестовыйНабор[1] = "1.0";

ТестовыйНабор[0.1] = "0.1";
ТестовыйНабор[0.12] = "0.12";
ТестовыйНабор[0.123] = "0.123";
ТестовыйНабор[0.1234] = "0.123";

ТестовыйНабор[0.01] = "0.01";
ТестовыйНабор[0.012] = "0.012";
ТестовыйНабор[0.0123] = "0.0123";
ТестовыйНабор[0.01234] = "0.0123";

ТестовыйНабор[0.001] = "0.001";
ТестовыйНабор[0.0012] = "0.0012";
ТестовыйНабор[0.00123] = "0.0012";

ТестовыйНабор[1.1] = "1.1";
ТестовыйНабор[1.12] = "1.12";
ТестовыйНабор[1.123] = "1.123";
ТестовыйНабор[1.1234] = "1.123";

ТестовыйНабор[10.1] = "10.1";
ТестовыйНабор[10.12] = "10.12";
ТестовыйНабор[10.123] = "10.12";

ТестовыйНабор[100.1] = "100.1";
ТестовыйНабор[100.12] = "100.1";

ТестовыйНабор[1000.1] = "1,000.1";
ТестовыйНабор[1000.12] = "1,000.1";

Для Каждого Строка Из ТестовыйНабор Цикл

Число = Строка.Ключ;
Представление = Строка.Значение;

Результат = ПредставленияПоказателейБенчмарков.ПредставлениеЧисла(Число, ЕдиницаИзмерения);
РезультатСМинусом = ПредставленияПоказателейБенчмарков.ПредставлениеЧисла(-Число, ЕдиницаИзмерения);

Ожидаем.Что(Результат).Равно(Представление);

Если Число <> 0 Тогда
Ожидаем.Что(РезультатСМинусом).Равно("-" + Представление);
КонецЕсли;

КонецЦикла;

КонецПроцедуры