Macaulay2 Engine
Loading...
Searching...
No Matches

◆ zeroize_tiny()

ring_elem PolyRing::zeroize_tiny ( gmp_RR epsilon,
const ring_elem f ) const
virtual

Reimplemented from Ring.

Definition at line 1367 of file poly.cpp.

1368{
1369 Nterm head;
1370 Nterm *result = &head;
1371 for (Nterm& a : f)
1372 {
1373 ring_elem c = K_->zeroize_tiny(epsilon, a.coeff);
1374 if (!K_->is_zero(c))
1375 {
1376 result->next = new_term();
1377 result = result->next;
1378 result->coeff = c;
1379 M_->copy(a.monom, result->monom);
1380 }
1381 }
1382 result->next = nullptr;
1383 return head.next;
1384}
Nterm * new_term() const
Definition poly.cpp:146
const Ring * K_
Definition polyring.hpp:123
const Monoid * M_
Definition polyring.hpp:124
VALGRIND_MAKE_MEM_DEFINED & result(result)
Nterm * next
Definition ringelem.hpp:157

References PolynomialRing::K_, PolynomialRing::M_, new_term(), Nterm::next, and result().