aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/algebra/vector.spad.pamphlet10
2 files changed, 10 insertions, 5 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index fc313876..6ebef4bb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,10 @@
2013-05-07 Gabriel Dos Reis <gdr@integrable-solutions.net>
+ * algebra/vector.spad.pamphlet (LinearElement) [corodinates]: Tidy.
+ (LineraForm) [coordinates]: Likewise.
+
+2013-05-07 Gabriel Dos Reis <gdr@integrable-solutions.net>
+
* algebra/indexedp.spad.pamphlet (IndexedDirectProductCategory):
Now extends ConvertibleFrom IndexedProductTerm(A,S).
(IndexedDirectProductObject): Simplify.
diff --git a/src/algebra/vector.spad.pamphlet b/src/algebra/vector.spad.pamphlet
index 110758da..caca4c30 100644
--- a/src/algebra/vector.spad.pamphlet
+++ b/src/algebra/vector.spad.pamphlet
@@ -527,8 +527,8 @@ LinearElement(K,B): Public == Private where
ts := terms rep x
for i in 1..n repeat
t := first ts
- lookup first t = i =>
- v.i := second t
+ lookup index t = i =>
+ v.i := coefficient t
ts := rest ts
v
@
@@ -568,8 +568,8 @@ LinearForm(K,B): Public == Private where
ts := terms rep f
for i in 1..n repeat
t := first ts
- lookup first t = i =>
- v.i := second t
+ lookup index t = i =>
+ v.i := coefficient t
ts := rest ts
v
@@ -584,7 +584,7 @@ LinearForm(K,B): Public == Private where
<<license>>=
--Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
--All rights reserved.
---Copyright (C) 2007-2010, Gabriel Dos Reis.
+--Copyright (C) 2007-2013, Gabriel Dos Reis.
--All rights reserved.
--
--Redistribution and use in source and binary forms, with or without