diff --git a/AeCodPruebas.lib b/AeCodPruebas.lib index 14a9ff1..62c1f00 100644 --- a/AeCodPruebas.lib +++ b/AeCodPruebas.lib @@ -672,7 +672,7 @@ proc MalgrFormVect(matrix v, list #) //"determinacyIdeal=";determinacyIdeal; // - while (reduce(rv, determinacyIdeal)[1] != 0 && D <20) + while (reduce(rv, determinacyIdeal)[1] != 0) { //"rv=";rv;// D++; @@ -688,7 +688,7 @@ proc MalgrFormVect(matrix v, list #) wv = module(subst(matrix(wv), X(i), mappingf[i])); } //"wv en OX=";wv;// - + rv = rv[1] - wv[1]; //"reduccion = ";reduce(rv, determinacyIdeal)[1]; // }