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

◆ translate_gbvector_from_ringelem_QQ()

gbvector * PolyRing::translate_gbvector_from_ringelem_QQ ( ring_elem coeff) const

Definition at line 2470 of file poly.cpp.

2471{
2472 // We assume that the ring elements here have no denominators
2473 GBRing *GR = get_gb_ring();
2474 gbvector head;
2475 gbvector *inresult = &head;
2476 for (Nterm& t : coeff)
2477 {
2478 // make a gbvector node.
2479 ring_elem a = globalZZ->RingZZ::from_int(mpq_numref(MPQ_VAL(t.coeff)));
2480 gbvector *g = GR->gbvector_term(nullptr, a, t.monom, 0);
2481 inresult->next = g;
2482 inresult = inresult->next;
2483 }
2484 return head.next;
2485}
gbvector * gbvector_term(const FreeModule *F, ring_elem coeff, int comp)
Definition gbring.cpp:300
virtual GBRing * get_gb_ring() const
Definition polyring.hpp:276
RingZZ * globalZZ
Definition relem.cpp:13
#define MPQ_VAL(f)
Definition ringelem.hpp:206
gbvector * next
Definition gbring.hpp:80

References GBRing::gbvector_term(), PolynomialRing::get_gb_ring(), globalZZ, MPQ_VAL, and gbvector::next.

Referenced by translate_gbvector_from_ringelem().