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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
#include "wolff.h"
int main(int argc, char *argv[]) {
int opt;
bool output_state;
lattice_t lat;
uint16_t L;
uint32_t min_runs;
uint64_t N;
double T, H, eps;
L = 128;
N = 1000;
lat = SQUARE_LATTICE;
T = 2.3;
H = 0;
eps = 1e30;
output_state = false;
min_runs = 10;
while ((opt = getopt(argc, argv, "N:L:T:H:m:e:o")) != -1) {
switch (opt) {
case 'N':
N = (uint64_t)atof(optarg);
break;
case 'L':
L = atoi(optarg);
break;
case 'T':
T = atof(optarg);
break;
case 'H':
H = atof(optarg);
break;
case 'm':
min_runs = atoi(optarg);
break;
case 'e':
eps= atof(optarg);
break;
case 'o':
output_state = true;
break;
default:
exit(EXIT_FAILURE);
}
}
gsl_rng *r = gsl_rng_alloc(gsl_rng_mt19937);
gsl_rng_set(r, jst_rand_seed());
graph_t *h = graph_create(lat, TORUS_BOUND, L, false);
ising_state_t *s = (ising_state_t *)calloc(1, sizeof(ising_state_t));
s->g = graph_add_ext(h);
s->spins = (bool *)calloc(h->nv + 1, sizeof(bool));
s->M = -h->nv;
s->H = -(1.0 * h->ne) - H * h->nv;
double *bond_probs = get_bond_probs(T, H, s);
double diff = 1e31;
uint64_t n_runs = 0;
double E1, E2, dE1, M1, M2, dM1, C, dC, X, dX, Mmu2, Mmu4, Emu2, Emu4;
double clust_per_sweep = 0;
E1 = 0; E2 = 0; M1 = 0; M2 = 0; C = 0; dC = 0; X = 0; dX = 0;
dE1 = 0; dM1 = 0; Mmu2 = 0; Mmu4 = 0; Emu2 = 0; Emu4 = 0;
printf("\n");
while (diff > eps || diff == 0. || n_runs < min_runs) {
printf("\033[F\033[JWOLFF: sweep %llu, dH/H = %.4f, dM/M = %.4f, dC/C = %.4f, dX/X = %.4f, cps: %.1f\n", n_runs, fabs(dE1 / E1), dM1 / M1, dC / C, dX / X, clust_per_sweep);
uint32_t n_flips = 0;
uint32_t n_clust = 0;
while (n_flips / h->nv < N) {
n_flips += abs(wolff_step(T, H, s, r, bond_probs));
n_clust++;
}
int32_t MM;
if (s->spins[h->nv]) {
MM = s->M;
} else {
MM = -s->M;
}
E1 = E1 * (n_runs / (n_runs + 1.)) + s->H * 1. / (n_runs + 1.);
M1 = M1 * (n_runs / (n_runs + 1.)) + MM * 1. / (n_runs + 1.);
E2 = E2 * (n_runs / (n_runs + 1.)) + pow(s->H, 2) * 1. / (n_runs + 1.);
M2 = M2 * (n_runs / (n_runs + 1.)) + pow(MM, 2) * 1. / (n_runs + 1.);
Mmu2 = Mmu2 * (n_runs / (n_runs + 1.)) + pow(MM - M1, 2) * 1. / (n_runs + 1.);
Mmu4 = Mmu4 * (n_runs / (n_runs + 1.)) + pow(MM - M1, 4) * 1. / (n_runs + 1.);
Emu2 = Emu2 * (n_runs / (n_runs + 1.)) + pow(s->H - E1, 2) * 1. / (n_runs + 1.);
Emu4 = Emu4 * (n_runs / (n_runs + 1.)) + pow(s->H - E1, 4) * 1. / (n_runs + 1.);
if (n_runs > 1){
double Msigma2 = n_runs / (n_runs - 1) * (M2 - pow(M1, 2));
X = Msigma2 / T;
dX = sqrt((Mmu4 - (n_runs - 3.) / (n_runs - 1.) * pow(Mmu2, 2)) / n_runs) / T;
double Esigma2 = n_runs / (n_runs - 1) * (E2 - pow(E1, 2));
C = Esigma2 / T;
dC = sqrt((Emu4 - (n_runs - 3.) / (n_runs - 1.) * pow(Emu2, 2)) / n_runs) / T;
dE1 = sqrt(Esigma2 / n_runs);
dM1 = sqrt(Msigma2 / n_runs);
diff = fabs(dX / X);
}
clust_per_sweep = clust_per_sweep * (n_runs / (n_runs + 1.)) + (n_clust * 1. / N) * 1. / (n_runs + 1.);
n_runs++;
}
printf("\033[F\033[JWOLFF: sweep %llu, dH/H = %.4f, dM/M = %.4f, dC/C = %.4f, dX/X = %.4f, cps: %.1f\n", n_runs, fabs(dE1 / E1), dM1 / M1, dC / C, dX / X, clust_per_sweep);
FILE *outfile = fopen("out.dat", "a");
fprintf(outfile, "%u %.15f %.15f %.15f %.15f %.15f %.15f %.15f %.15f %.15f %.15f\n", L, T, H, E1 / h->nv, dE1 / h->nv, M1 / h->nv, dM1 / h->nv, C / h->nv, dC / h->nv, X / h->nv, dX / h->nv);
fclose(outfile);
free(bond_probs);
if (output_state) {
FILE *state_file = fopen("state.dat", "a");
for (uint32_t i = 0; i < h->nv; i++) {
fprintf(state_file, "%d ", s->spins[i]);
}
fprintf(state_file, "\n");
fclose(state_file);
}
gsl_rng_free(r);
graph_free(s->g);
free(s->spins);
free(s);
free(bond_probs);
graph_free(h);
return 0;
}
|