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
0002 * EULER
0003 * NARROW
0004 * NOSTATS
0005 L LEVEL.K=INTGRL(RATE.JK)
0006 R RATE.KL=LEVEL.K
0007 N LEVEL=0
0008 S HL.K=TABHL(TAB1,TIME.K,1,10,1)
0009 S LE.K=TABLE(TAB1,TIME.K,1,10)
0010 T TAB1=1,2,1,2
0011 PARM DT=.2
0012 PARM STOP=10
0013 PARM PLTPER=.2
0014 PLOT HL=+(0,3),LE=*
1PAGE 2 PROGRAM TO TEST TABLES (C) 1978 UND
+=HL *=LE
*+ 0 .75 1.5 2.25 3
0 . . . . . . . . . .+. . . . . . . . . . . . . . . . . . .
. . + . . .
. * . + . . .
T . * . + . . .
I . * + . . .
M . . + . . . +*
E . . + * . . .
. . + * . . .
. . + .* . .
. . + . * . .
2 . . . . . . . . . . . . .+. . . . * . . . . . . . . . . .
. . + . * . .
. . +. * . .
. . .+ * . .
. . . + * . .
. . . + * . .
. . . + * . .
. . . + * . .
. . . + * . .
. . . + * . .
4 . . . . . . . . . . . . . . . . . . .+. . . . . . . . . . +*
. . . + . . +*
. . . + . . +*
. . . + . . +*
. . . +* . .
. . . +* . .
. . . + . . +*
. . .+ . . +*
. . +. . . +*
. . + . . . +*
6 . . . . . . . . . . . . *+. . . . . . . . . . . . . . . .
. . *+ . . .
. . + . . . +*
. . + . . . +*
. . + . . . +*
. . + . . . +*
. . * + . . .
. . * + . . .
. . * + . . .
. . * + . . .
8 . . . . . . . . .*. . . .+. . . . . . . . . . . . . . . .
. . * + . . .
. . * +. . .
. . * .+ . .
. . * . + . .
. . * . + . .
. . * . + . .
. . *. + . .
. . . * + . .
. . . * + . .
10 . . . . . . . . . . . . . . . . . . .+. . . . . . . . . . +*