home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / TR_POW.PRG < prev    next >
Encoding:
Text File  |  1990-10-22  |  424 b   |  22 lines
  1. *********
  2. * Function : POWER
  3. * By : Ralph Davis
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *********
  6.  
  7.  
  8. FUNCTION POWER
  9. * Syntax: POWER( <number>, <power> )
  10. * Return: <expN> value of <number> raised to <power>
  11. *         <number> and <power> are both <expN>
  12. PARAMETERS x, y
  13.  
  14. IF x < 0
  15.    RETURN -EXP( y * LOG(ABS(x)) )
  16. ELSE
  17.    RETURN  EXP( y * LOG(ABS(x)) )
  18. ENDIF
  19. * eofunc: power
  20.  
  21.  
  22.