personal/squiggle.c
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

formatting pass.

Browse Source
This commit is contained in:
NunoSempere 2023-07-23 16:30:42 +02:00
parent c8fd237bbf
commit d531d5571f
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
squiggle.c
View File

@ -70,9 +70,9 @@ double sample_normal(double mean, double sigma, uint64_t* seed)
return (mean + sigma * sample_unit_normal(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) 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 loglow = logf(low);
double loghigh = logf(high); double loghigh = logf(high);
double logmean = (loglow + loghigh) / 2; double logmean = (loglow + loghigh) / 2;
double logsigma = (loghigh - loglow) / (2.0 * NORMAL95CONFIDENCE); double logstd = (loghigh - loglow) / (2.0 * NORMAL95CONFIDENCE);
return sample_lognormal(logmean, logsigma, seed); return sample_lognormal(logmean, logstd, seed);
} }
double sample_gamma(double alpha, uint64_t* seed) double sample_gamma(double alpha, uint64_t* seed)