Tangente

[roman]

Ja, ja, ¡cuántos errores en una sola línea!

La pregunta era más que nada para saber del funcionamiento de la unidad Math. Se supone que funciones como IsInfinite y la constante INFINITE están para tratar estos casos, o al menos eso creía yo.

// Saludos

[[seoane]]

Empezado por roman

La pregunta era más que nada para saber del funcionamiento de la unidad Math. Se supone que funciones como IsInfinite y la constante INFINITE están para tratar estos casos, o al menos eso creía yo.

Yo supongo que también, pero la limitación nos viene impuesta en este caso por la unidad de punto flotante, que al parecer para esta función el valor mayor que puede dar como resultado es ese. Sus razones tendrán.

De todas formas, para el caso nos viene dando igual. En la mayoría de los cálculos un valor MUY alto en lugar de infinito servirá, y si tenemos mucho interés en detectar cuando realmente es infinito. Un par de If convenientemente colocados y listo

[roman]

Empezado por seoane

Un par de If convenientemente colocados y listo

Claro, algo como

Código Delphi [-]
if IsInfinite(X) then
  ...

// Saludos

[[seoane]]

Pues ya ves, estaba pensando en hacer la gracia de poner esto:

Código Delphi [-]
var
  X: Extended;
  tanX: Extended;
  EsInfinito: Boolean;
begin
  X:= pi/2;
  EsInfinito:= (Sin(X)/Cos(X)) = Infinite;
  tanX:= tan(X);
  if EsInfinito then
    ShowMessage('El Resultado es infinito: ' + FloatToStr(Sin(X)/Cos(X)))
  else
    ShowMessage(FloatToStr(tanX));
end;

Pero, imagínate, el resultado de Sin(pi/2)/Cos(pi/2) es -3,68934881474191E19 . Bueno parece que ya tenemos un nuevo valor para definir el infinito

[[AzidRain]]

No es mas sencillo verificar los valores antes de hacer el cálculo?? Ahi podria determinarse si el resultado sera Infinito o si será una indeterminación (0/0, cero sobre cero) y ya. Después de todo esos resultados son conocidos sin necesidad de hacer el cálculo. Es como si se quisiera dividir entre cero, para que esperarse a que brinque el error...

[[seoane]]

Empezado por AzidRain

No es mas sencillo verificar los valores antes de hacer el cálculo?? Ahi podria determinarse si el resultado sera Infinito o si será una indeterminación (0/0, cero sobre cero) y ya. Después de todo esos resultados son conocidos sin necesidad de hacer el cálculo. Es como si se quisiera dividir entre cero, para que esperarse a que brinque el error...

AzidRain, con eso me refería cuando dije lo de usar un par de If. El ultimo código intentaba ser una broma. Pero ya veo que no era tan evidente

[[AzidRain]]

Glup! GluP! y requete Glup!