From cddf510296900897a19d67614e4cf4e145da8646 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Tue, 7 May 2013 15:10:31 +0000 Subject: Tidy linear elements implememtations --- src/ChangeLog | 5 +++++ 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,3 +1,8 @@ +2013-05-07 Gabriel Dos Reis + + * algebra/vector.spad.pamphlet (LinearElement) [corodinates]: Tidy. + (LineraForm) [coordinates]: Likewise. + 2013-05-07 Gabriel Dos Reis * algebra/indexedp.spad.pamphlet (IndexedDirectProductCategory): 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 <>= --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 -- cgit v1.2.3