normal-random* ( mean sigma rnd -- n )

Vocabulary

random

Inputs

mean	an object
sigma	an object
rnd	an object

Outputs

n

an object

Definition

USING: math math.constants math.functions ;

IN: random

:: normal-random* ( mean sigma rnd -- n )
    0.0 2pi rnd uniform-random* cos rnd random-unit* log -2.0 *
    sqrt * sigma * mean + ;