[ingt]

Обычно при оценке погрешности решения используют относительную погрешность. Однако, если хотя бы одна из искомых переменных равна нулю, то получается деление на ноль. Как проверить относительную погрешность решения НДМ, если хотя бы одна из искомых переменных близка/равна нулю? Или как по-другому оценить погрешность решения, если относительную погрешность в данном случае не работает?

[nickname2019]

Сравнение переменных А и В
1. Вводится абсолютный допуск t=0.001 (например)
2. Считается модуль разности D=abs(A-B)
3. Если D<t, то переменные равны, относительную разность считать не надо
4. Если D<t не выполняется - считается относительная разность и сверяется с допуском.

[ingt]

Сообщение от nickname2019 3. Если D<t, то переменные равны, относительную разность считать не надо

Т. е. такую переменную исключают из выражения отн. погрешности, остальные остаются?

[nickname2019]

Сообщение от ingt Т. е. такую переменную исключают из выражения отн. погрешности, остальные остаются?

Если мы пишем программу для работы с числами с плавающей точкой, то нужны процедуры (функции) для сравнения чисел.
Т.е. здесь нужно исключить проблему, что считать нулем. Нулем считается число, которое меньше абсолютной погрешности.
Остальная логика остается.

Примерно в 1997 на паскале я себе написал вот такие функции:

Код:

[Выделить все]

 
function ravno(x,y:double):boolean;
var summa:double;
    pogr:double;
begin
  {Два числа равны, если они отличаются менее, чем на 0.0000001 от суммы их модулей}
  summa:=abs(x)+abs(y);
  pogr:=dopusk*summa;
  if (abs(x-y)<pogr)or(abs(x-y)<dopusk) then
    begin
      result:=true;
    end
   else
    begin
      result:=false;
    end;
end;{ravno}

function bolshe(x,y:double):boolean;
begin
  if ravno(x,y) then
    begin
      result:=false;
      exit;
    end;
  if x>y then
    result:=true
   else
    result:=false;
end;{ravno}

function menshe(x,y:double):boolean;
begin
  if ravno(x,y) then
    begin
      result:=false;
      exit;
    end;
  if x<y then
    result:=true
   else
    result:=false;
end;{ravno}

[Tyhig]

ingt, программы умеешь писать ?
Замути свой НДМ калькулятор ? Я уж задолбался. Сдался на 2000ой строке в екселе. Смысла нет. Куда его потом пихать без сертификата.