home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBAPG.ARC / EXPONENT.PRG < prev    next >
Encoding:
Text File  |  1984-08-12  |  1.0 KB  |  32 lines
  1. * Program.: EXPONENT.PRG
  2. * Author..: Kelly Mc Tiernan
  3. * Date....: 12/18/83
  4. * Notice..: Copyright 1983, Kelly Mc Tiernan, All Rights Reserved
  5. * Version.: dBASE II, version 2.4x
  6. * Notes...: Calculates the exponent of a number.
  7. * Local...: first, factorial, interim, count, power, temp
  8. *
  9. *    IN: number-N-10 
  10. *   OUT: exponent-N-10-5
  11. *
  12. STORE number TO first
  13. STORE 1 TO power, factorial, interim, exponent, temp
  14. DO WHILE first >= 1
  15.    STORE temp * 2.7182818 TO temp
  16.    STORE first - 1 TO first
  17. ENDDO
  18. STORE (INT( first * 100000 ) / 100000) + 1 TO first
  19. STORE 15 TO count
  20. DO WHILE power < count
  21.    STORE first * interim TO interim
  22.    STORE factorial * power TO factorial
  23.    STORE interim / factorial + exponent TO exponent
  24.    STORE power + 1 TO power
  25. ENDDO
  26. STORE temp * ( exponent / 2.7182818 ) TO exponent
  27. STORE INT(exponent) + INT( (exponent -;
  28.       INT(exponent)) * 100000 + .5 ) / 100000.00000 TO exponent
  29. RELEASE first, factorial, interim, count, power, temp
  30. RETURN
  31. * EOF: EXPONENT.PRG
  32.