diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/algebra/vector.spad.pamphlet | 10 |
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 |