home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST140.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  743 b   |  32 lines
  1. ********************
  2.  
  3. FUNCTION Bond_yield
  4.  
  5.    PARAMETERS _pv, _fv, _irate, _py, _number, _cp
  6.  
  7.    * _pv = purchase price
  8.    * _fv = face value
  9.    * _irate = annual quoted intrest rate
  10.    * _py  = _number of coupon payments per year
  11.    * _number   = remaining _number of pay periods
  12.    * _cp = amount of coupon pay.
  13.  
  14.    PRIVATE _pf, _temp1, _i1
  15.  
  16.    _irate = .08 / _py
  17.    DO WHILE .T.
  18.       _pf = _fv / (1+_irate) ** _number
  19.       _temp1 = (1 + _irate) ** (-1 * _number)
  20.       _temp1 = 1 - _temp1
  21.       _i1 = _irate * (_pf + _temp1) / _pv
  22.       IF ABS(_irate - _i1) < .000001
  23.          _irate = _irate * _py * 100
  24.          EXIT
  25.       ELSE
  26.          _irate = _i1
  27.       ENDIF
  28.    ENDDO
  29.    RETURN(_irate)
  30.  
  31. * End of File
  32.