beta-random* ( alpha beta rnd -- n )

Vocabulary

random

Inputs

alpha	an object
beta	an object
rnd	an object

Outputs

n

an object

Definition

USING: kernel math ;

IN: random

:: beta-random* ( alpha beta rnd -- n )
    alpha 1.0 rnd gamma-random*
    [ 0 ] [ beta 1.0 rnd gamma-random* dupd + / ] if-zero ;