home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / LN.(X) < prev    next >
Text File  |  1993-11-14  |  135b  |  9 lines
  1. #    ln(x) is natural log
  2.  
  3. ln(0) := -inf
  4. ln(1) := 0
  5. ln(e) := 1
  6. ln(inf) := inf
  7. ln(x_^n_) := n*ln(x)
  8. ln(x_) := if(x<0, ln(-x)+pi*i)
  9.