diff options
Diffstat (limited to 'src/algebra/eigen.spad.pamphlet')
| -rw-r--r-- | src/algebra/eigen.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/eigen.spad.pamphlet b/src/algebra/eigen.spad.pamphlet index 193b58f9..e9ab3b7a 100644 --- a/src/algebra/eigen.spad.pamphlet +++ b/src/algebra/eigen.spad.pamphlet @@ -137,7 +137,7 @@ EigenPackage(R) : C == T tff(p:SUF,x:SE) : F == degree p=0 => leadingCoefficient p r:F:=0$F - while p^=0 repeat + while p~=0 repeat r:=r+fft(p,x) p := reductum p r @@ -153,7 +153,7 @@ EigenPackage(R) : C == T ---- characteristic polynomial ---- charpol(A:M,x:SE) : F == dimA :PI := (nrows A):PI - dimA ^= ncols A => error " The matrix is not square" + dimA ~= ncols A => error " The matrix is not square" B:M:=zero(dimA,dimA) for i in 1..dimA repeat for j in 1..dimA repeat B(i,j):=A(i,j) @@ -286,7 +286,7 @@ CharacteristicPolynomialPackage(R:CommutativeRing):C == T where ---- characteristic polynomial ---- characteristicPolynomial(A:M,v:R) : R == dimA :PI := (nrows A):PI - dimA ^= ncols A => error " The matrix is not square" + dimA ~= ncols A => error " The matrix is not square" B:M:=zero(dimA,dimA) for i in 1..dimA repeat for j in 1..dimA repeat B(i,j):=A(i,j) |