gb_geo_reduce()

int GBinhom_comp::gb_geo_reduce ( gbvector *& f, gbvector *& fsyz )

private

Definition at line 519 of file gb-sugarless.cpp.

{
  gb_elem *q;
 
  gbvector head;
  gbvector *result = &head;
  result->next = nullptr;
  exponents_t div_totalexp = newarray_atomic(int, M->n_vars());
  int count = 0;
 
  gbvectorHeap fb(GR, F);
  gbvectorHeap fsyzb(GR, Fsyz);
  fb.add(f);
  fsyzb.add(fsyz);
  const gbvector *lead;
 
  while ((lead = fb.get_lead_term()) != nullptr)
    {
      GR->gbvector_get_lead_exponents(F, lead, div_totalexp);
#ifdef DEVELOPMENT
#warning "quotient ring stuff"
#endif
      Bag *b;
      if (originalR->is_quotient_ring() &&
          originalR->get_quotient_monomials()->search_expvector(div_totalexp,
                                                                b))
        {
          const gbvector *g = originalR->quotient_gbvector(b->basis_elem());
          GR->reduce_lead_term_heap(F,
                                    Fsyz,
                                    lead,
                                    div_totalexp,  // are these two needed
                                    head.next,
                                    fb,
                                    fsyzb,
                                    g,
                                    nullptr);
          count++;
        }
      else if (search(div_totalexp, lead->comp, q))
        {
          GR->reduce_lead_term_heap(
              F, Fsyz, lead, div_totalexp, head.next, fb, fsyzb, q->f, q->fsyz);
          count++;
        }
      else
        {
          result->next = fb.remove_lead_term();
          result = result->next;
          result->next = nullptr;
        }
    }
 
  if (M2_gbTrace >= 4)
    {
      buffer o;
      o << "." << count;
      emit(o.str());
    }
  f = head.next;
 
  fsyz = fsyzb.value();
  freemem(div_totalexp);
  return 1;
}

References gbvectorHeap::add(), int_bag::basis_elem(), gbvector::comp, emit(), F, gb_elem::f, freemem(), Fsyz, gb_elem::fsyz, gbvectorHeap::get_lead_term(), GR, M, M2_gbTrace, newarray_atomic, gbvector::next, originalR, gbvectorHeap::remove_lead_term(), result(), search(), buffer::str(), and gbvectorHeap::value().

Referenced by gb_reduce().