Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/table1.dat
There are no other files named table1.dat in the archive.
TITLE PROGRAM TO TEST TABLES 00000010
* EULER 00000020
* NARROW 00000030
* NOSTATS 00000040
L LEVEL.K=INTGRL(RATE.JK) 00000050
R RATE.KL=LEVEL.K 00000060
N LEVEL=0 00000070
S HL.K=TABHL(TAB1,TIME.K,1,10,1) 00000080
S LE.K=TABLE(TAB1,TIME.K,1,10) 00000090
T TAB1=1,2,1,2 00000120
PARM DT=.2 00000130
PARM STOP=10 00000140
PARM PLTPER=.2 00000150
PLOT HL=+(0,3),LE=* 00000160