source: tol/tolsh/tolsh.vfs/lib/tcllib1.10/math/math.tcl @ 8597867d

# math.tcl --
#
#       Main 'package provide' script for the package 'math'.
#
# Copyright (c) 1998-2000 by Ajuba Solutions.
# Copyright (c) 2002 by Kevin B. Kenny.  All rights reserved.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# 
# RCS: @(#) $Id: math.tcl,v 1.22 2006/09/20 22:16:02 andreas_kupries Exp $

package require Tcl 8.2         ;# uses [lindex $l end-$integer]

# @mdgen OWNER: tclIndex

namespace eval ::math {

    variable version 1.2.4

    # misc.tcl

    namespace export    cov             fibonacci       integrate
    namespace export    max             mean            min
    namespace export    product         random          sigma
    namespace export    stats           sum
    namespace export    expectDouble    expectInteger

    # combinatorics.tcl

    namespace export    ln_Gamma        factorial       choose
    namespace export    Beta

    # Set up for auto-loading

    variable home [file join [pwd] [file dirname [info script]]]
    if {[lsearch -exact $::auto_path $home] == -1} {
        lappend ::auto_path $home
    }

    package provide [namespace tail [namespace current]] $version
}