home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d916
/
mathplot.lha
/
MathPlot
/
Macros
/
DGL.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-10-04
|
392b
|
32 lines
/* Test of getintervall2 */
address "MPlot_ARexx"
options results
x0=0
y0=0
dx = 0.1
x=x0
y=y0
/* Abbruchbedingung */
getintervall2 stem a.
maxx = a.xmaxreal
/* Zum Vergleich */
setcolor plotcolor 1
/* clear force */
plot 0 normal
setcolor plotcolor 2
do while x < maxx
evalstring "cos(x) x=" x
dy = result*dx
y = y + dy
x = x + dx
line x0 y0 x y "pixel=off"
x0 = x
y0 = y
end