diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-04-26 14:29:42 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-04-26 14:29:42 +0000 |
| commit | 01bdaf0d023c2ec91ebc8f525eef9a2855d65814 (patch) | |
| tree | 630a0f41711badff72987ec110580ad835f2364c /src/algebra/newpoint.spad.pamphlet | |
| parent | 205e00352c8372e5a4bf59cde160dea017295b6e (diff) | |
| download | open-axiom-01bdaf0d023c2ec91ebc8f525eef9a2855d65814.tar.gz | |
* algebra/newpoint.spad.pamphlet (point$Point): Call vector$Vector.
* algebra/array1.spad.pamphlet (fill!$PrimitiveArray): Use builtin
operation.
Diffstat (limited to 'src/algebra/newpoint.spad.pamphlet')
| -rw-r--r-- | src/algebra/newpoint.spad.pamphlet | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/algebra/newpoint.spad.pamphlet b/src/algebra/newpoint.spad.pamphlet index b6479605..9c739e1d 100644 --- a/src/algebra/newpoint.spad.pamphlet +++ b/src/algebra/newpoint.spad.pamphlet @@ -56,10 +56,7 @@ Point(R:Ring) : Exports == Implementation where PI ==> PositiveInteger point(l:List R):% == - pt := new(#l,R) - for x in l for i in minIndex(pt).. repeat - pt.i := x - pt + per vector l dimension p == (# p)::PI -- Vector returns NonNegativeInteger...? convert(l:List R):% == point(l) cross(p0, p1) == |