From 7b3a06b249e272857c858c6ab7ab37c8f1e128e1 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 15 Jan 2009 02:01:28 +0000 Subject: * 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. --- src/algebra/riccati.spad.pamphlet | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/algebra') 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 <>= --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 -- cgit v1.2.3