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

◆ signdivide()

int signdivide ( int n,
const_exponents a,
const_exponents b,
exponents_t exp )
static

Definition at line 1146 of file matrix.cpp.

1147{
1148 int sign = 0;
1149 int sum = 0;
1150 for (int i = 0; i < n; i++)
1151 {
1152 int e = a[i] - b[i];
1153 if (e < 0) return 0;
1154 exp[i] = e;
1155 sign += sum * e;
1156 sum += b[i];
1157 }
1158 sign %= 2;
1159 if (sign == 0) return 1;
1160 return -1;
1161}
const mpreal exp(const mpreal &x, mp_rnd_t r=mpreal::get_default_rnd())
Definition mpreal.h:2298
const mpreal sum(const mpreal tab[], const unsigned long int n, int &status, mp_rnd_t mode=mpreal::get_default_rnd())
Definition mpreal.h:2600

Referenced by Matrix::koszul().