aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-01-15 02:01:28 +0000
committerdos-reis <gdr@axiomatics.org>2009-01-15 02:01:28 +0000
commit7b3a06b249e272857c858c6ab7ab37c8f1e128e1 (patch)
tree3ac06b7857e9283fb9d62950121b4818f931544a /src/algebra
parent839f230416f2e0c5d8efcf778edeee3a31ac8f7b (diff)
downloadopen-axiom-7b3a06b249e272857c858c6ab7ab37c8f1e128e1.tar.gz
* algebra/riccati.spad.pamphlet (innerlb$PrimitiveRatRicDE): Fix
thinko. * interp/bootlex.lisp (get-decimal-number-token): New. (get-integer-in-radix): Likewise. (is-radix-char): Likewise. (get-spad-integer-token): Likewise. Use them. (get-BOOT-token): Use it. * interp/metalex.lisp: Tidy.
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/riccati.spad.pamphlet4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/algebra/riccati.spad.pamphlet b/src/algebra/riccati.spad.pamphlet
index 9f4666c5..0f411bdf 100644
--- a/src/algebra/riccati.spad.pamphlet
+++ b/src/algebra/riccati.spad.pamphlet
@@ -226,7 +226,7 @@ PrimitiveRatRicDE(F, UP, L, LQ): Exports == Implementation where
innerlb(l, nu) ==
lb:List(IJ) := empty()
n := degree l
- for i in 0..n | (li := coefficient(l, i)) ~= 0repeat
+ for i in 0..n | (li := coefficient(l, i)) ~= 0 repeat
for j in i+1..n | (lj := coefficient(l, j)) ~= 0 repeat
u := (nu li - nu lj) exquo (i-j)
if (u case Z) and ((b := u::Z) > 0) then
@@ -554,6 +554,8 @@ RationalRicDE(F, UP): Exports == Implementation where
<<license>>=
--Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--All rights reserved.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- All rights reserved.
--
--Redistribution and use in source and binary forms, with or without
--modification, are permitted provided that the following conditions are