Floating point overflow в 64-bit ОС

[mlml]

Добрый день!

Пишу на Delphi 11 64-bit для Android 64-bit.

var x: Extended80;
begin
  x:= power(2,-1022);
end;

При выполнении этой команды возникает ошибка:
“Floating point overflow.”

Устраняющая ошибку директива:

SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);

не устраивает, так как при её использовании получается x = 0 (но это не так).

Мне нужно, чтобы это выполнялось без SetExceptionMask (как в 32-битной ОС).
Перерыл русско- и англоязычный интернет, но не нашёл решение.
Как пофиксить?

[phomm]

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

[NetSpace]

а функцию power() в исходниках найти и поглядеть, чего там возникает за исключение такое?
я так понимаю, это 2 в степени -1022?? т.е. 1/ (2^1022)? если да, ну, там точно ноль получается с большой точностью...
есть вариант, самому написать функцию возведения в степень и там уже заложить ограничения, чтоб меньше какой-то степени чтоб выдавало чёткий 0 без ошибок.

[mlml]

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

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

Конечно же, это только часть вычислений, я просто привёл место, где возникает ошибка. Да и это только частный случай. Например, power(2,1022) выдаёт значение INF (при использовании маски исключений).
В 32-битной ОС:
power(2,-1022) выдаёт 2,2250738585072Е-308
power(2,1022) выдаёт 4,49423283715579Е307
и это меня устраивает, но не то, что выдаёт 64-битная.
Мне нужна большая точность при вычислении:
power(2,i), где i может принимать значения от -1023 до +1023
(Extended80: 19 digits of precision in a range from 3.37E-4932 to 1.18E4932)
И ещё почему-то не открывается docwiki.embarcadero.com
Забанили россиян или проблемы с сайтом?
Но это уже другая тема...

[NetSpace]

если возникает такая непреодолимая ошибка, то нет желания часть таких расчётов программно сделать в EXCEL, а уже ответы брать оттуда? заодно создание, чтение и запись в экселевский файл повторите...
или EXCEL у вас тоже такой пример выдаёт с ошибкой?

[mlml]

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

если возникает такая непреодолимая ошибка, то нет желания часть таких расчётов программно сделать в EXCEL, а уже ответы брать оттуда. заодно создание, чтение и запись в экселевский файл повторите...
или EXCEL у вас тоже такой пример выдаёт с ошибкой?

EXCEL, да, выдаёт результат правильно. Это в Delphi 11 64-bit при работе с типом данных Extended80 почему-то не предусмотрена такая точность.

[mlml]

Нашёл, что, если понизить степень, то есть power(2,1022) заменить на:
power(2,100)*power(2,100)*...*power (2,22),
то результат адекватный.
Вопрос, однако, к разработчикам.

[mlml]

Был не прав. Нужно было сделать так:

const a: Extended80 = 2;
var b, c: Extended80;
begin
  b:= 1022;
  c:= Power(a,b);
end;

и ошибки нет.