Округление и запись Если условие

Question

У меня есть два десятичных числа. Я хочу, чтобы эти цифры были равны до 4 десятичных точек без округления. Если числа разные, я хочу заменить 2-й номер на 1-й. Что делать, если я должен писать?

Например,
1.

num1 = 0.94618976 
num2 = 0.94620239 

Если округлить эти цифры ДО 4 десятичного то мы получаем 0.9462 такое же количество, но я не хочу, чтобы округлить эти цифры.

2.

num1 = 0.94620239 
num2 = 0.94639125 

Тот способ, которым я нашел, взять абсолютную разницу обоих чисел говорят diff, а затем проверить значение. Моя проблема заключается в проверке диапазона diff.

Я пользуюсь delphi, но вы можете отвечать на любом языке.Спасибо!

Answer 1

Используйте что-то вроде SameValue из модуля Math:

if SameValue(num1, num2, 0.000099999999999) and not SameValue(num1, num2) then 
    num2 := num1; // only when different and by less then 0.0001 

Answer 2

Существует несколько возможностей - поскольку вы не предоставили язык, я опишу подход.

Вы можете использовать функцию truncate (это отличается от округления), который просто сбрасывает цифры, которые являются более высокой точностью (так 0.94618976 становятся 0.9461 и 0.94620239 становится 0.9462). Вы можете сравнить результаты усечения.

Если ваш язык не поддерживает прямое цифровое усечение, вы можете преобразовать его в строковое представление и сравнить только первые N символов.

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

Answer 3

Что-то вроде следующего C# код:

if (Math.Abs(Math.Round(number1, 4) - Math.Round(number2, 4)) < 0.00001) 
{ 
    number2 = number1; 
} 

Answer 4

(не предполагающая никаких отрицательных чисел, и предполагая, Дельфы согласно тэгом) использовать TRUNC ().

trunc(num1*10000.0)=trunc(num2*10000.0) 

умножение на 10000 делает его целым числом, а затем все просто.

Если вы вычислите 10000.0 (например, с мощностью (10, n)), вы можете даже сделать число переменных времени выполнения.

Answer 5

Посмотрите на устройство MATH Delph. Вы найдете подпрограммы «RoundTo» и «SimpleRoundTo».

type 
TRoundToEXRangeExtended = -20..20; 

function RoundTo(const AValue: Extended; 
       const ADigit: TRoundToEXRangeExtended): Extended; 

{ This variation of the RoundTo function follows the asymmetric arithmetic 
    rounding algorithm (if Frac(X) < .5 then return X else return X + 1). This 
    function defaults to rounding to the hundredth's place (cents). } 

function SimpleRoundTo(const AValue: Extended; const ADigit: TRoundToRange = -2): Extended; 

Answer 6

Только мысль, но как об этом:

function CheckEqualUpTo4Digits(const aValue1, aValue2: Double): Boolean; 
var 
    Diff: Double; 
begin 
    Diff := Abs(aValue1 - aValue2); 
    Result := (Diff < 0.0001); 
end; 

С помощью этого кода, это возвращает True:

CheckEqualUpTo4Digits(0.94618976, 0.94620239); 

И это возвращает значение False:

CheckEqualUpTo4Digits(0.94620239 , 0.94639125) 

Я не очень много тестировал, но вы могли бы ive это выстрел - по крайней мере, он не использует округление, не преобразование в другой тип (например, что может случиться с усечением), и достаточно быстро.