Page 1 of 1
División por cero?
Posted: Fri Nov 04, 2005 6:30 pm
by AngelSalom
Hola amigos del foro.
Me encuentro con Harbour que me saca a lo "macho" de la aplicación en cuanto se encuentra una división por cero entre variables.
Se que no es correcto, pero en clipper no petaba
Tengo que revisar mi código o hay algo que pueda hacer??
Gracias.
Posted: Fri Nov 04, 2005 8:48 pm
by Antonio Linares
Angel,
Que build de harbour estás usando ? De que fecha ?
Posted: Fri Nov 04, 2005 9:06 pm
by Antonio Linares
Angel,
Con el build actual de Harbour, este código funciona bien:
function Main()
MsgInfo( "before" )
MsgInfo( 2 / 0 )
MsgInfo( "after" )
return nil
Posted: Sat Nov 05, 2005 7:23 am
by Antonio Linares
Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.
Posted: Mon Nov 07, 2005 12:30 pm
by thefull
Antonio Linares wrote:Lo que se está discutiendo ahora en la lista de desarrollo de Harbour es porque 2 / 0 = 0, cuando en realidad debiera ser infinito, y por lo tanto generar un error, ó un aviso.
Es cero, porque desde el errorsys se le dice que retorne cero.
El problema de harbour, y que reporte hace tiempo, cosa que xHarbour tambien petaba pero Walter Negro lo soluciono, era cuando realizas divisiones entre int / double, es decir 1 / 0.0, 1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.
Deje por ahi los test de como en Harbour y xHarbour se rompia, lo que si se
es que en xHarbour fue corregido.
A mi me tuvo loco un tiempo hasta dar con el error estupido de dividir int / double, con el cero de por medio.
Posted: Mon Nov 07, 2005 12:38 pm
by Antonio Linares
thefull wrote:Es cero, porque desde el errorsys se le dice que retorne cero.
Si, eso se está haciendo. Pero en matemáticas, una cantidad dividida por cero es igual a infinito (tiende a infinito). Posiblemente Clipper salió del paso haciéndolo igual a cero, pero no es correcto.
thefull wrote:
cuando realizas divisiones entre int / double, es decir 1 / 0.0, 1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.
Acabo de probar este test con el build más reciente de Harbour, y NO se cae la aplicación. Deben haber arreglado lo que comentas. Lo que si es que el valor que muestra es incorrecto:
Code: Select all
function Main()
Alert( "antes" )
Alert( 2 / 0.0 )
Alert( "despues" )
return nil
Posted: Mon Nov 07, 2005 4:02 pm
by thefull
Antonio Linares wrote:thefull wrote:Es cero, porque desde el errorsys se le dice que retorne cero.
Si, eso se está haciendo. Pero en matemáticas, una cantidad dividida por cero es igual a infinito (tiende a infinito). Posiblemente Clipper salió del paso haciéndolo igual a cero, pero no es correcto.
Bueno, tambien tan( 90 ) tiende a infinito, pero, ¿ como representar ese numero ?, logicamente en una calculadora, te sale ERR.
Pero, por "compatibilidad" con clipper DEBE de retornar CERO , o ERROR!
A elegir, me quedo con cero
Asi si coges la calculadora de windows, aplica 2 / 0 = Error:division por cero.
Ahora, aplicas tan( 90 ) = Entrada no válida para func.
OH!!!, me quedo con cero , jejejel o al menos, que el errorsys DEVUELVA CERO, mas sencillo imposible...
IF ( oError:genCode == EG_ZERODIV ) // by default, division by zero yields zero
RETURN 0
ENDIF
thefull wrote:
cuando realizas divisiones entre int / double, es decir 1 / 0.0, 1.0 / 0, ocasionaba una caida no recuperable ni por errorsys , ni por begin secuenque , ni leches.
Antonio Linares wrote:Acabo de probar este test con el build más reciente de Harbour, y NO se cae la aplicación. Deben haber arreglado lo que comentas. Lo que si es que el valor que muestra es incorrecto:
Code: Select all
function Main()
Alert( "antes" )
Alert( 2 / 0.0 )
Alert( "despues" )
return nil
Pues si el valor es incorrecto, no esta bien
. Por cierto, pregunta tambien por el ValType( 2 / 0.0 ), creo que tambien se iba por _ de ubeda