mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 14:50:19 +02:00
Code Activity

(scm_random, scm_random_normal, scm_random_solid_sphere_x,

Browse source 
scm_random_hollow_sphere_x, scm_random_normal_vector_x,
scm_random_exp): Removed unnecessary "" from docstrings.
This commit is contained in:
Martin Grabmüller 2001-02-16 14:55:54 +00:00
parent 0137a31b73
commit 64ba8e858c
1 changed files with 6 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/random.c
View file

@ -363,8 +363,7 @@ SCM_DEFINE (scm_random, "random", 1, 1, 0,
"`seed->random-state'. It defaults to the value of the variable\n" "`seed->random-state'. It defaults to the value of the variable\n"
"*random-state*. This object is used to maintain the state of\n" "*random-state*. This object is used to maintain the state of\n"
"the pseudo-random-number generator and is altered as a side\n" "the pseudo-random-number generator and is altered as a side\n"
"effect of the random operation.\n" "effect of the random operation.")
"")
#define FUNC_NAME s_scm_random #define FUNC_NAME s_scm_random
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -427,8 +426,7 @@ SCM_DEFINE (scm_random_normal, "random:normal", 0, 1, 0,
"Returns an inexact real in a normal distribution.\n" "Returns an inexact real in a normal distribution.\n"
"The distribution used has mean 0 and standard deviation 1.\n" "The distribution used has mean 0 and standard deviation 1.\n"
"For a normal distribution with mean m and standard deviation\n" "For a normal distribution with mean m and standard deviation\n"
"d use @code{(+ m (* d (random:normal)))}.\n" "d use @code{(+ m (* d (random:normal)))}.")
"")
#define FUNC_NAME s_scm_random_normal #define FUNC_NAME s_scm_random_normal
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))
@ -484,8 +482,7 @@ SCM_DEFINE (scm_random_solid_sphere_x, "random:solid-sphere!", 1, 1, 0,
"Thinking of vect as coordinates in space of \n" "Thinking of vect as coordinates in space of \n"
"dimension n = (vector-length vect), the coordinates \n" "dimension n = (vector-length vect), the coordinates \n"
"are uniformly distributed within the unit n-shere.\n" "are uniformly distributed within the unit n-shere.\n"
"The sum of the squares of the numbers is returned.\n" "The sum of the squares of the numbers is returned.")
"")
#define FUNC_NAME s_scm_random_solid_sphere_x #define FUNC_NAME s_scm_random_solid_sphere_x
{ {
SCM_VALIDATE_VECTOR_OR_DVECTOR (1,v); SCM_VALIDATE_VECTOR_OR_DVECTOR (1,v);
@ -508,8 +505,7 @@ SCM_DEFINE (scm_random_hollow_sphere_x, "random:hollow-sphere!", 1, 1, 0,
"Thinking of vect as coordinates in space of \n" "Thinking of vect as coordinates in space of \n"
"dimension n = (vector-length vect), the coordinates\n" "dimension n = (vector-length vect), the coordinates\n"
"are uniformly distributed over the surface of the \n" "are uniformly distributed over the surface of the \n"
"unit n-shere.\n" "unit n-shere.")
"")
#define FUNC_NAME s_scm_random_hollow_sphere_x #define FUNC_NAME s_scm_random_hollow_sphere_x
{ {
SCM_VALIDATE_VECTOR_OR_DVECTOR (1,v); SCM_VALIDATE_VECTOR_OR_DVECTOR (1,v);
@ -527,8 +523,7 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
(SCM v, SCM state), (SCM v, SCM state),
"Fills vect with inexact real random numbers that are\n" "Fills vect with inexact real random numbers that are\n"
"independent and standard normally distributed\n" "independent and standard normally distributed\n"
"(i.e., with mean 0 and variance 1).\n" "(i.e., with mean 0 and variance 1).")
"")
#define FUNC_NAME s_scm_random_normal_vector_x #define FUNC_NAME s_scm_random_normal_vector_x
{ {
int n; int n;
@ -552,8 +547,7 @@ SCM_DEFINE (scm_random_normal_vector_x, "random:normal-vector!", 1, 1, 0,
SCM_DEFINE (scm_random_exp, "random:exp", 0, 1, 0, SCM_DEFINE (scm_random_exp, "random:exp", 0, 1, 0,
(SCM state), (SCM state),
"Returns an inexact real in an exponential distribution with mean 1.\n" "Returns an inexact real in an exponential distribution with mean 1.\n"
"For an exponential distribution with mean u use (* u (random:exp)).\n" "For an exponential distribution with mean u use (* u (random:exp)).")
"")
#define FUNC_NAME s_scm_random_exp #define FUNC_NAME s_scm_random_exp
{ {
if (SCM_UNBNDP (state)) if (SCM_UNBNDP (state))