diff options
Diffstat (limited to 'src/algebra/plot.spad.pamphlet')
| -rw-r--r-- | src/algebra/plot.spad.pamphlet | 42 |
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) @ |