1PAGE 1 A PROGRAM TO TEST THE PULSE FUNCTION (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE A PROGRAM TO TEST THE PULSE FUNCTION
0002 * EULER
0003 * NARROW
0004 * NOSTATS
0005 L LEVEL.K=INTGRL(R.JK)
0006 N LEVEL=0
0007 R R.KL=LEVEL.K*.06+PULSE(4,1,5,5)
0008 PARM DT=1
0009 PARM START=0
0010 PARM STOP=20
0011 PARM PLTPER=1
0012 PARM PRTPER=1
0013 NOTE DELAYED LEVEL VARIABLE
0014 PRINT LEVEL
0015 NOTE DELAYED LEVEL VARIABLE
0016 PLOT LEVEL
1PAGE 2 A PROGRAM TO TEST THE PULSE FUNCTION - DELAYED L (C) 1978 UND
TIME LEVEL
0.000 0.000
1.000 0.000
2.000 0.000
3.000 0.000
4.000 0.000
5.000 0.000
6.000 4.000
7.000 4.240
8.000 4.494
9.000 4.764
10.000 5.050
11.000 5.353
12.000 9.674
13.000 10.255
14.000 10.870
15.000 11.522
16.000 12.213
17.000 12.946
18.000 17.723
19.000 18.786
20.000 19.913
1PAGE 3 A PROGRAM TO TEST THE PULSE FUNCTION - DELAYED L (C) 1978 UND
L=LEVEL
L 0 5 10 15 20
0 L . . . . . . . . . . . . . . . . . . . . . . . . . . . .
L . . . .
L . . . .
T L . . . .
I L . . . .
M L . . . .
E . L . . . .
. L . . . .
. L. . . .
. L. . . .
10 . . . . . . . L . . . . . . . . . . . . . . . . . . . . .
. .L . . .
. . L. . .
. . .L . .
. . . L . .
. . . L . .
. . . L . .
. . . L . .
. . . . L .
. . . . L .
20 . . . . . . . . . . . . . . . . . . . . . . . . . . . . L