Compara��o de Doubles

Question

Ol� pessoal, tenho 2 cpos Doubles: D1,D2.D1 prov�m da soma de um grupo de Doubles c/ 1 decimal.D2 prov�m da soma de outro grupo de Doubles c/ 1 decimal.Pelo Debug do Delphi, quando clico Ctrl+F7 em D1...

Ipc$ · Answer

Esquec� de mencionar que os grupos originais p/ a soma est�o c/ 1 decimal pq sua resultante final �:[code:1:f0d3a4c86a]Trunc(Valor) / 10;[/code:1:f0d3a4c86a]...

Ipc$ · Answer

Ningu�m ?...

Bruno Belchior · Answer

declare a unit [b:194441fa78]Math[/b:194441fa78] e use comparando a fun��o [b:194441fa78]RoundTo[/b:194441fa78]...

if RoundTo(10.5555555,2) = RoundTo(10.555555556,2) then

Onde o segundo par�metro � a quantidade de casas a ser arredondada...

Beppe · Answer

Existe a rotina SameValue, tbm em Math que permite verificar se dois n�meros s�o pr�ximos dado um Delta.SameValue(A, B) usa o erro padr�o, mas pode usar outro(SameValue(A, B, MaxDiff))....

Ipc$ · Answer

Mas o que eu n�o entendo � que todos os Doubles s�o a resultante de:
Trunc(Valor) / 10.
Para mim isso significa que todos est�o com 1 decimal, portanto seu somat�rio resultar� sempre em 1 decimal.
Pq ent�o � gerado um flutuante com mais decimais ?

Beppe · Answer

Realmente � um tro�o complicado de entender, tem a ver com a maneira com que FP�s s�o armazenados(mantissa, expoente e sinal), eles sofrem por normaliza��o e bias, e sempre h� erros de arredondamento com eles. A solu��o seria usar ponto fixo, como o Currency.

Se te interessar mais sobre FP�s e souber ingl�s, google-it: �What every computer scientist should know about floating point arithmetic�...o t�tulo � algo assim.

Ipc$ · Answer

Tentei com Currency e o comportamento foi id�ntico.
Bom, n�o vou mais me aprofundar nisso e a solu��o satisfat�ria que encontrei p/ esse tipo de compara��o foi:

  if (D1 = D2)                     or
     (Trunc(D1*10) = Trunc(D2*10)) or
     (Round(D1*10) = Round(D2*10)) then
    Result := true
  else
    Result := false;

Acredito que n�o seja a forma ideal, mas funciona.

F�rum Compara��o de Doubles #284897