(index ("current-random-source" 0) ("random-integer/current" 350) ("random-real/current" 693) ("registered-random-sources" 1013) ("registered-random-source" 1200) ("random-source?" 1455) ("check-random-source" 1572) ("error-random-source" 1776) ("make-random-source" 1979) ("new-random-source" 2235) ("random-source-name" 2422) ("random-source-documentation" 2574) ("random-source-log2-period" 2749) ("random-source-maximum-range" 2946) ("random-source-entropy-source" 3259) ("random-source-entropy-source-set!" 3460) ("random-source-state-ref" 3676) ("random-source-state-set!" 3921) ("random-source-randomize!" 4169) ("random-source-pseudo-randomize!" 4283) ("random-source-make-integers" 4398) ("random-source-make-reals" 4630) ("random-source-make-u8vectors" 4964) ("random-source-make-f64vectors" 5411) ("current-entropy-source" 5883) ("registered-entropy-sources" 6215) ("registered-entropy-source" 6405) ("entropy-source?" 6643) ("check-entropy-source" 6763) ("error-entropy-source" 6971) ("make-entropy-source" 7178) ("new-entropy-source" 7440) ("entropy-source-name" 7607) ("entropy-source-documentation" 7763) ("entropy-source-u8" 7942) ("entropy-source-f64" 8119) ("entropy-source-u8vector" 8285) ("entropy-source-f64vector" 8661) ("entropy-source-integer" 9030) ("make-random-source-mrg32k3a" 9207) ("make-random-source-mwc" 9367) ("make-random-source-moa" 9512) ("make-entropy-source-system-clock" 9657) ("make-entropy-source-crypt" 9832) ("make-entropy-source-urandom-device" 10002) ("make-entropy-source-random-device" 10182) ("make-entropy-source/procedures" 10361) ("make-entropy-source/f64procedure" 10702) ("entropy-port-lifetime" 11017) ("make-entropy-source/port" 11380) ("make-entropy-source/port-open" 11780) ("make-entropy-source/port-open-timed" 12319) ("make-entropy-source/file" 12827) ("make-uniform-random-integers" 13281) ("make-uniform-random-reals" 14167) ("make-random-permutations" 14703) ("random-permutation!" 14703) ("make-random-vector" 15310) ("random-vector!" 15310) ("make-random-hollow-sphere" 15763) ("random-hollow-sphere!" 15763) ("make-random-solid-sphere" 16467) ("random-solid-sphere!" 16467) ("make-random-normals" 17155) ("make-random-exponentials" 17513) ("make-random-triangles" 17848) ("make-random-poissons" 18305) ("make-random-bernoullis" 18612) ("make-random-binomials" 18941) ("make-random-geometrics" 19326) ("make-random-lognormals" 19656) ("make-random-cauchys" 20035) ("make-random-gammas" 20406) ("make-random-erlangs" 20780) ("make-random-paretos" 21155) ("make-random-levys" 21529) ("make-random-weibulls" 21903))
(def (sig (procedure "(current-random-source [RANDOM-SOURCE])" (id current-random-source))) (p "Parameter for the default " (tt "random-source") ".") (p "The variable " (tt "default-random-source") " is the initial " (tt "(current-random-source)") ".") (p "The initial " (tt "random-source") " is an instance of " (tt "'mrg32k3a") ", per SRFI 27."))
(def (sig (procedure "(random-integer/current) -> (procedure (integer) integer)" (id random-integer/current))) (p "Returns an " (tt "integer") " random generator from the " (tt "(current-random-source)") ".") (p "Like " (tt "random-integer") " but w/ " (tt "(current-random-source)") ", & a " (tt "procedure") ", not a " (tt "variable") "."))
(def (sig (procedure "(random-real/current) -> (procedure () real)" (id random-real/current))) (p "Returns a " (tt "real") " random generator from the " (tt "(current-random-source)") ".") (p "Like " (tt "random-real") " but w/ " (tt "(current-random-source)") ", & a " (tt "procedure") ", not a " (tt "variable") "."))
(def (sig (procedure "(registered-random-sources) -> (list-of symbol)" (id registered-random-sources))) (p "Returns a " (tt "list") " of the registered " (tt "random-source") " names."))
(def (sig (procedure "(registered-random-source NAME) -> (disjoint #f (procedure () random-source))" (id registered-random-source))) (p "Returns the " (tt "random-source") " creator for the specified " (tt "NAME") " or " (tt "#f") " if not registered."))
(def (sig (procedure "(random-source? OBJ) -> boolean" (id random-source?))) (p (tt "random-source") " predicate."))
(def (sig (procedure "(check-random-source LOC OBJ [NAM])" (id check-random-source))) (p "Raise error when " (tt "OBJ") " not a " (tt "random-source") ". " (tt "NAM") " is the optional parameter name."))
(def (sig (procedure "(error-random-source LOC OBJ [NAM])" (id error-random-source))) (p "Raise error for " (tt "OBJ") " not a " (tt "random-source") ". " (tt "NAM") " is the optional parameter name."))
(def (sig (procedure "(make-random-source [SOURCE (current-random-source)]) -> random-source" (id make-random-source))) (p (tt "SOURCE") " is either a " (tt "random-source") " or the " (tt "symbol") " of a registered " (tt "random-source") ", the name."))
(def (sig (procedure "(new-random-source [RANDOM-SOURCE (current-random-source)]) -> random-source" (id new-random-source))) (p "Same as " (tt "(make-random-source RANDOM-SOURCE)") "."))
(def (sig (procedure "(random-source-name RANDOM-SOURCE) -> symbol" (id random-source-name))) (p "The symbolic name of the " (tt "RANDOM-SOURCE") "."))
(def (sig (procedure "(random-source-documentation RANDOM-SOURCE) -> string" (id random-source-documentation))) (p "Some more information for the " (tt "RANDOM-SOURCE") "."))
(def (sig (procedure "(random-source-log2-period RANDOM-SOURCE) -> integer" (id random-source-log2-period))) (p "The period of the " (tt "RANDOM-SOURCE") " as a power of 2. A " (tt "fixnum") "."))
(def (sig (procedure "(random-source-maximum-range RANDOM-SOURCE) -> inexact-integer" (id random-source-maximum-range))) (p "The largest integer the " (tt "RANDOM-SOURCE") " can produce without resort to a " (tt "bignum") " representation. Currently an inexact-integer " (tt "flonum") ", even for 64-bit CPUs."))
(def (sig (procedure "(random-source-entropy-source RANDOM-SOURCE) -> entropy-source" (id random-source-entropy-source))) (p "The current " (tt "entropy-source") " for the " (tt "RANDOM-SOURCE") "."))
(def (sig (procedure "(random-source-entropy-source-set! RANDOM-SOURCE ENTROPY-SOURCE)" (id random-source-entropy-source-set!))) (p "Changes the current " (tt "entropy-source") " for the " (tt "RANDOM-SOURCE") "."))
(def (sig (procedure "(random-source-state-ref RANDOM-SOURCE) -> random-state" (id random-source-state-ref))) (p "Per the SRFI 27 specification the " (tt "random-state") " is a valid external representation of " (tt "RANDOM-SOURCE") " state."))
(def (sig (procedure "(random-source-state-set! RANDOM-SOURCE RANDOM-STATE)" (id random-source-state-set!))) (p "Only a " (tt "RANDOM-STATE") " produced by a " (tt "random-source-state-ref") " of the same " (tt "random-source") " is acceptable."))
(def (sig (procedure "(random-source-randomize! RANDOM-SOURCE [ENTROPY-SOURCE])" (id random-source-randomize!))))
(def (sig (procedure "(random-source-pseudo-randomize! RANDOM-SOURCE I J)" (id random-source-pseudo-randomize!))))
(def (sig (procedure "(random-source-make-integers RANDOM-SOURCE) -> (procedure (integer) integer)" (id random-source-make-integers))) (p "The result is a " (tt "procedure") ": " (tt "(random-source-make-integers RANDOM-SOURCE)")))
(def (sig (procedure "(random-source-make-reals RANDOM-SOURCE [PRECISION]) -> (procedure () real)" (id random-source-make-reals))) (p "The result is a " (tt "procedure") ": " (tt "(random-source-make-reals RANDOM-SOURCE PRECISION)")) (p (tt "PRECISION") " maybe " (tt "#f") ", in which case the value is " (tt "flonum-epsilon") "."))
(def (sig (procedure "(random-source-make-u8vectors RANDOM-SOURCE) -> (procedure (integer) u8vector)" (id random-source-make-u8vectors))) (p "Returns a " (tt "procedure") " of one argument, the length of the generated vector, the returns a vector of random 8-bit unsigned values, a SRFI 4 " (tt "u8vector") ".") (p "The variable " (tt "random-u8vector") " is a " (tt "procedure") ": " (tt "(random-source-make-u8vectors default-random-source)")))
(def (sig (procedure "(random-source-make-f64vectors RANDOM-SOURCE [PRECISION]) -> (procedure (integer) f64vector)" (id random-source-make-f64vectors))) (p "Returns a " (tt "procedure") " of one argument, the length of the generated vector, the returns a vector of random 64-bit floating-point values, a SRFI 4 " (tt "f64vector") ".") (p "The variable " (tt "random-f64vector") " is a " (tt "procedure") ": " (tt "(random-source-make-f64vectors default-random-source)")))
(def (sig (procedure "(current-entropy-source [ENTROPY-SOURCE])" (id current-entropy-source))) (p "Parameter for the default " (tt "entropy-source") ".") (p (tt "default-entropy-source") " is the initial " (tt "(current-entropy-source)") ".") (p "The initial " (tt "entropy-source") " is an instance of " (tt "'system-clock") "."))
(def (sig (procedure "(registered-entropy-sources) -> (list-of symbol)" (id registered-entropy-sources))) (p "Returns a " (tt "list") " of the registered " (tt "entropy-source") " names."))
(def (sig (procedure "(registered-entropy-source NAME) -> (or boolean procedure)" (id registered-entropy-source))) (p "Returns the " (tt "entropy-source") " creator for the specified " (tt "NAME") " or " (tt "#f") " if not registered."))
(def (sig (procedure "(entropy-source? OBJ) -> boolean" (id entropy-source?))) (p (tt "entropy-source") " predicate."))
(def (sig (procedure "(check-entropy-source LOC OBJ [NAM])" (id check-entropy-source))) (p "Raise error when " (tt "OBJ") " not an " (tt "entropy-source") ". " (tt "NAM") " is the optional parameter name."))
(def (sig (procedure "(error-entropy-source LOC OBJ [NAM])" (id error-entropy-source))) (p "Raise error for " (tt "OBJ") " not an " (tt "entropy-source") ". " (tt "NAM") " is the optional parameter name."))
(def (sig (procedure "(make-entropy-source [SOURCE (current-entropy-source)]) -> entropy-source" (id make-entropy-source))) (p (tt "SOURCE") " is either a " (tt "entropy-source") " or the " (tt "symbol") " of a registered " (tt "entropy-source") ", the name."))
(def (sig (procedure "(new-entropy-source ENTROPY-SOURCE) -> entropy-source" (id new-entropy-source))) (p "Same as " (tt "(make-random-entropy ENTROPY-SOURCE)") "."))
(def (sig (procedure "(entropy-source-name ENTROPY-SOURCE) -> symbol" (id entropy-source-name))) (p "The symbolic name of the " (tt "ENTROPY-SOURCE") "."))
(def (sig (procedure "(entropy-source-documentation ENTROPY-SOURCE) -> string" (id entropy-source-documentation))) (p "Some more information for the " (tt "ENTROPY-SOURCE") "."))
(def (sig (procedure "(entropy-source-u8 ENTROPY-SOURCE) -> fixnum" (id entropy-source-u8))) (p "Returns a non-negative " (tt "fixnum") " from the " (tt "ENTROPY-SOURCE") "."))
(def (sig (procedure "(entropy-source-f64 ENTROPY-SOURCE) -> flonum" (id entropy-source-f64))) (p "Returns a " (tt "flonum") " from the " (tt "ENTROPY-SOURCE") "."))
(def (sig (procedure "(entropy-source-u8vector ENTROPY-SOURCE LENGTH [U8VECTOR]) -> u8vector" (id entropy-source-u8vector))) (p "Returns a " (tt "u8vector") " with the 0 thru " (tt "LENGTH-1") " elements filled with non-negative " (tt "fixnum") "s from the " (tt "ENTROPY-SOURCE") ". If " (tt "U8VECTOR") " is supplied then this is used otherwise a new vector is returned."))
(def (sig (procedure "(entropy-source-f64vector ENTROPY-SOURCE LENGTH [F64VECTOR]) -> f64vector" (id entropy-source-f64vector))) (p "Returns a " (tt "f64vector") " with the 0 thru " (tt "LENGTH-1") " elements filled with " (tt "flonum") "s from the " (tt "ENTROPY-SOURCE") ". If " (tt "F64VECTOR") " is supplied then this is used otherwise a new vector is returned."))
(def (sig (procedure "(entropy-source-integer ENTROPY-SOURCE) -> integer" (id entropy-source-integer))) (p "Returns an " (tt "integer") " from the " (tt "ENTROPY-SOURCE") "."))
(def (sig (procedure "(make-random-source-mrg32k3a) -> random-source" (id make-random-source-mrg32k3a))) (p "Registered " (tt "NAME") " is " (tt "'mrg32k3a")))
(def (sig (procedure "(make-random-source-mwc) -> random-source" (id make-random-source-mwc))) (p "Registered " (tt "NAME") " is " (tt "'mwc")))
(def (sig (procedure "(make-random-source-moa) -> random-source" (id make-random-source-moa))) (p "Registered " (tt "NAME") " is " (tt "'moa")))
(def (sig (procedure "(make-entropy-source-system-clock) -> entropy-source" (id make-entropy-source-system-clock))) (p "Registered " (tt "NAME") " is " (tt "'system-clock")))
(def (sig (procedure "(make-entropy-source-crypt [BUFFER-LENGTH]) -> entropy-source" (id make-entropy-source-crypt))) (p "Registered " (tt "NAME") " is " (tt "'crypt")))
(def (sig (procedure "(make-entropy-source-urandom-device) -> entropy-source" (id make-entropy-source-urandom-device))) (p "Registered " (tt "NAME") " is " (tt "'random-device")))
(def (sig (procedure "(make-entropy-source-random-device) -> entropy-source" (id make-entropy-source-random-device))) (p "Registered " (tt "NAME") " is " (tt "'urandom-device")))
(def (sig (procedure "(make-entropy-source/procedures U8PROC F64PROC [name: (NAME (gensym 'procedures-))] [docu: (DOCU \"Entropy from procedures\")]) -> entropy-source" (id make-entropy-source/procedures))) (p "Returns an unregistered " (tt "entropy-source") " built from the supplied " (tt "U8PROC") " and " (tt "F64PROC") " procedures."))
(def (sig (procedure "(make-entropy-source/f64procedure F64PROC [name: (NAME (gensym 'procedures-))] [docu: (DOCU \"Entropy from procedures\")]) -> entropy-source" (id make-entropy-source/f64procedure))) (p "Returns an unregistered " (tt "entropy-source") " built from the supplied " (tt "F64PROC") " procedure."))
(def (sig (parameter "(entropy-port-lifetime [SECONDS])" (id entropy-port-lifetime))) (p "The number of " (tt "SECONDS") " an entropy port is kept open without any activity.") (p (tt "SECONDS") " is a " (tt "positive real") " or a " (tt "boolean") ": " (tt "#t") ", to reset the default seconds, or " (tt "#f") ", to determine the lifetime by GC finalization."))
(def (sig (procedure "(make-entropy-source/port PORT [name: (NAME (gensym 'port-))] [docu: (DOCU \"Entropy from an open port\")]) -> entropy-source" (id make-entropy-source/port))) (p "Returns an unregistered " (tt "entropy-source") " built from the supplied " (tt "PORT") ", which is treated as a binary stream.") (p "The " (tt "PORT") " is kept open and must be closed by the caller, if at all."))
(def (sig (procedure "(make-entropy-source/port-open OPENER [name: (NAME (gensym 'port-))] [docu: (DOCU \"Entropy from port\")]) -> entropy-source" (id make-entropy-source/port-open))) (p "Returns an unregistered " (tt "entropy-source") " built from the supplied " (tt "OPENER") ".") (p (tt "OPENER") " is a " (tt "(procedure () port)") ", returning an opened " (tt "port") ".") (p "The returned " (tt "port") " has an " (tt "(entropy-port-lifetime)") " so the " (tt "port") " may be closed and " (tt "OPENER") " called more than once."))
(def (sig (procedure "(make-entropy-source/port-open-timed OPENER SECONDS [name: (NAME (gensym 'timed-port-))] [docu: (DOCU \"Entropy from timed open port\")]) -> entropy-source" (id make-entropy-source/port-open-timed))) (p "Returns an unregistered " (tt "entropy-source") " built from the supplied " (tt "OPENER") " & " (tt "SECONDS") ".") (p (tt "SECONDS") " is interpreted as with " (tt "entropy-port-lifetime") ".") (p (tt "OPENER") " is interpreted as with " (tt "make-entropy-source/port-open") "."))
(def (sig (procedure "(make-entropy-source/file NAMSTR [name: (NAME (gensym 'file-))] [docu: (DOCU (string-append \"Entropy from file \\\"\" namstr \"\\\"\"))]) -> entropy-source" (id make-entropy-source/file))) (p "Returns an unregistered " (tt "entropy-source") " using the file named by the pathname " (tt "NAMSTR") ".") (p "The opened " (tt "port") " for the file " (tt "NAMSTR") " is interpreted as with " (tt "make-entropy-source/port-open") "."))
(def (sig (procedure "(make-uniform-random-integers [high: (HIGH #f)] [low: (LOW 0)] [precision: (PRECISION 1)] [source: (SOURCE (current-random-source))]) -> (procedure () integer)" (id make-uniform-random-integers))) (p (tt "LOW") ", " (tt "HIGH") " and " (tt "PRECISION") " are " (tt "integer") "s.") (p (tt "SOURCE") " is a " (tt "random-source") ".") (p (tt "HIGH") ", if not supplied, is the " (tt "(- (random-source-maximum-range source) 1)") ".") (p "The generator returns integers in the range " (tt "LOW .. HIGH") " with an index of " (tt "PRECISION") ". Unlike a " (tt "(random-integer)") " result negative integers are possible.") (p (tt "(random-integer/current)") " <> " (tt "(make-uniform-random-integers)") ". " (tt "(random-integer/current)") " returns " (tt "((integer) -> integer)") ". " (tt "(make-uniform-random-integers)") " returns " (tt "(() -> integer)") "."))
(def (sig (procedure "(make-uniform-random-reals [precision: PRECISION] [source: (SOURCE (current-random-source))]) -> (procedure () real)" (id make-uniform-random-reals))) (p "The generator is as " (tt "(random-source-make-reals SOURCE PRECISION)") ".") (p (tt "PRECISION") " maybe " (tt "#f") ", in which case the value is " (tt "flonum-epsilon") ".") (p (tt "SOURCE") " is a " (tt "random-source") ".") (p (tt "(random-real/current)") " = " (tt "(make-uniform-random-reals)") ". Both return procedures of " (tt "(() -> real)") "."))
(def (sig (procedure "(make-random-permutations [randoms: (RANDOMS random-integer/current)]) -> (procedure (integer) vector)" (id make-random-permutations)) (procedure "(random-permutation! VECTOR [randoms: (RANDOMS random-integer/current)]) -> vector" (id random-permutation!))) (p "Performs the \"Knuth shuffle\" (or \"Fisher-Yates shuffle\").") (p "Fills " (tt "VECTOR") " with a random permutation of the finite set {0 ... " (tt "N") "-1}, where " (tt "N") " = " (tt "(vector-length VECTOR)") ".") (p (tt "RANDOMS") " is a " (tt "procedure") ": " (tt "(exact-real) -> exact-real")) (p "(From Gambit)"))
(def (sig (procedure "(make-random-vector [randoms: (RANDOMS random-real/current)]) -> (procedure (integer) vector)" (id make-random-vector)) (procedure "(random-vector! VECTOR% [randoms: (RANDOMS random-real/current)]) -> vector%" (id random-vector!))) (p "Fills " (tt "VECTOR") " with inexact real random numbers from the random distribution generator " (tt "randoms") ".") (p (tt "RANDOMS") " is a " (tt "procedure") ": " (tt "() -> inexact-real")))
(def (sig (procedure "(make-random-hollow-sphere [mu: (MU 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure (integer) vector)" (id make-random-hollow-sphere)) (procedure "(random-hollow-sphere! VECTOR% [mu: (MU 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> vector%" (id random-hollow-sphere!))) (p "Fills " (tt "VECTOR%") " with inexact real random numbers the sum of whose squares are equal to " (tt "1.0") ".") (p "Thinking of " (tt "VECTOR%") " as coordinates in space of dimension " (tt "N") " = " (tt "(vector%-length VECTOR%)") ", the coordinates are uniformly distributed over the surface of the unit n-sphere.") (p "(From Gambit)"))
(def (sig (procedure "(make-random-solid-sphere [mu: (MU 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure (integer) vector)" (id make-random-solid-sphere)) (procedure "(random-solid-sphere! VECTOR% [mu: (MU 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> vector%" (id random-solid-sphere!))) (p "Fills " (tt "VECTOR%") " with inexact real random numbers the sum of whose squares are less than " (tt "1.0") ".") (p "Thinking of " (tt "VECTOR%") " as coordinates in space of dimension " (tt "N") " = " (tt "(vector%-length VECTOR%)") ", the coordinates are uniformly distributed within the unit n-sphere.") (p "(From Gambit)"))
(def (sig (procedure "(make-random-normals [mu: (MU 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-normals))) (p (tt "MU") " is " (tt "real") ".") (p (tt "SIGMA") " is " (tt "nonzero-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-normals)"))
(def (sig (procedure "(make-random-exponentials [mu: (MU 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-exponentials))) (p (tt "MU") " is " (tt "real") " in [" (tt "0") " " (tt "1") "].") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-exponentials)"))
(def (sig (procedure "(make-random-triangles [s: (S 0.0)] [m: (M 0.5)] [l: (L 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-triangles))) (p (tt "S") " is " (tt "real") ".") (p (tt "M") " is " (tt "real") " in [" (tt "S") " " (tt "L") "].") (p (tt "L") " is " (tt "real") " in ]" (tt "S") " " (tt "+inf.0") "[.") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-triangles)"))
(def (sig (procedure "(make-random-poissons [mu: (MU 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () integer)" (id make-random-poissons))) (p (tt "MU") " is " (tt "nonnegative-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-poissons)"))
(def (sig (procedure "(make-random-bernoullis [p: (P 0.5)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () boolean)" (id make-random-bernoullis))) (p (tt "P") " is " (tt "real") " in [" (tt "0") " " (tt "1") "].") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-bernoullis)"))
(def (sig (procedure "(make-random-binomials [t: (T 1)] [p: (P 0.5)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () integer)" (id make-random-binomials))) (p (tt "T") " is " (tt "cardinal-integer") ".") (p (tt "P") " is " (tt "real") " in [" (tt "0") " " (tt "1") "].") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-binomials)"))
(def (sig (procedure "(make-random-geometrics [p: (P 0.5)] [randoms: (RANDOMS (random-real/current))])) -> (procedure () integer)" (id make-random-geometrics))) (p (tt "P") " is " (tt "real") " in [" (tt "0") " " (tt "1") "].") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-geometrics)"))
(def (sig (procedure "(make-random-lognormals [mu: (MU 1.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-lognormals))) (p (tt "MU") " is " (tt "nonzero-real") ".") (p (tt "SIGMA") " is " (tt "nonnegative-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-lognormals)"))
(def (sig (procedure "(make-random-cauchys [median: (MEDIAN 0.0)] [sigma: (SIGMA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-cauchys))) (p (tt "MEDIAN") " is " (tt "real") ".") (p (tt "SIGMA") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-cauchys)"))
(def (sig (procedure "(make-random-gammas [alpha: (ALPHA 1.0)] [theta: (THETA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-gammas))) (p (tt "ALPHA") " is " (tt "positive-real") ".") (p (tt "THETA") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-gammas)"))
(def (sig (procedure "(make-random-erlangs [alpha: (ALPHA 1)] [theta: (THETA 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-erlangs))) (p (tt "ALPHA") " is " (tt "positive-real") ".") (p (tt "THETA") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-erlangs)"))
(def (sig (procedure "(make-random-paretos [alpha: (ALPHA 1.0)] [xmin: (XMIN 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-paretos))) (p (tt "ALPHA") " is " (tt "positive-real") ".") (p (tt "XMIN") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-paretos)"))
(def (sig (procedure "(make-random-levys [gamma: (GAMMA 1.0)] [delta: (DELTA 0.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-levys))) (p (tt "GAMMA") " is " (tt "nonnegative-real") ".") (p (tt "DELTA") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-levys)"))
(def (sig (procedure "(make-random-weibulls [shape: (SHAPE 1.0)] [scale: (SCALE 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)" (id make-random-weibulls))) (p (tt "SHAPE") " is " (tt "positive-real") ".") (p (tt "SCALE") " is " (tt "positive-real") ".") (p (tt "RANDOMS") " is a " (tt "(procedure () real)")) (highlight scheme "(use srfi-27-weibulls)"))
