/usr/share/axiom-20170501/src/algebra/PLOT1.spad is in axiom-source 20170501-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | )abbrev package PLOT1 PlotFunctions1
++ Authors: R.T.M. Bronstein, C.J. Williamson
++ Date Created: Jan 1989
++ Date Last Updated: 4 Mar 1990
++ Description:
++ PlotFunctions1 provides facilities for plotting curves
++ where functions SF -> SF are specified by giving an expression
PlotFunctions1(S) : SIG == CODE where
S : ConvertibleTo InputForm
SIG ==> with
plot : (S, Symbol, Segment DoubleFloat) -> Plot
++ plot(fcn,x,seg) plots the graph of \spad{y = f(x)} on a interval
plot : (S, S, Symbol, Segment DoubleFloat) -> Plot
++ plot(f,g,t,seg) plots the graph of \spad{x = f(t)}, \spad{y = g(t)}
++ as t ranges over an interval.
plotPolar : (S, Symbol, Segment DoubleFloat) -> Plot
++ plotPolar(f,theta,seg) plots the graph of \spad{r = f(theta)} as
++ theta ranges over an interval
plotPolar : (S, Symbol) -> Plot
++ plotPolar(f,theta) plots the graph of \spad{r = f(theta)} as
++ theta ranges from 0 to 2 pi
CODE ==> add
import MakeFloatCompiledFunction(S)
plot(f, x, xRange) == plot(makeFloatFunction(f, x), xRange)
plotPolar(f,theta) == plotPolar(makeFloatFunction(f,theta))
plot(f1, f2, t, tRange) ==
plot(makeFloatFunction(f1, t), makeFloatFunction(f2, t), tRange)
plotPolar(f,theta,thetaRange) ==
plotPolar(makeFloatFunction(f,theta),thetaRange)
|