(triangular-random-float) ( low high mode -- n )

Vocabulary

random.private

Inputs

low	an object
high	an object
mode	an object

Outputs

n

an object

Definition

USING: kernel math math.functions random ;

IN: random.private

:: (triangular-random-float) ( low high mode -- n )
    mode low - high low - /
    :> c! random-unit :> u! high low u c >
    [ 1.0 u - u! 1.0 c - c! swap ] when [ - u c * sqrt * ] keep
    + ;