home *** CD-ROM | disk | FTP | other *** search
- /* Test of setfunction/setintervall */
- address "MPlot_ARexx"
- options results
-
- setfunc "0 x^8"
- setfunc "1 x^5"
- setfunc "2 x^2"
-
- setintervall "xmin -1 xmax 1 ymin -1 ymax 1 xaxis 4 yaxis 4"
-
- plot 0 normal derive1 derive2
- plot 1 normal derive1 derive2
- plot 2 normal derive1 derive2
-
- showaxis
-
- getprecision
- say "The precision was "result
-
- setprecision 2
-
- /* Result will be 5 (WARNING), because 6 (argument) is out of range */
- setprecision 6
- say "Should be 5: " result