#include "surf/random_mgr.h"
#include "xbt/sysdep.h"
+#include "gras_config.h" /*_XBT_WIN32*/
+
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(random, surf, "Random part of surf");
#ifdef _XBT_WIN32
static unsigned int _seed = 2147483647;
+#ifdef __VISUALC__
typedef unsigned __int64 uint64_t;
typedef unsigned int uint32_t;
+#endif
struct drand48_data {
unsigned short int __x[3]; /* Current state. */
return 0;
}
-int _drand48_iterate(unsigned short int xsubi[3], struct drand48_data *buffer)
+int _drand48_iterate(unsigned short int xsubi[3],
+ struct drand48_data *buffer)
{
uint64_t X;
uint64_t result;
{
double result;
- (void) _erand48_r(__libc_drand48_data.__x, &__libc_drand48_data, &result);
+ (void) _erand48_r(__libc_drand48_data.__x, &__libc_drand48_data,
+ &result);
return result;
}
return drand48();
case RAND:
return (double) rand_r((unsigned int *) seed) / RAND_MAX;
+ case RNGSTREAM :
+ XBT_INFO("Seen RNGSTREAM");
+ return 0.0;
default:
return drand48();
}
if (random->std == 0)
return random->mean * (random->max - random->min) + random->min;
- a =
- random->mean * (random->mean * (1 - random->mean) /
- (random->std * random->std) - 1);
- b =
- (1 -
- random->mean) * (random->mean * (1 -
- random->mean) / (random->std *
- random->std) - 1);
+ a = random->mean * (random->mean * (1 - random->mean) /
+ (random->std * random->std) - 1);
+ b = (1 -
+ random->mean) * (random->mean * (1 -
+ random->mean) / (random->std *
+ random->std) - 1);
alpha = a + b;
if (a <= 1. || b <= 1.)
/* Check user stupidities */
if (max < min)
- THROW2(arg_error, 0, "random->max < random->min (%f < %f)", max, min);
+ THROWF(arg_error, 0, "random->max < random->min (%f < %f)", max, min);
if (mean < min)
- THROW2(arg_error, 0, "random->mean < random->min (%f < %f)", mean, min);
+ THROWF(arg_error, 0, "random->mean < random->min (%f < %f)", mean,
+ min);
if (mean > max)
- THROW2(arg_error, 0, "random->mean > random->max (%f > %f)", mean, max);
+ THROWF(arg_error, 0, "random->mean > random->max (%f > %f)", mean,
+ max);
/* normalize the mean and standard deviation before storing */
random->mean = (mean - min) / (max - min);
random->std = std / (max - min);
if (random->mean * (1 - random->mean) < random->std * random->std)
- THROW2(arg_error, 0, "Invalid mean and standard deviation (%f and %f)",
+ THROWF(arg_error, 0, "Invalid mean and standard deviation (%f and %f)",
random->mean, random->std);
return random;