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 * RKINT
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-09 E-06 E+00
0.000 1.0000 0.00 0.0000 1.0000
1.000 0.3679 333.24 0.9058 0.3679
2.000 0.1353 245.19 1.8117 0.1353
3.000 0.0498 135.30 2.7175 0.0498
4.000 0.0183 66.36 3.6234 0.0183
5.000 0.0067 30.52 4.5292 0.0067
6.000 0.0025 13.47 5.4351 0.0025
7.000 0.0009 5.78 6.3409 0.0009
8.000 0.0003 2.43 7.2468 0.0003
9.000 0.0001 1.01 8.1526 0.0001
10.000 0.0000 0.41 9.0585 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-06 E+03
0.000 0.001 0.00 0.0000 0.001
1.000 0.003 0.00 0.7668 0.003
2.000 0.007 0.01 1.5336 0.007
3.000 0.020 0.05 2.3003 0.020
4.000 0.055 0.17 3.0671 0.055
5.000 0.148 0.57 3.8339 0.148
6.000 0.403 1.86 4.6007 0.403
7.000 1.097 5.89 5.3674 1.097
8.000 2.981 18.29 6.1342 2.981
9.000 8.103 55.92 6.9010 8.103
10.000 22.026 168.89 7.6678 22.026