home *** CD-ROM | disk | FTP | other *** search
- /* test of numint */
- address "MPlot_ARexx"
- options results
-
- setnumprecision 16
- numint "steps 100 xmin 0 xmax 1 x^2 var V1"
- numint "steps 1000 xmin 0 xmax 1 x^2 var V2"
-
- say "The result is "v1" with 100 steps"
- say "and "v2" with 1000 steps"
- say "The correct value would be 1/3"
-
- new
-
- /* test of loadconst/macro/func */
- say
- say "execute test9 first, then quit, restart the programm and"
- say "then execute test10. Look at the subitem and some constants"
- loadfunc "ram:testoffunc.fkt"
- loadmacro "ram:testofmacro.mcr"
- loadconst "ram:testofconst.con"
-