/* PSPP - computes sample statistics.
Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
- Written by Ben Pfaff <blp@gnu.org>.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
"exclusive."));
return CMD_FAILURE;
}
-
+
frac = lex_tokval (lexer) * (max - min) + min;
a = b = 0;
}
a, b);
return CMD_FAILURE;
}
-
+
frac = 0;
}
lex_get (lexer);
struct sample_trns *t = t_;
double U;
- if (t->type == TYPE_FRACTION)
+ if (t->type == TYPE_FRACTION)
{
if (gsl_rng_get (get_rng ()) <= t->frac)
return TRNS_CONTINUE;
}
static bool
-sample_trns_free (void *t_)
+sample_trns_free (void *t_)
{
struct sample_trns *t = t_;
free (t);