aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/plot.spad.pamphlet
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2009-06-11 23:00:40 +0000
committerdos-reis <gdr@axiomatics.org>2009-06-11 23:00:40 +0000
commit9e07dcd91c45bf8b22d932321f5c97e931ffe8ac (patch)
tree6d2174e90e5779b1b3ab4ae7df3ae6603b66c6c2 /src/algebra/plot.spad.pamphlet
parent7bd82b57975bbc1ff5b87fed0739815c620ecdcc (diff)
downloadopen-axiom-9e07dcd91c45bf8b22d932321f5c97e931ffe8ac.tar.gz
* algebra/: Don't quote '!' at end of names.
Diffstat (limited to 'src/algebra/plot.spad.pamphlet')
-rw-r--r--src/algebra/plot.spad.pamphlet42
1 files changed, 21 insertions, 21 deletions
diff --git a/src/algebra/plot.spad.pamphlet b/src/algebra/plot.spad.pamphlet
index 0ab68ee1..146c4726 100644
--- a/src/algebra/plot.spad.pamphlet
+++ b/src/algebra/plot.spad.pamphlet
@@ -258,7 +258,7 @@ Plot(): Exports == Implementation where
c := concat(h,c)
q := concat(f h,q)
NUMFUNEVALS := NUMFUNEVALS + 1
- t := c := reverse_! c; p := q := reverse_! q
+ t := c := reverse! c; p := q := reverse! q
s := (h-l)/(minPoints()::F-1)
if (first t) ~= l then
t := c := concat(l,c)
@@ -309,8 +309,8 @@ Plot(): Exports == Implementation where
todot : L L F := nil()
todop : L L P := nil()
while not null rest rest st repeat
- todot := concat_!(todot, st)
- todop := concat_!(todop, sp)
+ todot := concat!(todot, st)
+ todop := concat!(todop, sp)
st := rest st; sp := rest sp
st := headert; sp := headerp
todo1 := todot; todo2 := todop
@@ -346,11 +346,11 @@ Plot(): Exports == Implementation where
tj := tm
t.rest := concat(tj,rest t)
p.rest := concat(f tj, rest p)
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
t := rest t; p := rest p
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
t := rest t; p := rest p
todo1 := rest todo1; todo2 := rest todo2
@@ -358,11 +358,11 @@ Plot(): Exports == Implementation where
tj := tm
t.rest := concat(tj, rest t)
p.rest := concat(f tj, rest p)
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
t := rest t; p := rest p
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
todo1 := rest todo1
todo2 := rest todo2
if not null todo1 then (t := first(todo1); p := first(todo2))
@@ -371,19 +371,19 @@ Plot(): Exports == Implementation where
tj := tm
t.rest := concat(tj,rest t)
p.rest := concat(f tj, rest p)
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
t := rest t; p := rest p
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
t := rest t; p := rest p
tm := (t1+t2)/2::F
tj := tm
t.rest := concat(tj, rest t)
p.rest := concat(f tj, rest p)
- todo1 := concat_!(todo1, t)
- todo2 := concat_!(todo2, p)
+ todo1 := concat!(todo1, t)
+ todo2 := concat!(todo2, p)
todo1 := rest todo1
todo2 := rest todo2
if not null todo1 then (t := first(todo1); p := first(todo2))
@@ -406,8 +406,8 @@ Plot(): Exports == Implementation where
l := l+s
t := concat(l,t)
p := concat(f l,p)
- t := reverse_! concat(h,t)
- p := reverse_! concat(f h,p)
+ t := reverse! concat(h,t)
+ p := reverse! concat(f h,p)
-- print(p::OutputForm)
xRange : R := select(p,xCoord,min) .. select(p,xCoord,max)
yRange : R := select(p,yCoord,min) .. select(p,yCoord,max)
@@ -561,11 +561,11 @@ Plot(): Exports == Implementation where
yRange := third(curve.ranges) :: OUT
l : L OUT := [xSymbol,xRange,spaces,ySymbol,yRange]
if parametric? r then
- l := concat_!([tSymbol,tRange,spaces],l)
+ l := concat!([tSymbol,tRange,spaces],l)
h : OUT := hconcat l
l := [p::OUT for p in curve.points]
f := concat(vconcat concat(h,l),f)
- prefix("PLOT" :: OUT, reverse_! f)
+ prefix("PLOT" :: OUT, reverse! f)
@