home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
pocketbk
/
utilsf
/
gplot
/
GPLOT.OPA
/
GPLOT.txt
next >
Wrap
Text File
|
1994-01-20
|
4KB
|
335 lines
OPLObjectFile**
LOC::M:\OPL\GPLOT.OPL
Graph.ODB
\OPD\GRAPH\
INKEY%
FILE$
KMOD%
RANGE
FUNC$
MENU%
\OPD\GRAPH\
\OPD\GRAPH
sin(q)/q
cos(q)
Graph Plotter V1.0
(c) 1993-94 Matthew Millar
Bug reports or suggestions to
Compuserve:100021,3354
or millar@cix.compulink.co.uk
O @[)
Choose Graph
Graph:+
Full,Right,Left
PARSE$
PROCR
ROUND%
FUNC$
RANGE
Function
y=F(x)=
y=F(x)=
Error:
Zero X range
Error:
Zero Y range
NOJ|VW
NOr|VW
NOJ|VW
OxOPO
OxOPO
Plotting
Escape
Abort Plotting graph ?
YesOY+
Error: Function Undefined
f(q)=
Give a value*
Error: Function Undefined
f(q)=
Give a value*
RANGE
Choose Graph
Graph:+
Full,Right,Left
Auto Range?
YesOY+
On@`[
Graph Ranges
+ Min F(x):(
+ Max F(x):(
Min x:(
Max x:(
Set x range
Min x:(
Max x:(
Set x range
Min x:(
Max x:(
Estimating ranges
NOd|V
*433333
*433333
ROUND%
RANGE
Choose Graph
Graph:+
Full,Right,Left
NOJ|VW
NOr|VW
NOJ|VW
Error
Graph not active
Set Scales
X range
X stepO
Y range
Y stepO
Plotting...
INTEGR
xgplot.opo
Error loading xgplot.opo
xgplot.opo
Display
Graph:+
Full,Right,Cursor,Left
Error:
Graph not yet active
Display
Graph:+
Full,Right,Left
Error:
Graph not yet active
PROCO
FILE$
Error
FILE$
\OPD\GRAPH\
Choose a file
Data File:O
Warning
File exists, Delete?
YesOY+
Oy@[*
FILE$
\OPD\GRAPH\
+ Open File
Data File:O
Error
FILE$
Action
Do you want to:+
Modify,Add to,Erase Points
YERR"
Points
File:
Point Number
Error in Y*
YERR&
Points
File:
Point NumberW
Error in Y*
YERR&
Erase?
File:
Point Number
Y=K+
Y Error=K+
YERR"
NoON+
YesOY
PARSE$
Function to act on X
X=F(x)=
YC`[T
Transposing values
Function to act on Y
y=F(y)=
+ Modifying
PARSE$
FUNC$
Newton Raphson Solution
Choose function
Use Graph:+
Full,Right,Other,Left
Function
F(x)=
Interval
Accuracy = *
Number of stepsO
Solving
Function has escaped interval
+"Check interval brackets a solution
Solved
Fitting
YERR"
Results
y = C + Mx
x intercept =
r.m.s. departure =
Plot graph
Plot graph on+
None,Right,Full,Left
Error
No data in file
X=K+
Y=K+
Y Error=K+
YERR"
ROUND%
CURSOR
RANGE
Error
Only One Point
No Points In File
Error in File
Calculating Ranges
YERR"
|2``[
Include 0,0?
NoON+
YesOY
W7Oy@[]
Choose Graph
Graph:+
Full,Right,Left
Plotting
NOJ|VW
NOr|VW
NOJ|VW
Error
X values are constant
Give X range to plot overO
Or|VW
Error
Y values are constant
Give Y range to plot overO
OJ|VW
OxOPO
OxOPO
Error
File of wrong type or corrupt
ROUND%
CURSOR
GETK%
FUNC$
RANGE
KMOD%
Which Graph
Graph:+
Full,Right,Left
Error:
Graph not used
NOJ|VW
NOr|VW
NOJ|VW
+ Off graph
+ Off graph
+ Off graph
+ Off graph
Redraw graph
Expand: are you sure?
YesOY+
On@`[
PL|RNRO
PL|RJRO
OP|RNRO
OP|RJRO
Redraw graph
Zoom: are you sure?
YesOY+
On@`[
TL|RNRO
TL|RJRO
|RNRO
|RJRO
Redraw graph
Recentre: are you sure?
YesOY+
On@`[
L|RNRO
L|RJRO
O(|RNRO
O(|RJRO
xgplot.opo
Error loading xgplot.opo
xgplot.opo
ABOUT
xgplot.opo
Error loading xgplot.opo
xgplot.opo
HMAIN
xgplot.opo
Error loading xgplot.opo
xgplot.opo
LUDCMP
xgplot.opo
Error loading xgplot.opo
xgplot.opo
GETK%
GWIXSNOELDMPTFCRHAQ
File+
NewON+
OpenOO
Math+
Plot GraphOG+
InfoOF+ IntegrateOI+
Newton-RaphsonOW+
Matrix SolutionOQ
Graph+
TraceOT+
RangesOR+
ScalesOC+
ShowOS+
HideOH
Data+
PlotOP+
Linear FitOL+
DisplayOD+
ModifyOM+
EditOE
Special+
AboutOA+
ExitOX
PROCX
INKEY%
KMOD%
GWISNOELDMPTFCRHAQ
procO
procO
Function Undefined
Value=
Give a new Value(
FUNC$
YC`[M
Error: Function Undefined
f(q)=
Give a value*
PROCG
PROCRf
PROCC0
PROCI)
PROCS
PROCHi
FILE*
PROCN
PROCO
PROCE
PROCM
PROCWJ
PROCL@
PROCDs#
PROCPO$
PROCT
PROCF
CURSOR
PROCAF;
PROCQ"<
MENU%
GETK%V>
ROUND%
PARSE$
DFX`B
PROCX