174
Appendix A. Computer
Program Listing and
Instructions
PVEARN(T) - PVEARN(T0T)+(IRET-TA0PCS)/((1+R)**T)
- INV(KX)
AVCAP(Tl) - AVCAP(TH(IRET-TA0PCS)/((1+R)**T)
- INV(KX)
OPTIME * .FALSE.
1 1 f
\
Τ - T+l
PMAX - PVEARN (TMAX)
. ι f
M(I,J) - IS
I
- LI
J
-
]
5T(I,J)
J ,MM
l, TMAX
< < >
BND(KXI.TEX) -0.
1160