aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/mts.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/mts.spad.pamphlet')
-rw-r--r--src/algebra/mts.spad.pamphlet6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/mts.spad.pamphlet b/src/algebra/mts.spad.pamphlet
index a7335877..1d26d0a1 100644
--- a/src/algebra/mts.spad.pamphlet
+++ b/src/algebra/mts.spad.pamphlet
@@ -142,7 +142,7 @@ SparseMultivariateTaylorSeries(Coef,Var,SMP):_
rst s
eval(s:%,v:L Var,q:L %) ==
- #v ^= #q =>
+ #v ~= #q =>
error "eval: number of variables should equal number of values"
nq : L StS := [restCheck(i pretend StS) for i in q]
addiag(map(csubst(v,nq),s pretend StS)$ST2(SMP,StS))$STT pretend %
@@ -250,12 +250,12 @@ SparseMultivariateTaylorSeries(Coef,Var,SMP):_
n : NNI; count : NNI := _$streamCount$Lisp
l : List OUT := empty()
for n in 0..count while not empty? uu repeat
- if frst(uu) ^= 0 then l := concat(tout frst uu,l)
+ if frst(uu) ~= 0 then l := concat(tout frst uu,l)
uu := rst uu
if showAll?() then
for n in n.. while explicitEntries? uu and _
not eq?(uu,rst uu) repeat
- if frst(uu) ^= 0 then l := concat(tout frst uu,l)
+ if frst(uu) ~= 0 then l := concat(tout frst uu,l)
uu := rst uu
l :=
explicitlyEmpty? uu => l