Commit 4c9c711a authored by Russell Kliese's avatar Russell Kliese Committed by Liam Healy
Browse files

Export the symbols for selecting random number sample functions.

parent 8396c2b1
......@@ -20,6 +20,7 @@
(in-package :gsl)
(export 'bernoulli)
(defmfun sample
((generator random-number-generator) (type (eql 'bernoulli))
&key probability)
......
......@@ -20,6 +20,7 @@
(in-package :gsl)
(export 'beta)
(defmfun sample
((generator random-number-generator) (type (eql 'beta)) &key a b)
"gsl_ran_beta"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'cauchy)
(defmfun sample
((generator random-number-generator) (type (eql 'cauchy)) &key a)
"gsl_ran_cauchy"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'chi-squared)
(defmfun sample
((generator random-number-generator) (type (eql 'chi-squared)) &key nu)
"gsl_ran_chisq"
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'dirichlet)
(defmfun sample
((generator random-number-generator) (type (eql 'dirichlet))
&key alpha (theta (vdf (dim0 alpha))))
......
......@@ -35,6 +35,7 @@
generally as ``weights'')---the preprocessor will normalize appropriately.
This return value is used as an argument to #'discrete.")
(export 'discrete)
(defmfun sample
((generator random-number-generator) (type (eql 'discrete))
&key table)
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'exponential-power)
(defmfun sample
((generator random-number-generator) (type (eql 'exponential-power))
&key a b)
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'exponential)
(defmfun sample
((generator random-number-generator) (type (eql 'exponential))
&key mu)
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'fdist)
(defmfun sample
((generator random-number-generator) (type (eql 'fdist)) &key nu1 nu2)
"gsl_ran_fdist"
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'flat)
(defmfun sample
((generator random-number-generator) (type (eql 'flat)) &key a b)
"gsl_ran_flat"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'gamma)
(defmfun sample
((generator random-number-generator) (type (eql 'gamma)) &key a b)
"gsl_ran_gamma"
......@@ -37,6 +38,7 @@
is known as the Erlang distribution. The variates are computed using
the algorithms from Knuth (vol 2).")
(export 'gamma-mt)
(defmfun sample
((generator random-number-generator) (type (eql 'gamma-mt)) &key a b)
"gsl_ran_gamma_mt"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'gaussian-bivariate)
(defmfun sample
((generator random-number-generator) (type (eql 'gaussian-bivariate))
&key sigma-x sigma-y rho)
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'gaussian-tail)
(defmfun sample
((generator random-number-generator) (type (eql 'gaussian-tail))
&key a sigma)
......@@ -50,6 +51,7 @@
for a Gaussian tail distribution with standard deviation sigma and
lower limit a, using the formula given for gaussian-tail.")
(export 'ugaussian-tail)
(defmfun sample
((generator random-number-generator) (type (eql 'ugaussian-tail))
&key a)
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'gaussian)
(defmfun sample
((generator random-number-generator) (type (eql 'gaussian))
&key sigma)
......@@ -48,6 +49,7 @@
"Compute the probability density p(x) at x
for a Gaussian distribution with standard deviation sigma.")
(export 'gaussian-ziggurat)
(defmfun sample
((generator random-number-generator) (type (eql 'gaussian-ziggurat))
&key sigma)
......@@ -60,6 +62,7 @@
Marsaglia-Tsang ziggurat method. The Ziggurat algorithm
is the fastest available algorithm in most cases.")
(export 'gaussian-ratio-method)
(defmfun sample
((generator random-number-generator) (type (eql 'gaussian-ratio-method))
&key sigma)
......@@ -71,6 +74,7 @@
"Compute a Gaussian random variate using the Kinderman-Monahan-Leva
ratio method.")
(export 'ugaussian)
(defmfun sample
((generator random-number-generator) (type (eql 'ugaussian)) &key)
"gsl_ran_ugaussian" (((mpointer generator) :pointer))
......@@ -89,6 +93,7 @@
equivalent to the #'gaussian-pdf with a standard deviation of one,
sigma = 1.")
(export 'ugaussian-ratio-method)
(defmfun sample
((generator random-number-generator) (type (eql 'ugaussian-ratio-method))
&key)
......
......@@ -77,6 +77,7 @@
(:documentation
"Sample from the probability distribution."))
(export 'uniform)
(defmfun sample ((source random-number-generator) (type (eql 'uniform)) &key)
"gsl_rng_uniform" (((mpointer source) :pointer))
:definition :method
......@@ -91,6 +92,7 @@
(the maximum number of bits that can be portably represented in a single
:ulong.")
(export 'uniform>0)
(defmfun sample ((source random-number-generator) (type (eql 'uniform>0)) &key)
"gsl_rng_uniform_pos" (((mpointer source) :pointer))
:definition :method
......@@ -102,6 +104,7 @@
type 'uniform until a non-zero value is obtained. You can use this
function if you need to avoid a singularity at 0.0.")
(export 'uniform-fixnum)
(defmfun sample
((source random-number-generator) (type (eql 'uniform-fixnum))
&key upperbound)
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'geometric)
(defmfun sample
((generator random-number-generator) (type (eql 'geometric))
&key probability)
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'geometric)
(defmfun sample
((generator random-number-generator) (type (eql 'gumbel1)) &key a b)
"gsl_ran_gumbel1"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'gumbel2)
(defmfun sample
((generator random-number-generator) (type (eql 'gumbel2)) &key a b)
"gsl_ran_gumbel2"
......
......@@ -23,6 +23,7 @@
;;; /usr/include/gsl/gsl_randist.h
;;; /usr/include/gsl/gsl_cdf.h
(export 'hypergeometric)
(defmfun sample
((generator random-number-generator) (type (eql 'hypergeometric))
&key n1 n2 tt)
......
......@@ -22,6 +22,7 @@
;;; /usr/include/gsl/gsl_randist.h
(export 'landau)
(defmfun sample
((generator random-number-generator) (type (eql 'landau)) &key)
"gsl_ran_landau"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment