Как исправить ошибку в преобразовании времени экспозиции из EXIF в дробь секунд в приложении на Delphi

Delphi , Синтаксис , Математика

Вопрос, поднятый Roy M Klever, касается преобразования значения времени экспозиции из EXIF-данных в дробное время в секундах. При использовании двух различных рутин для вычисления, результаты оказались разными и не соответствовали ожидаемым. Ожидалось получить "1/12", однако полученные значения были "16129/200000" и "5/62" соответственно.

Почему возникает ошибка?

Ошибка заключалась в неправильном преобразовании числа с плавающей точкой в дробь. Функции DecimalToFractStr и DecToFrac возвращали некорректные результаты из-за особенностей работы с дробями в языке программирования Pascal, на котором написаны эти функции. Проблема усугублялась тем, что разработчик не использовал стандартные математические операции для работы с дробями, а пытался реализовать их самостоятельно, что привело к потере точности.

Как решить проблему?

Решением стало простое целочисленное деление полученного числителя и знаменателя на наибольший общий делитель (НОД). В данном случае, после деления на 5, результат функции DecToFrac изменился с "5/62" на "1/12".

function NormalizeFraction(num, den: Integer): String;
var
  gcd: Integer;
begin
  gcd := GCD(num, den);
  Result := Format('%d/%d', [num div gcd, den div gcd]);
end;

function GCD(a, b: Integer): Integer;
begin
  while b <> 0 do
  begin
    a := b;
    b := a mod b;
  end;
  Result := a;
end;

Пример кода на Object Pascal

Для удобства использования в приложениях на Delphi, можно использовать следующий пример функции для нормализации дроби:

function NormalizeFraction(value: Double; AllowedDecimals: Integer): String;
var
  num, den: Integer;
begin
  DecimalToFract(value, AllowedDecimals, num, den);
  Result := NormalizeFraction(num, den);
end;

Этот код сначала преобразует число с плавающей точкой в дробь, а затем нормализует результат, используя функцию нахождения НОД.

Подтвержденный ответ

Пользователь Roy M Klever после некоторых тестов обнаружил, что проблема заключалась в неправильном преобразовании дроби, и решение состояло в целочисленном делении числителя и знаменателя на наибольший общий делитель.

Вывод

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

Создано по материалам из источника по ссылке.

Вопрос связан с исправлением ошибки в преобразовании времени экспозиции из EXIF в дробь секунд в приложении на Delphi, вызванной неправильным преобразованием числа с плавающей точкой в дробь, и решением стало нормализация дроб

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::