almostEqual()

bool almostEqual	(	const RingCCC *	R,
		int	nbits,
		ring_elem	a,
		ring_elem	b )

Definition at line 39 of file RingCCCTest.cpp.

{
  mpfr_t epsilon;
  mpfr_init2(epsilon, 100);
  mpfr_set_ui_2exp(epsilon, 1, -nbits, MPFR_RNDN);
 
  ring_elem f = R->subtract(a, b);
  auto f1 = BIGCC_RE(f);
  bool re_is_zero = (mpfr_cmpabs(f1, epsilon) < 0);
  auto f2 = BIGCC_IM(f);
  bool im_is_zero = (mpfr_cmpabs(f2, epsilon) < 0);
 
  bool ret = re_is_zero && im_is_zero;
  mpfr_clear(epsilon);
  return ret;
}

References BIGCC_IM, BIGCC_RE, and M2::ConcreteRing< RingType >::subtract().

Referenced by TEST(), TEST(), TEST(), TEST(), and TEST().