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 * ABINT
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-06 E-06 E+00
0.000 1.0000 0.000 0.00 1.0000
1.000 0.3679 10.616 28.86 0.3679
2.000 0.1353 9.420 69.61 0.1353
3.000 0.0498 5.495 110.37 0.0498
4.000 0.0183 2.768 151.14 0.0183
5.000 0.0067 1.293 191.90 0.0067
6.000 0.0025 0.577 232.67 0.0025
7.000 0.0009 0.249 273.44 0.0009
8.000 0.0003 0.105 314.21 0.0003
9.000 0.0001 0.044 354.98 0.0001
10.000 0.0000 0.018 395.76 0.0000
1PAGE 3 NDTRAN TRACKING TEST (C) 1978 UND
TIME Y.2 ABSERR.2 RELERR.2 ACTUAL.2
E+00 E+03 E+00 E-06 E+03
0.000 0.001 0.0000 0.00 0.001
1.000 0.003 0.0001 21.11 0.003
2.000 0.007 0.0004 50.98 0.007
3.000 0.020 0.0016 80.86 0.020
4.000 0.055 0.0060 110.73 0.055
5.000 0.148 0.0209 140.60 0.148
6.000 0.403 0.0688 170.47 0.403
7.000 1.096 0.2197 200.33 1.097
8.000 2.980 0.6862 230.20 2.981
9.000 8.101 2.1073 260.07 8.103
10.000 22.020 6.3862 289.93 22.026