forked from nbreva/AeCodimension
remove undesired bound
This commit is contained in:
parent
34d6393207
commit
8d435326a9
@ -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]; //
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user