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

◆ make_lead_term_matrix()

Matrix * gb2_comp::make_lead_term_matrix ( )
private

Definition at line 828 of file res-a2-gb.cpp.

829{
830 MatrixConstructor result(F, gb.size());
831 for (int i = 0; i < gb.size(); i++)
832 {
833 gb_elem *g = gb[i];
834 gbvector *f = g->f;
835 if (f == nullptr) continue;
836 // Only grab the lead term, which should be non-null
837 gbvector *fnext = f->next;
838 f->next = nullptr;
839 vec v = originalR->translate_gbvector_to_vec(F, f);
840 f->next = fnext;
841 result.set_column(i, v);
842 }
843 return result.to_matrix();
844}
FreeModule * F
Definition res-a2.hpp:120
const PolynomialRing * originalR
Definition res-a2.hpp:113
void gb(IntermediateBasis &F, int n)
VALGRIND_MAKE_MEM_DEFINED & result(result)
gbvector * f
Definition spair.hpp:58
gbvector * next
Definition gbring.hpp:80

References F, gb_elem::f, gb(), Matrix, gbvector::next, originalR, and result().

Referenced by hilbertNumerator().