1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#include <string.h>
#include <math.h>
#include <getopt.h>
#include <float.h>
#include <sys/types.h>
#include <inttypes.h>
#include <gsl/gsl_randist.h>
#include <gsl/gsl_rng.h>
#include <stdbool.h>
#include <assert.h>
#include <fftw3.h>
#include <jst/graph.h>
#include <jst/rand.h>
typedef struct {
graph_t *g;
bool *spins;
int32_t M;
double H;
} ising_state_t;
typedef struct ll_tag {
uint32_t x;
struct ll_tag *next;
} ll_t;
typedef struct {
int32_t nv;
double dH;
int32_t dM;
} cluster_t;
double get_hamiltonian(graph_t *g, double *coupling, bool *x);
void stack_push(ll_t **q, uint32_t x);
uint32_t stack_pop(ll_t **q);
bool stack_contains(const ll_t *q, uint32_t x);
cluster_t *flip_cluster(const graph_t *g, const double *ps, double H, bool *x, gsl_rng *r);
graph_t *graph_add_ext(const graph_t *g);
double hh(double th);
double *get_bond_probs(double T, double H, ising_state_t *s);
int32_t wolff_step(double T, double H, ising_state_t *s, gsl_rng *r, double *ps);
|