1PAGE 1 STEP RESPONSE OF DLINF1 AND DLINF3 (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE STEP RESPONSE OF DLINF1 AND DLINF3
0002 * NARROW
0003 * NOWARN
0004 * NOSTATS
0005 * EULER
0006 A INPUT.K=STEP(1,5)
0007 EXPND DLINF1(OUT1,INPUT,TRX)
0008+ R $R11.KL=(INPUT.K-$L11.K)/TRX
0009+ L $L11.K=INTGRL($R11.JK)
0010+ N $L11=INPUT
0011+ A OUT1.K=$L11.K
0012+ MEND
0013 EXPND DLINF3(OUT3,INPUT,TRX)
0014+ R $R12.KL=(INPUT.K-$L12.K)/(TRX/3)
0015+ L $L12.K=INTGRL($R12.JK)
0016+ N $L12=INPUT
0017+ R $R22.KL=($L12.K-$L22.K)/(TRX/3)
0018+ L $L22.K=INTGRL($R22.JK)
0019+ N $L22=INPUT
0020+ R $R32.KL=($L22.K-$L32.K)/(TRX/3)
0021+ L $L32.K=INTGRL($R32.JK)
0022+ N $L32=INPUT
0023+ A OUT3.K=$L32.K
0024+ MEND
0025 C TRX=15
0026 PARM DT=1
0027 PARM START=0
0028 PARM STOP=50
0029 PARM PLTPER=1
0030 PLOT INPUT=S,OUT1=A,OUT3=B
1PAGE 2 STEP RESPONSE OF DLINF1 AND DLINF3 (C) 1978 UND
S=INPUT A=OUT1 B=OUT3
BAS 0 .25 .5 .75 1
0 S . . . . . . . . . . . . . . . . . . . . . . . . . . . . SAB
S . . . . SAB
S . . . . SAB
T S . . . . SAB
I S . . . . SAB
M A . . . S AB
E B A . . . S
B A . . . S
B A . . . S
. B A . . S
10 . .B. . . . . . A . . . . . . . . . . . . . . . . . . . S
. B . A . . S
. B . A . . S
. B . A . . S
. .B A . . S
. . B A . S
. . B . A . S
. . B . A . S
. . B A . S
. . . B A . S
20 . . . . . . . . . . . . . . . . . B A . . . . . . . . . S
. . . BA . S
. . . A . S AB
. . . AB. S
. . . A.B S
. . . A B S
. . . .A B S
. . . . A B S
. . . . A B S
. . . . A B S
30 . . . . . . . . . . . . . . . . . . . . . . . A . B . . S
. . . . A B S
. . . . A B S
. . . . A B S
. . . . A B S
. . . . A B S
. . . . A B S
. . . . A B S
. . . . A BS
. . . . A BS
40 . . . . . . . . . . . . . . . . . . . . . . . . . .A. .BS
. . . . A BS
. . . . A BS
. . . . A BS
. . . . A BS
. . . . A S SB
. . . . A S SB
. . . . A S SB
. . . . A S SB
. . . . A S SB
50 . . . . . . . . . . . . . . . . . . . . . . . . . . .A. S SB