1PAGE 1 DELAY TEST WITH RAMP (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE DELAY TEST WITH RAMP
0002 * NARROW
0003 * NOSTATS
0004 * EULER
0005 R Q.KL=Q1+RAMP(RS,RT)
0006 C Q1=5
0007 C RS=1
0008 C RT=5
0009 EXPND DELAY3(OUT,Q,DEL)
0010+ L $L11.K=INTGRL(Q.JK-$R11.JK)
0011+ N $L11=Q*DEL/3
0012+ R $R11.KL=$L11.K/(DEL/3)
0013+ L $L21.K=INTGRL($R11.JK-$R21.JK)
0014+ N $L21=Q*DEL/3
0015+ R $R21.KL=$L21.K/(DEL/3)
0016+ L $L31.K=INTGRL($R21.JK-OUT.JK)
0017+ N $L31=Q*DEL/3
0018+ R OUT.KL=$L31.K/(DEL/3)
0019+ MEND
0020 NOTE TEST OF DELAY ONE
0021 EXPND DELAY1(OUT1,Q,DEL)
0022+ L $L12.K=INTGRL(Q.JK-OUT1.JK)
0023+ N $L12=Q*DEL
0024+ R OUT1.KL=$L12.K/DEL
0025+ MEND
0026 C DEL=20
0027 PARM DT=1
0028 PARM START=0
0029 PARM STOP=50
0030 PARM PLTPER=1
0031 PLOT OUT=3(0,60),Q=R,OUT1=1
1PAGE 2 DELAY TEST WITH RAMP (C) 1978 UND
3=OUT R=Q 1=OUT1
1R3 0 15 30 45 60
0 . . .3. . . . . . . . . . . . . . . . . . . . . . . . . . 3R1
. 3 . . . . 3R1
. 3 . . . . 3R1
T . 3 . . . . 3R1
I . 3 . . . . 3R1
M . 3 . . . . 3R1
E . 3R . . . . 31
. 3 R . . . . 31
. 3 R . . . . 31
. 3 R . . . . 31
10 . . .3. .R. . . . . . . . . . . . . . . . . . . . . . . . 31
. 3 R . . . . 31
. 31 R . . . .
. 31 R . . . .
. 31 R. . . .
. 3 1 R . . .
. 3 1 .R . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1 . R . . .
20 . . . 3 .1. . . . .R. . . . . . . . . . . . . . . . . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1 . R . . .
. 3 1. R . . .
. 3 1. R . . .
. 3 1 R. . .
30 . . . . . . 3 .1. . . . . . R . . . . . . . . . . . . . .
. 3 .1 .R . .
. 3. 1 . R . .
. 3 1 . R . .
. .3 1 . R . .
. .3 1 . R . .
. . 3 1 . R . .
. . 3 1 . R . .
. . 3 1 . R . .
. . 3 1 . R . .
40 . . . . . . . . . .3. 1 . . . . . . .R. . . . . . . . . .
. . 3 1 . R . .
. . 3 1 . R . .
. . 3 1 . R . .
. . 3 1 . R. .
. . 3 1 . R .
. . 3 1. .R .
. . 31. . R .
. . 3 1 . R .
. . 3.1 . R .
50 . . . . . . . . . . . . . . 3 1 . . . . . . . .R. . . . .