Re: Extended Random Function

*To*: mathgroup at smc.vnet.net*Subject*: [mg21580] Re: [mg21500] Extended Random Function*From*: BobHanlon at aol.com*Date*: Sat, 15 Jan 2000 02:04:23 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Needs["Statistics`ContinuousDistributions`"] randomNbr[dist_, digits_Integer?Positive] := Module[{rN = Random[dist], f}, f = 10^(digits - Ceiling[Log[10, Abs[rN]]]); N[Round[f*rN]/f]] Table[ randomNbr[NormalDistribution[0, 5], k], {k, 10}] // InputForm {2., -5.6, -3.68, 3.178, 1.9008, 13.5738, -1.904861, -0.10891599, 6.47057332, -0.2439976141} Bob Hanlon In a message dated 1/14/2000 4:02:59 AM, d_mennella at my-deja.com writes: >I have a question concerning the use of the >extension of the Random[] function as defined in >the Statistics`ContinuousDistributions`. With >this extension it is possible to pick a random >number according to a given distribution function. > >My question is: how is it possible to pick a Real >number with n digits? With the default function >it is possible to do so by calling > >Random[Real,{xmin,xmax},ndigits] > >but I have found no way to do this with the >extended function. >