home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tclsrc / fmath.tcl < prev    next >
Encoding:
Text File  |  1993-11-19  |  2.1 KB  |  51 lines
  1. #
  2. # fmath.tcl --
  3. #
  4. #   Contains a package of procs that interface to the Tcl expr command built-in
  5. # functions.  These procs provide compatibility with older versions of TclX and
  6. # are also generally useful.
  7. #------------------------------------------------------------------------------
  8. # Copyright 1993 Karl Lehenbauer and Mark Diekhans.
  9. #
  10. # Permission to use, copy, modify, and distribute this software and its
  11. # documentation for any purpose and without fee is hereby granted, provided
  12. # that the above copyright notice appear in all copies.  Karl Lehenbauer and
  13. # Mark Diekhans make no representations about the suitability of this
  14. # software for any purpose.  It is provided "as is" without express or
  15. # implied warranty.
  16. #------------------------------------------------------------------------------
  17. # $Id: fmath.tcl,v 3.0 1993/11/19 07:00:39 markd Rel $
  18. #------------------------------------------------------------------------------
  19.  
  20. #@package: TclX-fmath acos asin atan ceil cos cosh exp fabs floor log log10 \
  21.            sin sinh sqrt tan tanh fmod pow atan2 abs double int round
  22.  
  23. proc acos  x {uplevel [list expr acos($x)]}
  24. proc asin  x {uplevel [list expr asin($x)]}
  25. proc atan  x {uplevel [list expr atan($x)]}
  26. proc ceil  x {uplevel [list expr ceil($x)]}
  27. proc cos   x {uplevel [list expr cos($x)]}
  28. proc cosh  x {uplevel [list expr cosh($x)]}
  29. proc exp   x {uplevel [list expr exp($x)]}
  30. proc fabs  x {uplevel [list expr abs($x)]}
  31. proc floor x {uplevel [list expr floor($x)]}
  32. proc log   x {uplevel [list expr log($x)]}
  33. proc log10 x {uplevel [list expr log10($x)]}
  34. proc sin   x {uplevel [list expr sin($x)]}
  35. proc sinh  x {uplevel [list expr sinh($x)]}
  36. proc sqrt  x {uplevel [list expr sqrt($x)]}
  37. proc tan   x {uplevel [list expr tan($x)]}
  38. proc tanh  x {uplevel [list expr tanh($x)]}
  39.  
  40. proc fmod {x n} {uplevel [list expr fmod($x,$n)]}
  41. proc pow {x n} {uplevel [list expr pow($x,$n)]}
  42.  
  43. # New functions that TclX did not provide in eariler versions.
  44.  
  45. proc atan2  x {uplevel [list expr atan2($x)]}
  46. proc abs    x {uplevel [list expr abs($x)]}
  47. proc double x {uplevel [list expr double($x)]}
  48. proc int    x {uplevel [list expr int($x)]}
  49. proc round  x {uplevel [list expr round($x)]}
  50.  
  51.