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

random: adding triangular distribution.

db4
John Benediktsson 2012-03-30 19:53:30 -07:00
parent 1b4d9ba83e
commit 71dfe9bb14
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/random/random.factor
View File

@ -215,6 +215,16 @@ ERROR: too-many-samples seq n ;
mu 2pi mod _f cos random-unit 0.5 > [ + ] [ - ] if mu 2pi mod _f cos random-unit 0.5 > [ + ] [ - ] if
] if ; ] if ;
:: (triangular-random-float) ( low high mode -- n )
mode low - high low - / :> c!
random-unit :> u!
high low
u c > [ 1. u - u! 1. c - c! swap ] when
[ - u c * sqrt * ] keep + ;
: triangular-random-float ( low high -- n )
2dup + 2 /f (triangular-random-float) ;
{ {
{ [ os windows? ] [ "random.windows" require ] } { [ os windows? ] [ "random.windows" require ] }
{ [ os unix? ] [ "random.unix" require ] } { [ os unix? ] [ "random.unix" require ] }