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

Stivo182 · web-flow · commit b46b551459c4 · 2025-05-07T00:13:40.000+03:00
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВерхнийКвартиль.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВерхнийКвартиль.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Q3";
 	Колонка.Описание = "Третий (верхний) квартиль (75-й процентиль)";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВыделяемаяПамять.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковВыделяемаяПамять.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Allocated";
 	Колонка.Описание = "Выделяемая память на одну операцию";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Байт;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковКоэффициентПроизводительности.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковКоэффициентПроизводительности.os
@@ -11,6 +11,7 @@
 	Колонка.Заголовок = "Ratio";
 	Колонка.Описание = "Среднее значение отношений [Mean] / [Baseline Mean]";
 	Колонка.СтильКоэффициента = СтилиКоэффициентаБенчмарка.Значение;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМакс.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМакс.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Max";
 	Колонка.Описание = "Максимум";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМедиана.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМедиана.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Median";
 	Колонка.Описание = "Значение, разделяющее упорядоченные измерения на две равные части";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМин.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковМин.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Min";
 	Колонка.Описание = "Минимум";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковНижнийКвартиль.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковНижнийКвартиль.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Q1";
 	Колонка.Описание = "Первый (нижний) квартиль (25-й процентиль)";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковОперацийВСекунду.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковОперацийВСекунду.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Op/s";
 	Колонка.Описание = "Операций в секунду";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.ОперацийВСекунду;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковПроцентиль.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковПроцентиль.os
@@ -14,6 +14,7 @@
 	Колонка.Заголовок = "P" + Процентиль;
 	Колонка.Описание = СтрШаблон("%1-й процентиль", Процентиль);
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСреднее.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСреднее.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "Mean";
 	Колонка.Описание = "Арифметическое среднее всех измерений";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартнаяОшибка.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартнаяОшибка.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "StdErr";
 	Колонка.Описание = "Стандартная ошибка всех измерений";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартноеОтклонение.os b/src/BenchmarkOneScript/columns/Модули/КолонкаОтчетаБенчмарковСтандартноеОтклонение.os
@@ -10,6 +10,7 @@
 	Колонка.Заголовок = "StdDev";
 	Колонка.Описание = "Стандартное отклонение всех измерений";
 	Колонка.ЕдиницаИзмерения = ЕдиницыИзмеренийБенчмарков.Наносекунда;
+	Колонка.ЭтоЧисло = Истина;
 	Колонка.ЗначениеДелегат = Делегаты.Создать(ЭтотОбъект, "Значение");
 
 	Возврат Колонка;
diff --git a/src/BenchmarkOneScript/core/Классы/ПостроительОтчетаБенчмарков.os b/src/BenchmarkOneScript/core/Классы/ПостроительОтчетаБенчмарков.os
@@ -184,8 +184,10 @@
 
 	КонецЦИкла;
 
+	// Порядок важен
 	ОпределитьЧисловыеКолонки();
 	ОпределитьЕдиницыИзмеренияПредставления();
+	ОпределитьФорматныеСтроки();
 	ОпределитьРазмерыКолонок();
 
 КонецПроцедуры
@@ -194,8 +196,12 @@
 
 	Для Каждого Колонка Из _Отчет.Колонки Цикл
 
+		Если Колонка.ЭтоЧисло Тогда
+			Продолжить;
+		КонецЕсли;
+
 		ЗначенияКолонки = _Отчет.Таблица.ВыгрузитьКолонку(Колонка.Имя);
-		Если МатематическиеФункцииБенчмарков.ТолькоЧисла(ЗначенияКолонки, Истина) Тогда
+		Если МатематическиеФункцииБенчмарков.ТолькоЧисла(ЗначенияКолонки) Тогда
 			Колонка.ЭтоЧисло = Истина;
 		КонецЕсли;
 
@@ -231,6 +237,44 @@
 	
 КонецПроцедуры
 
+Процедура ОпределитьФорматныеСтроки()
+
+	Для Каждого Колонка Из _Отчет.Колонки Цикл
+		
+		Если Не Колонка.ЭтоЧисло Тогда
+			Продолжить;
+		КонецЕсли;
+
+		МинЗначение = Неопределено;
+		Для Каждого Строка Из _Отчет.Таблица Цикл
+			Значение = Строка[Колонка.Имя];
+			Если ТипЗнч(Значение) = Тип("Число") Тогда
+				МинЗначение = ?(МинЗначение = Неопределено, Значение, Мин(МинЗначение, Значение));
+			КонецЕсли;
+		КонецЦикла;
+
+		Если МинЗначение = Неопределено Тогда
+			Возврат;
+		КонецЕсли;
+
+		Если Не Колонка.ЕдиницаИзмерения = Неопределено И Не Колонка.ЕдиницаИзмеренияПредставления = Неопределено Тогда
+			МинЗначение = ЕдиницыИзмеренийБенчмарков.Конвертировать(
+				МинЗначение,
+				Колонка.ЕдиницаИзмерения,
+				Колонка.ЕдиницаИзмеренияПредставления
+			);
+		КонецЕсли;
+
+		Разрядность = ПредставленияПоказателейБенчмарков.ПодобратьРазрядностьДробнойЧасти(
+			МинЗначение,
+			Колонка.ЕдиницаИзмерения);
+
+		Колонка.ФорматнаяСтрока = ПредставленияПоказателейБенчмарков.ФорматнаяСтрокаЧисла(Разрядность);
+
+	КонецЦикла;	
+	
+КонецПроцедуры
+
 Процедура ОпределитьРазмерыКолонок()
 
 	Для Каждого Колонка Из _Отчет.Колонки Цикл
