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