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

◆ exponents_lcm()

void exponents_lcm ( int nvars,
int dega,
exponents_t a,
exponents_t b,
exponents_t result,
M2_arrayint weights,
int & result_degree )
static

Definition at line 294 of file gb-default.cpp.

302{
303 int i;
304 int deg = dega;
305 for (i = 0; i < nvars; i++)
306 {
307 int diff = b[i] - a[i];
308 if (diff <= 0)
309 result[i] = a[i];
310 else
311 {
312 result[i] = b[i];
313 deg += diff * weights->array[i];
314 }
315 }
316 result_degree = deg;
317}
VALGRIND_MAKE_MEM_DEFINED & result(result)

References result().

Referenced by gbA::spair_make(), and gbA::spair_make_skew().