1PAGE 1 VERSION 2 TABLE FUNCTIONS NDTRAN (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE VERSION 2 TABLE FUNCTIONS NDTRAN
0002 * NOSTATS
0003 * EULER
0004 * NARROW
0005 * NOWARN
0006 L LEV.K=INTGRL(TEST1.JK)
0007 N LEV=1
0008 R TEST1.KL=LEV.K*AUX.K
0009 A AUX.K=TABND(TAB1,TIME.K,3,7)
0010 A AU1.K=TABHL(TAB1,TIME.K,3,7,1)
0011 A AU2.K=TABFL(TAB1,TIME.K,3,7)
0012 T TAB1=-5,0,1,8,27
0013 PARM DT=.1
0014 PARM START=0
0015 PARM STOP=10
0016 PARM PLTPER=.25
0017 PLOT AUX=#,AU1=*,AU2=+
1PAGE 2 VERSION 2 TABLE FUNCTIONS NDTRAN (C) 1978 UND
#=AUX *=AU1 +=AU2
+*# -20 6 32 58 84
0 # . . . * . . . . . . . . . . . . . . . . . . . . . . . .
.# * . . . .
. # * . . . .
T . + # * . . . .
I . +# * . . . .
M . +#* . . . .
E . # . . . . #*+
. *# . . . . #+
. # . . . . #*+
. # . . . . #*+
5 . . . . . .#. . . . . . . . . . . . . . . . . . . . . . . #*+
. #. . . . #*+
. .# . . . #*+
. . #* . . . #+
. . # . . . #*+
. . * +. # . .
. . * . + # . .
. . * . + #. .
. . * . + . # .
. . * . + . # .
10 . . . . . . . . . . . . .*. . . . . . + . . . . . . . . #