Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/intgrt1.lst
There are no other files named intgrt1.lst in the archive.
1PAGE 1 NDTRAN TRACKING TEST (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE NDTRAN TRACKING TEST
0002 * NOWARN
0003 * NOSTATS
0004 * EULER
0005 C A=-1
0006 N Y=1
0007 R DY.KL=A*Y.K
0008 L Y.K=INTGRL(DY.JK)
0009 PARM DT=.1
0010 PARM START=0
0011 PARM STOP=10
0012 PARM PRTPER=1
0013 S ACTUAL.K=EXP(A*TIME.K)
0014 S ABSERR=ABS(ACTUAL.K-Y.K)
0015 S RELERR.K=ABSERR.K/ACTUAL.K
0016 PRINT Y,ABSERR,RELERR,ACTUAL
0017 PRINT Y.2,ABSERR.2,RELERR.2,ACTUAL.2
0018 RERUN
0019 C A=1
1PAGE 2 NDTRAN TRACKING TEST (C) 1978 UND
TIME Y ABSERR RELERR ACTUAL
E+00 E+00 E-03 E-03 E+00
0.000 1.0000 0.000 0.00 1.0000
1.000 0.3487 19.201 52.19 0.3679
2.000 0.1216 13.759 101.66 0.1353
3.000 0.0424 7.396 148.55 0.0498
4.000 0.0148 3.535 192.99 0.0183
5.000 0.0052 1.584 235.11 0.0067
6.000 0.0018 0.682 275.03 0.0025
7.000 0.0006 0.285 312.87 0.0009
8.000 0.0002 0.117 348.74 0.0003
9.000 0.0001 0.047 382.73 0.0001
10.000 0.0000 0.019 414.95 0.0000
1PAGE 3 NDTRAN TRACKING TEST (C) 1978 UND
TIME Y.2 ABSERR.2 RELERR.2 ACTUAL.2
E+00 E+03 E+03 E-03 E+03
0.000 0.001 0.0000 0.00 0.001
1.000 0.003 0.0001 45.82 0.003
2.000 0.007 0.0007 89.53 0.007
3.000 0.017 0.0026 131.25 0.020
4.000 0.045 0.0093 171.05 0.055
5.000 0.117 0.0310 209.03 0.148
6.000 0.304 0.0989 245.27 0.403
7.000 0.790 0.3069 279.84 1.097
8.000 2.048 0.9326 312.84 2.981
9.000 5.313 2.7901 344.32 8.103
10.000 13.781 8.2459 374.36 22.026