remove undesired bound

This commit is contained in:
Nelynx 2025-03-26 20:27:53 +01:00
parent 34d6393207
commit 8d435326a9

View File

@ -672,7 +672,7 @@ proc MalgrFormVect(matrix v, list #)
//"determinacyIdeal=";determinacyIdeal; // //"determinacyIdeal=";determinacyIdeal; //
while (reduce(rv, determinacyIdeal)[1] != 0 && D <20) while (reduce(rv, determinacyIdeal)[1] != 0)
{ {
//"rv=";rv;// //"rv=";rv;//
D++; D++;
@ -688,7 +688,7 @@ proc MalgrFormVect(matrix v, list #)
wv = module(subst(matrix(wv), X(i), mappingf[i])); wv = module(subst(matrix(wv), X(i), mappingf[i]));
} }
//"wv en OX=";wv;// //"wv en OX=";wv;//
rv = rv[1] - wv[1]; rv = rv[1] - wv[1];
//"reduccion = ";reduce(rv, determinacyIdeal)[1]; // //"reduccion = ";reduce(rv, determinacyIdeal)[1]; //
} }