steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

random: Change weibull-random-float to use alpha/beta parameters.

db4
Doug Coleman 2012-03-30 18:38:18 -07:00
parent 6686cae347
commit 8e3f0cdeac
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/random/random.factor
View File

@ -120,8 +120,11 @@ ERROR: too-many-samples seq n ;
: exponential-random-float ( lambda -- n ) : exponential-random-float ( lambda -- n )
random-unit log neg swap / ; random-unit log neg swap / ;
: weibull-random-float ( lambda k -- n ) : weibull-random-float ( alpha beta -- n )
[ random-unit log neg ] dip 1. swap / ^ * ; [
[ random-unit log neg ] dip
1. swap / ^
] dip * ;
: pareto-random-float ( alpha -- n ) : pareto-random-float ( alpha -- n )
[ random-unit ] dip [ 1. swap / ] bi@ ^ ; [ random-unit ] dip [ 1. swap / ] bi@ ^ ;