diff options
Diffstat (limited to 'src/algebra/plot3d.spad.pamphlet')
| -rw-r--r-- | src/algebra/plot3d.spad.pamphlet | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/src/algebra/plot3d.spad.pamphlet b/src/algebra/plot3d.spad.pamphlet index 658b3a32..acabe73b 100644 --- a/src/algebra/plot3d.spad.pamphlet +++ b/src/algebra/plot3d.spad.pamphlet @@ -216,7 +216,7 @@ Plot3D(): Exports == Implementation where if first c < h then 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); p := q := concat(f l,p) @@ -264,8 +264,8 @@ Plot3D(): 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 @@ -304,11 +304,11 @@ Plot3D(): 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 @@ -316,11 +316,11 @@ Plot3D(): 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)) else @@ -328,19 +328,19 @@ Plot3D(): 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)) if n > 0 then @@ -359,8 +359,8 @@ Plot3D(): Exports == Implementation where for i in 2..MINPOINTS-1 repeat 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) xRange : R := select(p,xCoord,min) .. select(p,xCoord,max) yRange : R := select(p,yCoord,min) .. select(p,yCoord,max) zRange : R := select(p,zCoord,min) .. select(p,zCoord,max) @@ -481,11 +481,11 @@ Plot3D(): Exports == Implementation where zRange := coerce curve.ranges.3 l : L OUT := [xSymbol,xRange,spaces,ySymbol,yRange,_ spaces,zSymbol,zRange] - 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) ----% graphics output |