diff options
Diffstat (limited to 'src/algebra/groebsol.spad.pamphlet')
| -rw-r--r-- | src/algebra/groebsol.spad.pamphlet | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/algebra/groebsol.spad.pamphlet b/src/algebra/groebsol.spad.pamphlet index eedaa3bb..c89f31d9 100644 --- a/src/algebra/groebsol.spad.pamphlet +++ b/src/algebra/groebsol.spad.pamphlet @@ -113,7 +113,7 @@ GroebnerSolve(lv,F,R) : C == T gbt: L DPoly gb1: Union(L DPoly,"failed") for count in 1.. while testfail repeat - ranvals := [1+(random()$I rem (count*(# lvar))) for vv in rlvar] + ranvals := [1 + random(count*(# lvar))$I for vv in rlvar] val:=+/[rv*(vv::HDPoly) for vv in rlvar for rv in ranvals] val:=val+x::HDPoly |