home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / COMPOUND.ZIP / EXPONENT.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.1 KB  |  36 lines
  1. *  PROGRAM   ---  EXPONET.PRG
  2. *  CALCULATES THE EXPONET OF e  FOR USE WITH DBASE II
  3.  
  4. *  EXPECTS NUMBERIC VARIABLE, "NUMBER"
  5. *  RETURNS THE VARIABLE, "EXPONENT"
  6.  
  7. SET TALK OFF
  8. STORE 1 TO POWER,FACTORIAL,INTERIM,EXPONENT,CHRCTRSTIC
  9.  
  10. * CALACULATION OF e RAISED TO THE CHARACTERISTIC OF THE EXPONENT
  11. DO WHILE NUMBER >= 1
  12.    STORE CHRCTRSTIC * 2.7182818 TO CHRCTRSTIC
  13.    STORE NUMBER -1 TO NUMBER
  14. ENDDO
  15.  
  16. * CALCULATION OF e RAISED TO THE MANTISSA OF THE EXPONENT
  17. * (TAYLOR SERIES EXPANSION: E = 1+X+X /2! + X/3! +... + X/N!)
  18. STORE INT(NUMBER * 100000) / 100000 + 1 TO NUMBER
  19. STORE 35 TO COUNTER
  20. DO WHILE POWER < COUNTER
  21.    STORE NUMBER * 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.  
  27. * CONSTRUCT THE EXPOENT FROM ITS CHARACTERISTIC AND MANTISSA PARTS
  28. STORE CHRCTRSTIC * EXPONENT / 2.7182818 TO EXPONENT
  29.  
  30. * ROUND OFF DECIMAL PORTION TO 5 PLACES
  31. STORE INT(EXPONENT) + INT((EXPONENT-INT(EXPONENT))*100000+.5) / 100000.00000 ;
  32.     TO EXPONENT
  33.  
  34. RELEASE FACTORIAL,INTERIM,COUNTER,POSER,CHRCTRSIC
  35. RETURN
  36.