isparallel()

bool isparallel ( M2_arrayint w, int * e, int * f )

static

Definition at line 473 of file gbring.cpp.

{
  // true if e-f is a positive multiple of w
 
  int i, j, a = 0, b;
  int nvars = w->len;
  for (i = 0; i < nvars; i++)
    {
      a = e[i] - f[i];
      if (a) break;
      if (w->array[i] != 0) return false;
    }
  // i is the first spot where e, f differ
  for (j = i + 1; j < nvars; j++)
    {
      b = e[j] - f[j];
      if (a * w->array[j] != b * w->array[i]) return false;
    }
  return true;
}

Referenced by GBRing::gbvector_parallel_lead_terms().