home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST143.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  502 b   |  22 lines
  1. *******************
  2.  
  3. FUNCTION Bond_pval
  4.  
  5.    PARAMETERS _irate, _face, _py, _pn, _pper
  6.  
  7.    * _irate = interest rate
  8.    * _face  = face amount of bond
  9.    * _py    = number of payment periods
  10.    * _pn    = number of periods to mature
  11.    * _pper  = periodic payments
  12.  
  13.    PRIVATE _pv, _temp1
  14.  
  15.    _irate = _irate / _py / 100
  16.    _pv = _face / (1 + _irate) ** _pn
  17.    _temp1 = (1 - ((1 + _irate) ** (-1 * _pn)))/ _irate
  18.    _temp1 = _temp1 * _pper
  19.    RETURN(_pv + _temp1)
  20.    
  21. * End of File
  22.