diff options
Diffstat (limited to 'src/algebra/solverad.spad.pamphlet')
| -rw-r--r-- | src/algebra/solverad.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/solverad.spad.pamphlet b/src/algebra/solverad.spad.pamphlet index 59e92725..ee9e0b68 100644 --- a/src/algebra/solverad.spad.pamphlet +++ b/src/algebra/solverad.spad.pamphlet @@ -165,7 +165,7 @@ RadicalSolvePackage(R): Cat == Capsule where lv1:L Kernel(RE):=[kernel rlv.first] rlv1:=rlv.rest p1:=par.rest - while p1^=[] repeat + while p1~=[] repeat res1:=cons(eval(p1.first,lv1,res1),res1) p1:=p1.rest lv1:=cons(kernel rlv1.first,lv1) @@ -199,7 +199,7 @@ RadicalSolvePackage(R): Cat == Capsule where rpRes:=[reverse res for res in parRes] listGen:= [res for res in rpRes|isGeneric?(res,rlv)] result:L L RE:=[] - if listGen^=[] then + if listGen~=[] then result:="append"/[findGenZeros(res,rlv) for res in listGen] for res in listGen repeat rpRes:=delete(rpRes,position(res,rpRes)) |