diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-06 03:14:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-06 03:14:30 +0000 |
| commit | d14fd317bc282ba83762209a48632087e5036ebf (patch) | |
| tree | f13bc1e0e91ab9592f7fdfbc197f1ad49cab69e2 /src/algebra/twofact.spad.pamphlet | |
| parent | c32856c7077d6220b6785b1e6e819b41ea4244be (diff) | |
| download | open-axiom-d14fd317bc282ba83762209a48632087e5036ebf.tar.gz | |
* interp/metalex.lisp (KEYWORDS): Include try.
* algebra/numode.spad.pamphlet: Change field try to tryValue.
* algebra/multsqfr.spad.pamphlet: Change identifier try to tryCount.
Diffstat (limited to 'src/algebra/twofact.spad.pamphlet')
| -rw-r--r-- | src/algebra/twofact.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/twofact.spad.pamphlet b/src/algebra/twofact.spad.pamphlet index 4b6a1525..667dbd5d 100644 --- a/src/algebra/twofact.spad.pamphlet +++ b/src/algebra/twofact.spad.pamphlet @@ -220,12 +220,12 @@ TwoFactorize(F) : C == T -- find the substitution for x look:Boolean:=true dm:=degree m - try:Integer:=min(5,size()$F) + tryCount:Integer:=min(5,size()$F) i:Integer:=0 lcm := leadingCoefficient m umv : R vval : F - while look and i < try repeat + while look and i < tryCount repeat vval := random()$F i:=i+1 zero? elt(lcm, vval) => "next value" |