Tangente

[roman]

¿Y por qué Assert(IsInfinity(Pi/2)) falla?

// Saludos

[[seoane]]

Empezado por roman

¿Y por qué Assert(IsInfinity(Pi/2)) falla?

// Saludos

Hola roman, supongo que la pregunta es para mi. También supongo que con IsIninity te refieres a IsInfinite, y que donde dices pi/2, te refieres a tan(pi/2). Si no es así corrígeme.

De todas formas, yo lo que dije es que te daba el numero mas alto que podía, no dije que fuese "infinito". Y además tengo mis dudas de que la función IsInfinite funcione en este caso, ya que su parámetro esta definido como un double mientras que el resultado de "tan" es un extended. Puede que este ultimo punto sea una tontería, tendría que comprobarlo mejor ...

De todas formas lo que es innegable es que la tan(pi/2)=x/0 y que x/0, por lo menos cuando yo estudiaba matemáticas, es igual a infinito, no una indeterminación

[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...