FiveTech Software tech support forums

Posted: **Fri Nov 04, 2005 6:30 pm**

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**

Angel,

Que build de harbour estás usando ? De que fecha ?

Posted: **Fri Nov 04, 2005 9:06 pm**

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**

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**

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**

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 Expand view: function Main() Alert( "antes" ) Alert( 2 / 0.0 ) Alert( "despues" ) return nil

Posted: **Mon Nov 07, 2005 4:02 pm**

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 Expand view
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 los caminos de ubeda ;-)

FiveTech Software tech support forums

División por cero?

División por cero?