1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# 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
}
|
