home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST139.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  951 b   |  38 lines
  1. ********************
  2.  
  3. FUNCTION Int_retrat
  4.  
  5.    PARAMETERS _pv, _fv, _pperyr, _numb, _epers
  6.  
  7.    IF TYPE("_pv") + TYPE("_fv") + TYPE("_pperyr") + TYPE("_numb") + TYPE("_epers") != "NNNNA"
  8.       RETURN(-1)
  9.    ENDIF
  10.  
  11.    * _pv       = purchase price of the investment
  12.    * _fv       = expected sale price
  13.    * _pperyr = _numb of periods per year
  14.    * _numb   = total _numb of periods to cover
  15.    * _epers = an ARRAY of earnings per period
  16.  
  17.    PRIVATE _irate, _i1, _pf, _te1, _qaz, _pe, _te1
  18.  
  19.    _irate = .15 / _pperyr
  20.    _i1 = .25
  21.    DO WHILE .T.
  22.       _pf = _fv ( 1 + _irate ) ** _numb
  23.       _te1 = 0
  24.       FOR _qaz = 1 TO _numb
  25.          _pe = _epers[_qaz] / (1 + _irate) ** x
  26.          _te1 = _te1 + _pe
  27.       NEXT
  28.       _i1 = _irate * (_pf + te) / _pv
  29.       IF ABS(_irate - _i1) < .000001
  30.          _irate = _irate * _pperyr * 100
  31.          EXIT
  32.       ENDIF
  33.       _irate = _i1
  34.    ENDDO
  35.    RETURN(_irate)
  36.  
  37. * End of File
  38.