diff --git a/src/BenchmarkOneScript/core/Модули/МатематическиеФункцииБенчмарков.os b/src/BenchmarkOneScript/core/Модули/МатематическиеФункцииБенчмарков.os
@@ -104,20 +104,14 @@
 
 КонецФункции
 
-Функция ТолькоЧисла(Значения, ВключаяНеопределено = Ложь) Экспорт
+Функция ТолькоЧисла(Значения) Экспорт
 
 	ТипЧисло = Тип("Число");
 
 	Для Каждого Значение Из Значения Цикл
-		
-		Если Значение = Неопределено И ВключаяНеопределено Тогда
-			Продолжить;
-		КонецЕсли;
-
 		Если Не ТипЗнч(Значение) = ТипЧисло Тогда
 			Возврат Ложь;
 		КонецЕсли;
-
 	КонецЦикла;
 
 	Возврат Истина;
diff --git a/src/BenchmarkOneScript/core/Модули/ПредставленияПоказателейБенчмарков.os b/src/BenchmarkOneScript/core/Модули/ПредставленияПоказателейБенчмарков.os
@@ -7,7 +7,7 @@
 	Если ЗначениеЗаполнено(ФорматнаяСтрока) Тогда
 		Представление = Формат(Значение, ФорматнаяСтрока);
 	ИначеЕсли ТипЗнч(Значение) = Тип("Число") Тогда
-		Представление = ПредставлениеЧисла(Значение);
+		Представление = ПредставлениеЧисла(Значение, ЕдиницаИзмерения);
 	ИначеЕсли ТипЗнч(Значение) = Тип("Булево") Тогда
 		Представление = ПредставлениеБулево(Значение);
 	Иначе
@@ -39,22 +39,37 @@
 
 КонецФункции
 
-Функция ПредставлениеЧисла(Знач Значение, Разрядность = Неопределено) Экспорт
+Функция ПредставлениеЧисла(Значение, ЕдиницаИзмерения = Неопределено) Экспорт
 
-	МинимальнаяТочность = 1;
-	МаксимальнаяТочность = 4;
+	Разрядность = ПодобратьРазрядностьДробнойЧасти(Значение, ЕдиницаИзмерения);
 
-	Если Значение <> 0 Тогда
-		Точность = 3 - Цел(Log10(?(Значение < 0, -Значение, Значение)));
-		Точность = Макс(Точность, МинимальнаяТочность);
-		Точность = Мин(Точность, МаксимальнаяТочность);
+	Представление = Формат(Значение, ФорматнаяСтрокаЧисла(Разрядность));
+
+	Возврат Представление;
+
+КонецФункции
 
-		Значение = Окр(Значение, Точность);
+Функция ПодобратьРазрядностьДробнойЧасти(Знач Значение, ЕдиницаИзмерения = Неопределено) Экспорт
+
+	Если Значение = 0 Тогда
+		Возврат 0;
 	КонецЕсли;
 
-	Представление = Формат(Значение, ФорматнаяСтрокаЧисла(Разрядность));
+	ЭтоВремя = Не ЕдиницаИзмерения = Неопределено И ЕдиницаИзмерения.Базовая = ЕдиницыИзмеренийБенчмарков.Наносекунда;
 
-	Возврат Представление;
+	МинимальнаяРазрядность = ?(ЭтоВремя, 1, 0);
+	МаксимальнаяРазрядность = 4;
+
+	Значение = ?(Значение < 0, -Значение, Значение);
+	Разрядность = 3 - Цел(Log10(Значение));
+	Разрядность = Макс(Разрядность, МинимальнаяРазрядность);
+	Разрядность = Мин(Разрядность, МаксимальнаяРазрядность);
+
+	Значение = Окр(Значение, Разрядность);
+
+	Разрядность = Макс(РазрядностьЧисла(Значение), МинимальнаяРазрядность);
+
+	Возврат Разрядность;
 
 КонецФункции
 
@@ -95,4 +110,17 @@
 		Возврат Строка + ДобавочныеСимволы;
 	КонецЕсли;
 
+КонецФункции
+
+Функция РазрядностьЧисла(Знач Значение)
+
+	Значение = ?(Значение < 0, -Значение, Значение);
+	Значение = Значение - Цел(Значение);
+
+	Если Значение = 0 Тогда
+		Возврат 0;
+	КонецЕсли;
+
+	Возврат СтрДлина(СтрЗаменить(Значение, "0.", ""));
+
 КонецФункции
diff --git a/tests/ТестыПредставленияПоказателей.os b/tests/ТестыПредставленияПоказателей.os
@@ -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";
 
 	Для Каждого Строка Из ТестовыйНабор Цикл
 
@@ -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 Тогда
+			Ожидаем.Что(РезультатСМинусом).Равно("-" + Представление);	
+		КонецЕсли;
+
+	КонецЦикла;
+
 КонецПроцедуры
