Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-160/intrst.lst
There are no other files named intrst.lst in the archive.
1PAGE 1 INTEREST PROBLEM (C) 1978 UND
* * * * * S O U R C E L I S T I N G * * * * *
0001 TITLE INTEREST PROBLEM
0002 * EULER
0003 * NOWARN
0004 * NOSTATS
0005 * NARROW
0006 L P.K=INTGRL(INTR.JK)
0007 N P=1000
0008 R INTR.KL=P.K*IR
0009 C CON=1
0010 C IR=.05
0011 PARM DT=.25
0012 PARM STOP=20
0013 PARM PRTPER=1
0014 PARM PLTPER=1
0015 NOTE INTEREST ACCUMULATION
0016 PRINT P
0017 PLOT P
1PAGE 2 INTEREST PROBLEM - INTEREST ACCUMULATION (C) 1978 UND
TIME P
E+00 E+03
0.000 1.0000
1.000 1.0509
2.000 1.1045
3.000 1.1608
4.000 1.2199
5.000 1.2820
6.000 1.3474
7.000 1.4160
8.000 1.4881
9.000 1.5639
10.000 1.6436
11.000 1.7274
12.000 1.8154
13.000 1.9078
14.000 2.0050
15.000 2.1072
16.000 2.2145
17.000 2.3274
18.000 2.4459
19.000 2.5705
20.000 2.7015
1PAGE 3 INTEREST PROBLEM - INTEREST ACCUMULATION (C) 1978 UND
P=P
P 1000 1450 1900 2350 2800
0 P . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. P . . . .
. P . . . .
T . P . . . .
I . P . . . .
M . P . . . .
E . P . . . .
. P. . . .
. .P . . .
. . P . . .
10 . . . . . . . . . . P . . . . . . . . . . . . . . . . . .
. . P . . .
. . P . . .
. . P . .
. . . P . .
. . . P . .
. . . P . .
. . . P. .
. . . . P .
. . . . P .
20 . . . . . . . . . . . . . . . . . . . . . . . . . . .P. .