home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / trl14db.zip / TRLPRG.EXE / POWER.PRG < prev    next >
Text File  |  1990-10-22  |  451b  |  19 lines
  1. ***********
  2. * POWER.PRG
  3. * by Tom Rettig, Leonard Zerman, Ralph Davis
  4. * Placed in the Public Domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * SYNTAX: DO POWER WITH <number>, <power> 
  7. * RETURN: <expN> of <number> raised to the power of <power>
  8. ***********
  9. PARAMETERS par1, par2 
  10. IF par1 < 0
  11.    tr_retn = -EXP( par2 * LOG( ABS(par1)))
  12. ELSE
  13.    tr_retn =  EXP( par2 * LOG( ABS(par1)))
  14. ENDIF
  15. IF fox
  16.    RETURN (tr_retn)
  17. ENDIF
  18. * eof power *
  19.