]> git.treefish.org Git - phys/heatbath.git/blob - sim-r.hpp
ae6adc4c3ce03ee2787d857fa2fb481df9c58ad1
[phys/heatbath.git] / sim-r.hpp
1 #ifndef SIM_HPP
2 #define SIM_HPP
3
4 #include <gsl/gsl_rng.h>
5 #include <complex>
6 #include <math.h>
7
8 #include "latlib/neigh.h"
9
10 class sim : public o815::sim {
11 public:
12   struct siteconf {
13     complex<double> phi;
14   };
15   sim(o815 *_O815);
16   siteconf* conf;
17   unsigned int LSIZE2;
18
19 private:
20   void _makeSweep();
21   void _newParas();
22   gsl_rng* rangsl;
23   neigh *nb;
24   void updatePhi (const int& x);
25   double M;
26 };
27
28
29
30 sim::sim(o815 *_O815) : o815::sim( _O815, 
31                                    sizeof(siteconf)*
32                                    (_O815->comargs.lsize[0]*_O815->comargs.lsize[1]) ) {
33   conf = (siteconf*)confMem;
34
35   rangsl = gsl_rng_alloc(gsl_rng_ranlxs0);
36   gsl_rng_set(rangsl, time(NULL));
37
38   LSIZE2 = _O815->comargs.lsize[0] * _O815->comargs.lsize[1];
39
40   nb = new neigh(2, _O815->comargs.lsize[0], _O815->comargs.lsize[1]);
41 }
42
43 void sim::updatePhi (const int& x) 
44 {
45   const double r = gsl_rng_uniform(rangsl);
46   const double theta = gsl_rng_uniform(rangsl) * 2*M_PI;
47   complex<double> V=0;
48
49   for (int nu=0; nu<4; nu++)
50     V += conf[ (*nb)[x*4+nu] ].phi;
51
52   conf[x].phi = sqrt(std::log( 1./(1-r) )) / sqrt(M)
53     * complex<double>( cos(theta), sin(theta) )
54     + V / M;
55 }
56
57 void sim::_makeSweep() {  
58   for (int ichecker=0; ichecker<2; ichecker++)
59     for (int it=0; it<O815->comargs.lsize[0]; it++)
60       for (int iy=(it+ichecker)%2; iy<O815->comargs.lsize[1]; iy+=2)
61         updatePhi( it*O815->comargs.lsize[1] + iy );
62 }
63
64 void sim::_newParas() {
65   M = pow( (*O815->paraQ)["mass"], 2 ) + 4;
66   *log << "SIM: Resetting fields." << endl << flush;
67   memset(conf, 0, sizeof(siteconf)*LSIZE2);
68 }
69
70 #endif