diff options
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) == |