clean up compilation of C example
This commit is contained in:
parent
eaf1915bdb
commit
f0493f6955
|
@ -1,15 +0,0 @@
|
||||||
#!/bin/bash
|
|
||||||
root="$1"
|
|
||||||
gcc -std=c99 -Wall -lm "$root".c -o "$root" -I/usr/local/include -L/usr/local/lib -lgsl -lgslcblas -lm -g
|
|
||||||
|
|
||||||
# Link libraries, for good measure
|
|
||||||
LD_LIBRARY_PATH=/usr/local/lib
|
|
||||||
export LD_LIBRARY_PATH
|
|
||||||
|
|
||||||
# Increase stack size limit
|
|
||||||
ulimit -Ss 256000
|
|
||||||
# -Ss: the soft limit. If you set the hard limit, you then can't raise it
|
|
||||||
# 256000: around 250Mbs, if I'm reading it correctly.
|
|
||||||
|
|
||||||
# run
|
|
||||||
./samples
|
|
|
@ -1,13 +0,0 @@
|
||||||
#!/bin/bash
|
|
||||||
root="$1"
|
|
||||||
gcc -std=c99 -Wall -lm "$root".c -o "$root" -I/usr/local/include -L/usr/local/lib -lgsl -lgslcblas -lm -g
|
|
||||||
|
|
||||||
# Link libraries, for good measure
|
|
||||||
LD_LIBRARY_PATH=/usr/local/lib
|
|
||||||
export LD_LIBRARY_PATH
|
|
||||||
|
|
||||||
# Increase stack size limit
|
|
||||||
ulimit -Ss 256000
|
|
||||||
# -Ss: the soft limit. If you set the hard limit, you then can't raise it
|
|
||||||
# 256000: around 250Mbs, if I'm reading it correctly.
|
|
||||||
|
|
50
C/samples/makefile
Normal file
50
C/samples/makefile
Normal file
|
@ -0,0 +1,50 @@
|
||||||
|
# Interface:
|
||||||
|
# make
|
||||||
|
# make build
|
||||||
|
# make format
|
||||||
|
# make run
|
||||||
|
|
||||||
|
# Compiler
|
||||||
|
CC=gcc
|
||||||
|
# CC=tcc # <= faster compilation
|
||||||
|
|
||||||
|
# Main file
|
||||||
|
SRC=samples.c
|
||||||
|
OUTPUT=samples
|
||||||
|
|
||||||
|
## Dependencies
|
||||||
|
DEPS='gsl'
|
||||||
|
|
||||||
|
## Flags
|
||||||
|
INCS=`pkg-config --cflags ${DEPS}`
|
||||||
|
LIBS=`pkg-config --libs ${DEPS}`
|
||||||
|
DEBUG= #'-g'
|
||||||
|
STANDARD=-std=c99
|
||||||
|
WARNINGS=-Wall
|
||||||
|
|
||||||
|
## Formatter
|
||||||
|
STYLE_BLUEPRINT=webkit
|
||||||
|
FORMATTER=clang-format -i -style=$(STYLE_BLUEPRINT)
|
||||||
|
|
||||||
|
## make build
|
||||||
|
build: $(SRC)
|
||||||
|
$(CC) $(DEBUG) $(INCS) $(PLUGS) $(SRC) -o samples $(LIBS)
|
||||||
|
|
||||||
|
format: $(SRC)
|
||||||
|
$(FORMATTER) $(SRC)
|
||||||
|
|
||||||
|
run: $(SRC) $(OUTPUT)
|
||||||
|
echo "Increasing stack size limit, because we are dealing with 1M samples"
|
||||||
|
ulimit -Ss 256000
|
||||||
|
# ^ Increase stack size limit
|
||||||
|
# -Ss: the soft limit. If you set the hard limit, you then can't raise it
|
||||||
|
# 256000: around 250Mbs, if I'm reading it correctly.
|
||||||
|
./$(OUTPUT)
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
# Old:
|
||||||
|
# Link libraries, for good measure
|
||||||
|
# LD_LIBRARY_PATH=/usr/local/lib
|
||||||
|
# export LD_LIBRARY_PATH
|
||||||
|
|
Binary file not shown.
83
C/samples/samples.c
Executable file → Normal file
83
C/samples/samples.c
Executable file → Normal file
|
@ -1,8 +1,8 @@
|
||||||
#include <stdlib.h>
|
|
||||||
#include <stdio.h>
|
|
||||||
#include <math.h>
|
|
||||||
#include <gsl/gsl_rng.h>
|
|
||||||
#include <gsl/gsl_randist.h>
|
#include <gsl/gsl_randist.h>
|
||||||
|
#include <gsl/gsl_rng.h>
|
||||||
|
#include <math.h>
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
|
||||||
#define N 1000000
|
#define N 1000000
|
||||||
/*
|
/*
|
||||||
|
@ -12,102 +12,111 @@
|
||||||
*/
|
*/
|
||||||
|
|
||||||
/* Helpers */
|
/* Helpers */
|
||||||
void print(double *ys){
|
void print(double* ys)
|
||||||
for(int i=0; i<N; i++){
|
{
|
||||||
|
for (int i = 0; i < N; i++) {
|
||||||
printf("%f\n", ys[i]);
|
printf("%f\n", ys[i]);
|
||||||
}
|
}
|
||||||
printf("\n");
|
printf("\n");
|
||||||
}
|
}
|
||||||
|
|
||||||
void fill(double *ys, float f){
|
void fill(double* ys, float f)
|
||||||
for(int i=0; i<N; i++){
|
{
|
||||||
|
for (int i = 0; i < N; i++) {
|
||||||
ys[i] = f;
|
ys[i] = f;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
double sum(double *ps, int n){
|
double sum(double* ps, int n)
|
||||||
|
{
|
||||||
double result = 0;
|
double result = 0;
|
||||||
for(int i=0; i<n; i++){
|
for (int i = 0; i < n; i++) {
|
||||||
result += ps[i];
|
result += ps[i];
|
||||||
}
|
}
|
||||||
return(result);
|
return (result);
|
||||||
}
|
}
|
||||||
|
|
||||||
void cumsum(double *ps, double *rs, int n){
|
void cumsum(double* ps, double* rs, int n)
|
||||||
|
{
|
||||||
double counter = 0;
|
double counter = 0;
|
||||||
for(int i=0; i<n; i++){
|
for (int i = 0; i < n; i++) {
|
||||||
counter += ps[i];
|
counter += ps[i];
|
||||||
rs[i] = counter;
|
rs[i] = counter;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Distributions*/
|
/* Distributions*/
|
||||||
void normal(gsl_rng * r, double *ys, double mean, double std){
|
void normal(gsl_rng* r, double* ys, double mean, double std)
|
||||||
for(int i=0; i<N; i++){
|
{
|
||||||
|
for (int i = 0; i < N; i++) {
|
||||||
ys[i] = mean + gsl_ran_gaussian(r, std);
|
ys[i] = mean + gsl_ran_gaussian(r, std);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void lognormal(gsl_rng * r, double *ys, double zeta, double sigma){
|
void lognormal(gsl_rng* r, double* ys, double zeta, double sigma)
|
||||||
for(int i=0; i<N; i++){
|
{
|
||||||
|
for (int i = 0; i < N; i++) {
|
||||||
ys[i] = gsl_ran_lognormal(r, zeta, sigma);
|
ys[i] = gsl_ran_lognormal(r, zeta, sigma);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
void to(gsl_rng * r, double *ys, double low, double high){
|
void to(gsl_rng* r, double* ys, double low, double high)
|
||||||
|
{
|
||||||
double normal95confidencePoint = 1.6448536269514722;
|
double normal95confidencePoint = 1.6448536269514722;
|
||||||
double log_low = log(low);
|
double log_low = log(low);
|
||||||
double log_high = log(high);
|
double log_high = log(high);
|
||||||
double zeta = (log_low + log_high)/2;
|
double zeta = (log_low + log_high) / 2;
|
||||||
double sigma = (log_high - log_low) / (2.0 * normal95confidencePoint);
|
double sigma = (log_high - log_low) / (2.0 * normal95confidencePoint);
|
||||||
lognormal(r, ys, zeta, sigma);
|
lognormal(r, ys, zeta, sigma);
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Mixture of distributions */
|
/* Mixture of distributions */
|
||||||
void mixture(gsl_rng * r, double *dists[], double *weights, int n, double *results){
|
void mixture(gsl_rng* r, double* dists[], double* weights, int n, double* results)
|
||||||
|
{
|
||||||
/* Get cummulative, normalized weights */
|
/* Get cummulative, normalized weights */
|
||||||
double sum_weights = sum(weights, n);
|
double sum_weights = sum(weights, n);
|
||||||
double normalized_weights[n];
|
double normalized_weights[n];
|
||||||
for(int i=0; i<n; i++){
|
for (int i = 0; i < n; i++) {
|
||||||
normalized_weights[i] = weights[i]/sum_weights;
|
normalized_weights[i] = weights[i] / sum_weights;
|
||||||
}
|
}
|
||||||
double cummulative_weights[n];
|
double cummulative_weights[n];
|
||||||
cumsum(normalized_weights, cummulative_weights, n);
|
cumsum(normalized_weights, cummulative_weights, n);
|
||||||
|
|
||||||
/* Get N samples, drawn from the different distributions in proportion to their weights. */
|
/* Get N samples, drawn from the different distributions in proportion to their weights. */
|
||||||
for(int i=0; i<N; i++){
|
for (int i = 0; i < N; i++) {
|
||||||
double p_1 = gsl_rng_uniform(r);
|
double p_1 = gsl_rng_uniform(r);
|
||||||
double p_2 = gsl_rng_uniform(r);
|
double p_2 = gsl_rng_uniform(r);
|
||||||
|
|
||||||
int index_found = 0;
|
int index_found = 0;
|
||||||
int index_counter = 0;
|
int index_counter = 0;
|
||||||
while ((index_found == 0) && (index_counter < n) ){
|
while ((index_found == 0) && (index_counter < n)) {
|
||||||
if(p_1 < cummulative_weights[index_counter]){
|
if (p_1 < cummulative_weights[index_counter]) {
|
||||||
index_found = 1;
|
index_found = 1;
|
||||||
}else{
|
} else {
|
||||||
index_counter++;
|
index_counter++;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if(index_found == 0) {
|
if (index_found == 0) {
|
||||||
printf("\nThis shouldn't be able to happen");
|
printf("\nThis shouldn't be able to happen");
|
||||||
// gsl_rng_free (r);
|
// gsl_rng_free (r);
|
||||||
// abort(); // this shouldn't have happened.
|
// abort(); // this shouldn't have happened.
|
||||||
|
|
||||||
}else{
|
} else {
|
||||||
int sample_index = (int) floor(p_2 * N);
|
int sample_index = (int)floor(p_2 * N);
|
||||||
results[i] = dists[index_counter][sample_index];
|
results[i] = dists[index_counter][sample_index];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
/* Main */
|
/* Main */
|
||||||
int main(void){
|
int main(void)
|
||||||
|
{
|
||||||
/* Initialize GNU Statistical Library (GSL) stuff */
|
/* Initialize GNU Statistical Library (GSL) stuff */
|
||||||
const gsl_rng_type * T;
|
const gsl_rng_type* T;
|
||||||
gsl_rng * r;
|
gsl_rng* r;
|
||||||
// gsl_rng_env_setup();
|
// gsl_rng_env_setup();
|
||||||
T = gsl_rng_default;
|
T = gsl_rng_default;
|
||||||
r = gsl_rng_alloc (T);
|
r = gsl_rng_alloc(T);
|
||||||
|
|
||||||
/* Toy example */
|
/* Toy example */
|
||||||
/* Declare variables in play */
|
/* Declare variables in play */
|
||||||
|
@ -126,14 +135,14 @@ int main(void){
|
||||||
|
|
||||||
/* Generate mixture */
|
/* Generate mixture */
|
||||||
int n = 4;
|
int n = 4;
|
||||||
double weights[] = { 1 - p_c, p_c/2, p_c/4, p_c/4 };
|
double weights[] = { 1 - p_c, p_c / 2, p_c / 4, p_c / 4 };
|
||||||
double *dists[] = { dist_none, dist_one, dist_few, dist_many };
|
double* dists[] = { dist_none, dist_one, dist_few, dist_many };
|
||||||
|
|
||||||
mixture(r, dists, weights, n, dist_mixture);
|
mixture(r, dists, weights, n, dist_mixture);
|
||||||
printf("%f\n", sum(dist_mixture, N)/N);
|
printf("%f\n", sum(dist_mixture, N) / N);
|
||||||
|
|
||||||
/* Clean up GSL */
|
/* Clean up GSL */
|
||||||
gsl_rng_free (r);
|
gsl_rng_free(r);
|
||||||
|
|
||||||
/* Return success*/
|
/* Return success*/
|
||||||
return EXIT_SUCCESS;
|
return EXIT_SUCCESS;
|
||||||
|
|
Loading…
Reference in New Issue
Block a user