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

◆ add()

ring_elem FractionField::add ( const ring_elem f,
const ring_elem g ) const
virtual

Implements Ring.

Definition at line 468 of file frac.cpp.

469{
470 const frac_elem *f = FRAC_VAL(a);
471 const frac_elem *g = FRAC_VAL(b);
472 ring_elem top, bottom;
473
474 if (R_->is_equal(f->denom, g->denom))
475 {
476 top = R_->add(f->numer, g->numer);
477 bottom = R_->copy(f->denom);
478 }
479 else
480 {
481 top = R_->mult(f->numer, g->denom);
482 ring_elem tmp = R_->mult(f->denom, g->numer);
483 R_->add_to(top, tmp);
484 bottom = R_->mult(f->denom, g->denom);
485 if (R_->is_zero(bottom)) return set_non_unit_frac(f->denom);
486 }
487 frac_elem *result = make_elem(top, bottom);
488 return FRAC_RINGELEM(result);
489}
ring_elem set_non_unit_frac(ring_elem top) const
Definition frac.cpp:89
frac_elem * make_elem(ring_elem a, ring_elem b) const
Definition frac.cpp:182
const PolyRingFlat * R_
Definition frac.hpp:63
#define FRAC_VAL(f)
Definition frac.cpp:14
#define FRAC_RINGELEM(a)
Definition frac.cpp:15
VALGRIND_MAKE_MEM_DEFINED & result(result)
ring_elem numer
Definition frac.hpp:43
ring_elem denom
Definition frac.hpp:44

References frac_elem::denom, FRAC_RINGELEM, FRAC_VAL, make_elem(), frac_elem::numer, R_, result(), and set_non_unit_frac().