¿Existe una función EqualQ "normal" en Mathematica?

En la página de documentación paraEqual nosotros leemos eso

Los números aproximados con precisión de máquina o superior se consideran iguales si difieren en, como máximo, sus últimos siete dígitos binarios (aproximadamente sus últimos dos dígitos decimales).

Aquí hay ejemplos (sistema de 32 bits; para el sistema de 64 bits agregue más ceros en el medio):

In[1]:= 1.0000000000000021 == 1.0000000000000022
1.0000000000000021 === 1.0000000000000022

Out[1]= True

Out[2]= True

Me pregunto si hay un análogo "normal" de laEqual funcionar enMathematica que no deja caer los últimos 7 dígitos binarios?

Respuestas a la pregunta(7)

Su respuesta a la pregunta