diff options
Diffstat (limited to 'src/algebra/pleqn.spad.pamphlet')
-rw-r--r-- | src/algebra/pleqn.spad.pamphlet | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/pleqn.spad.pamphlet b/src/algebra/pleqn.spad.pamphlet index 8b0569f3..057c9bc3 100644 --- a/src/algebra/pleqn.spad.pamphlet +++ b/src/algebra/pleqn.spad.pamphlet @@ -225,7 +225,7 @@ ParametricLinearEquations(R,Var,Expon,GR): ++ pr2dmp(p) converts p to target domain hasoln: (Fgb, L GR) -> Rec8 ++ hasoln(g, l) tests whether the quasi-algebraic set - ++ defined by p = 0 for p in g and q ^= 0 for q in l + ++ defined by p = 0 for p in g and q ~= 0 for q in l ++ is empty or not and returns a simplified definition ++ of the quasi-algebraic set -- this is now done in QALGSET package @@ -325,7 +325,7 @@ ParametricLinearEquations(R,Var,Expon,GR): w:L GF:=sys.vec p:V GF:=new(n,0) pbas:L V GF:=[] - if k ^= 0 then + if k ~= 0 then augmat:M GF:=zero(k,n+1) for i in rss for i1 in 1.. repeat for j in nss for j1 in 1.. repeat @@ -387,7 +387,7 @@ ParametricLinearEquations(R,Var,Expon,GR): bsolve (coeff, w, h, outname, mode) == r:=nrows coeff -- n:=ncols coeff - r ^= #w => error "number of rows unequal on lhs and rhs" + r ~= #w => error "number of rows unequal on lhs and rhs" newfile:FNAME rksoln:File Rec3 count:I:=0 @@ -613,7 +613,7 @@ ParametricLinearEquations(R,Var,Expon,GR): for nss in nextSublist(n, k) until found repeat matsub := mat(rss, nss) pretend SM(j, GR) detmat := determinant(matsub) - if detmat ^= 0 then + if detmat ~= 0 then found:= (ground? detmat) detmat:=sqfree detmat neweqn:Rec:=construct(detmat,rss,nss) |