1PAGE 1 PROGRAM TO TEST TABLES (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE PROGRAM TO TEST TABLES 00000010
0002 * EULER 00000020
0003 * NOSTATS 00000040
0004 L LEVEL.K=INTGRL(RATE.JK) 00000050
0005 R RATE.KL=LEVEL.K 00000060
0006 N LEVEL=0 00000070
0007 S HL.K=TABHL(TAB1,TIME.K,2,8,2) 00000080
0008 S LE.K=TABLE(TAB1,TIME.K,2,8) 00000090
0009 S FL.K=TABFL(TAB1,TIME.K,2,8) 00000100
0010 S ND.K=TABND(TAB1,TIME.K,2,8) 00000110
0011 T TAB1=1,2,1,2 00000120
0012 PARM DT=.2 00000130
0013 PARM STOP=10 00000140
0014 PARM PLTPER=.2 00000150
0015 PLOT HL(.5,2.5),LE,FL,ND 00000160
1PAGE 2 PROGRAM TO TEST TABLES (C) 1978 UND
H=HL L=LE F=FL N=ND
NFLH .5 1 1.5 2 2.5
0 . . . .F. . . . . . . H . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. F H . . .
. F H . . .
T . F H . . .
I . F H . . .
M N F H . . .
E . N F H . . .
. N F H . . .
. N F H . . .
. L N FH . . .
2 . . . . . . . . . . . H . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . HLFN
. . H L . . . LFN
. . H . L . . LFN
. . H . L . . LFN
. . H . L . . LFN
. . H L . LFN
. . . H . L . LFN
. . . H . L . LFN
. . . H . L . LFN
. . . H . L . LFN
4 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . H . . . . . . . . . . . HLFN
. . . HL . . LFN
. . . H L . . LFN
. . . HL . . LFN
. . . HL . . LFN
. . H . . HLFN
. . LH . . . LFN
. . LH . . . LFN
. . L H . . . LFN
. . LH . . . LFN
6 . . . . . . . . . . . H . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . HLFN
. L . H . . . LFN
. L . H . . . LFN
. L . H . . . LFN
. L . H . . . LFN
. L H . . LFN
. . L . H . . LFN
. . L . H . . LFN
. . L . H . . LFN
. . . L H . . LFN
8 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . H . . . . . . . . . . . HLFN
. . . HF N L .
. . . H F N .
. . . H F N .
. . . H F N .
. . . H F N
. . . H F .
. . . H F .
. . . H F .
. . . H F .
10 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . H . . . . . . .F. . . .