Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/step.lst
There are no other files named step.lst in the archive.
1PAGE 1 USE OF THE STEP FUNCTION (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE USE OF THE STEP FUNCTION
0002 * EULER
0003 * NARROW
0004 * NOSTATS
0005 L LEVEL.K=INTGRL(RATE.JK)
0006 N LEVEL=100
0007 R RATE.KL=(CON.K)(DL-LEVEL.K)/ADJTM
0008 A CON.K=STEP(HT,PYEAR)
0009 C PYEAR=10
0010 C HT=1
0011 C ADJTM=5
0012 C DL=500
0013 PARM DT=1
0014 PARM START=0
0015 PARM STOP=20
0016 PARM PRTPER=1
0017 PARM PLTPER=1
0018 NOTE OUTPUT OF STEP FUNCTION
0019 PRINT CON,LEVEL,DL
0020 PLOT CON/LEVEL/DL
1PAGE 2 USE OF THE STEP FUNCTION - OUTPUT OF STEP FUNCTI (C) 1978 UND
TIME CON LEVEL DL
0.000 0.0000 100.00 500.00
1.000 0.0000 100.00 500.00
2.000 0.0000 100.00 500.00
3.000 0.0000 100.00 500.00
4.000 0.0000 100.00 500.00
5.000 0.0000 100.00 500.00
6.000 0.0000 100.00 500.00
7.000 0.0000 100.00 500.00
8.000 0.0000 100.00 500.00
9.000 0.0000 100.00 500.00
10.000 1.0000 100.00 500.00
11.000 1.0000 180.00 500.00
12.000 1.0000 244.00 500.00
13.000 1.0000 295.20 500.00
14.000 1.0000 336.16 500.00
15.000 1.0000 368.93 500.00
16.000 1.0000 395.14 500.00
17.000 1.0000 416.11 500.00
18.000 1.0000 432.89 500.00
19.000 1.0000 446.31 500.00
20.000 1.0000 457.05 500.00
1PAGE 3 USE OF THE STEP FUNCTION - OUTPUT OF STEP FUNCTI (C) 1978 UND
C=CON L=LEVEL D=DL
C 0 .25 .5 .75 1
L 100 190 280 370 460
D 480 490 500 510 520
0 C . . . . . . . . . . . . . D . . . . . . . . . . . . . . CL
C . D . . CL
C . D . . CL
T C . D . . CL
I C . D . . CL
M C . D . . CL
E C . D . . CL
C . D . . CL
C . D . . CL
C . D . . CL
10 L . . . . . . . . . . . . . D . . . . . . . . . . . . . C
. L . D . C
. . L D . C
. . D L . C
. . D L . C
. . D L C
. . D . L C
. . D . L C
. . D . L C
. . D . L C
20 . . . . . . . . . . . . . . D . . . . . . . . . . . . . C CL