Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/table.dat
There is 1 other file named table.dat in the archive. Click here to see a list.
TITLE VERSION 2 TABLE FUNCTIONS NDTRAN 00000010
* NOSTATS 00000020
* EULER 00000030
* NARROW 00000040
* NOWARN 00000050
L LEV.K=INTGRL(TEST1.JK) 00000060
N LEV=1 00000070
R TEST1.KL=LEV.K*AUX.K 00000080
A AUX.K=TABND(TAB1,TIME.K,3,7) 00000090
A AU1.K=TABHL(TAB1,TIME.K,3,7,1) 00000100
A AU2.K=TABFL(TAB1,TIME.K,3,7) 00000110
T TAB1=-5,0,1,8,27 00000120
PARM DT=.1 00000130
PARM START=0 00000140
PARM STOP=10 00000150
PARM PLTPER=.25 00000160
PLOT AUX=#,AU1=*,AU2=+ 00000170