squiggle.c

Self-contained Monte Carlo estimation in C99
Log | Files | Refs | README

commit d531d5571ff74b9ee8c7073c82c1b49ac6b4e359
parent c8fd237bbf48ecfe5b20e6d13d1b8976ca8d5374
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Sun, 23 Jul 2023 16:30:42 +0200

formatting pass.

Diffstat:
Msquiggle.c | 20++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/squiggle.c b/squiggle.c @@ -35,11 +35,11 @@ uint64_t xorshift64(uint64_t* seed) // https://en.wikipedia.org/wiki/Xorshift // Also some drama: <https://www.pcg-random.org/posts/on-vignas-pcg-critique.html>, <https://prng.di.unimi.it/> - uint64_t x = *seed; - x ^= x << 13; - x ^= x >> 7; - x ^= x << 17; - return *seed = x; + uint64_t x = *seed; + x ^= x << 13; + x ^= x >> 7; + x ^= x << 17; + return *seed = x; } // Distribution & sampling functions @@ -70,9 +70,9 @@ double sample_normal(double mean, double sigma, uint64_t* seed) return (mean + sigma * sample_unit_normal(seed)); } -double sample_lognormal(double logmean, double logsigma, uint64_t* seed) +double sample_lognormal(double logmean, double logstd, uint64_t* seed) { - return expf(sample_normal(logmean, logsigma, seed)); + return exp(sample_normal(logmean, logstd, seed)); } double sample_to(double low, double high, uint64_t* seed) @@ -84,8 +84,8 @@ double sample_to(double low, double high, uint64_t* seed) double loglow = logf(low); double loghigh = logf(high); double logmean = (loglow + loghigh) / 2; - double logsigma = (loghigh - loglow) / (2.0 * NORMAL95CONFIDENCE); - return sample_lognormal(logmean, logsigma, seed); + double logstd = (loghigh - loglow) / (2.0 * NORMAL95CONFIDENCE); + return sample_lognormal(logmean, logstd, seed); } double sample_gamma(double alpha, uint64_t* seed) @@ -105,7 +105,7 @@ double sample_gamma(double alpha, uint64_t* seed) v = 1.0 + c * x; } while (v <= 0.0); - v = v * v * v; + v = v * v * v; u = sample_unit_uniform(seed); if (u < 1.0 - 0.0331 * (x * x * x * x)) { // Condition 1 // the 0.0331 doesn't inspire much confidence