1PAGE 1 TEST OF DELAY PROCEDURES (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE TEST OF DELAY PROCEDURES
0002 * EULER
0003 * NARROW
0004 * NOSTATS
0005 L LEVEL.K=INTGRL(RATE.JK)
0006 R RATE.KL=(DLVL-LEVEL.K)/CON
0007 C DLVL=500
0008 N LEVEL=100
0009 C CON=5
0010 L LEVEL2.K=INTGRL(RATE2.JK)
0011 N LEVEL2=100
0012 R RATE2.KL=(DLVL-OUT.K)/CON
0013 EXPND DLINF1(OUT,LEVEL2,TRX)
0014+ R $R11.KL=(LEVEL2.K-$L11.K)/TRX
0015+ L $L11.K=INTGRL($R11.JK)
0016+ N $L11=LEVEL2
0017+ A OUT.K=$L11.K
0018+ MEND
0019 C TRX=5
0020 PARM DT=1
0021 PARM START=0
0022 PARM STOP=50
0023 PARM PLTPER=2
0024 PLOT LEVEL(0,1000),LEVEL2=2,DLVL
1PAGE 2 TEST OF DELAY PROCEDURES (C) 1978 UND
L=LEVEL 2=LEVEL2 D=DLVL
D2L 0 250 500 750 1000
0 . . . L . . . . . . . . . . D . . . . . . . . . . . . . . L2
. L2 D . .
. . L 2 D . .
T . . L D2 . .
I . . L D 2 . .
M . . L D 2 . .
E . . L D 2 . .
. . LD 2 . .
. . LD 2 . .
. . L 2 . . LD
20 . . . . . . . . . . . . . . L 2 . . . . . . . . . . . . . LD
. . L . . L2D
. . 2L . . LD
. . 2 L . . LD
. . 2 L . . LD
. . 2 L . . LD
. . 2 L . . LD
. . 2L . . LD
. . 2L . . LD
. . L . . L2D
40 . . . . . . . . . . . . . . L . . . . . . . . . . . . . . L2D
. . L . . L2D
. . L . . L2D
. . L . . L2D
. . L . . L2D
50 . . . . . . . . . . . . . . L . . . . . . . . . . . . . . L2D