Problema con RoundTo en .NET

[[Al González]]

¡Hola a todos!

Tienes toda la razón Román. Al menos en teoría. Lo que sucede es que ya intenté utilizar las funciones Set8087CW y SetRoundMode sin obtener el resultado que la misma ayuda refiere.

¿Podrías probarlas en tu estación de trabajo para verificar lo que digo? Tal vez se me pasó algo.

Gracias.

Un abrazo expectante.

Al González.

[roman]

¿Mi estación de trabajo? ¡Vaya nombre elegante para mi laptop en un escritorio desordenado, acompañado de un frasco de cacahuates, pero en fin

Pues probarlas, lo hice justo antes de responder este mensaje. Claro que mis pruebas se redujeron a los valores ejemplo que pusiste, pero no sési haga falta más.

// Saludos

[[Al González]]

OK

Voy a probar nuevamente. No te despegues de los cacahuates, regreso en unos minutos...

Al.

[dec]

Hola,

Empezado por Román

¿Mi estación de trabajo? ¡Vaya nombre elegante para mi laptop en un escritorio desordenado, acompañado de un frasco de cacahuates, pero en fin

[ modo jomer on ] Hum... cacahutes... [/ modo jomer off]

[roman]

Mmmm, ahora vengo, voy por una cerveza.

[[Al González]]

(eliminé este mensaje para evitar confusiones)

[[Al González]]

¡Hola a todos!

Haciendo memoria (y pruebas adicionales), me vienen a la mente las dos principales razones por las cuales descarté hace tiempo el uso de las funciones SetRoundMode y RoundTo para redondear números que caían “en medio”. Una de las razones es la pérdida de precisión que ocurre al manejar valores Extended, siendo que el parámetro AValue de RoundTo es Double (y por lo cual parece redondear 2.55 como 2.5 en lugar de 2.6 cuando se utiliza rmNearest).

Pero la razón de mayor peso es el comportamiento de RoundTo al aplicar las constantes rmUp y rmDown (redondeo hacia el infinito positivo y negativo, respectivamente):

No aplica el redondeo en función de la “mitad decisiva”, siempre sube o siempre baja. Es un típico ceil / floor, lo cual podemos comprobar con el siguiente código:

Código Delphi [-]
Var
  D1, D2 : Double;
Begin
  D1 := 1.231;

  SetRoundMode (rmUp);
  D2 := RoundTo (D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := -1.231;

  SetRoundMode (rmDown);
  D2 := RoundTo (D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := 1.239;

  SetRoundMode (rmDown);
  D2 := RoundTo(D1, -2);
  ShowMessage (FloatToStr (D2));

  D1 := -1.239;

  SetRoundMode (rmUp);
  D2 := RoundTo(D1, -2);
  ShowMessage (FloatToStr (D2));

Ahora mi duda es si todos los tipos de redondeo a los que se refiere el estándar IEEE 754 tienen que ver con los casos donde un número cae en medio y no como RoundTo lo hace.

Al González.