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

◆ compute_s_pair()

void gb2_comp::compute_s_pair ( s_pair * p)
private

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

312{
313 if (p->f == nullptr)
314 {
315 monomial s = M->make_one();
316 GR->gbvector_get_lead_monomial(F, p->first->f, s);
317 M->divide(p->lcm, s, s);
318
319 GR->gbvector_mult_by_term(
320 F, Fsyz, GR->one(), s, p->first->f, p->first->fsyz, p->f, p->fsyz);
321 if (p->syz_type == SPAIR_PAIR)
322 GR->gbvector_reduce_lead_term(
323 F, Fsyz, nullptr, p->f, p->fsyz, p->second->f, p->second->fsyz);
324 M->remove(s);
325 }
326}
FreeModule * Fsyz
Definition res-a2.hpp:121
FreeModule * F
Definition res-a2.hpp:120
const Monoid * M
Definition res-a2.hpp:115
GBRing * GR
Definition res-a2.hpp:114
const int SPAIR_PAIR
Definition comp-gb.hpp:56
#define monomial
Definition gb-toric.cpp:11
int p
void size_t s
Definition m2-mem.cpp:271

References F, Fsyz, GR, M, monomial, p, s, and SPAIR_PAIR.

Referenced by s_pair_step().