From 1e7382b89300a14d8ac0f136deb02a5ed411393f Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 30 Mar 2012 17:55:18 -0700
Subject: [PATCH] random: gauss-random-float is just normal-random-float.
---
basis/random/random.factor | 18 +++++++-----------
1 file changed, 7 insertions(+), 11 deletions(-)
diff --git a/basis/random/random.factor b/basis/random/random.factor
index d5f71e8596..81a69e6e94 100644
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -111,11 +111,6 @@ ERROR: too-many-samples seq n ;
: normal-random-float ( mean sigma -- n )
(cos-random-float) (log-sqrt-random-float) * * + ;
-{
- { [ os windows? ] [ "random.windows" require ] }
- { [ os unix? ] [ "random.unix" require ] }
-} cond
-
: lognormal-random-float ( mean sigma -- n )
normal-random-float exp ;
@@ -128,12 +123,13 @@ ERROR: too-many-samples seq n ;
: pareto-random-float ( alpha -- n )
[ 0. 1. uniform-random-float 1 swap - ] dip [ 1. swap / ] bi@ ^ ;
-: gauss-random-float ( mean sigma -- n )
- 0. 1. uniform-random-float 1 swap - log -2 * sqrt
- (cos-random-float) * * + ;
-
: beta-random-float ( alpha beta -- n )
- [ 1. gauss-random-float ] dip over zero?
- [ 2drop 0 ] [ 1. gauss-random-float dupd + / ] if ;
+ [ 1. normal-random-float ] dip over zero?
+ [ 2drop 0 ] [ 1. normal-random-float dupd + / ] if ;
+
+{
+ { [ os windows? ] [ "random.windows" require ] }
+ { [ os unix? ] [ "random.unix" require ] }
+} cond
"random.mersenne-twister" require