sim-nor.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 #define EPSILONPHI 0.5
  11
  12 class sim : public o815::sim {
  13 public:
  14   struct siteconf {
  15     complex<double> phi;
  16   };
  17   sim(o815 *_O815);
  18   siteconf* conf;
  19   unsigned int LSIZE2;
  20
  21 private:
  22   void _makeSweep();
  23   void _newParas();
  24
  25   gsl_rng* rangsl;
  26
  27   neigh *nb;
  28
  29   int updatePhi (const int& x);
  30
  31   double M;
  32
  33   double SofPhi(const int& x, const complex<double>& phix);
  34   double rhoPhi(const int& x, const complex<double>& phixCandidate);
  35 };
  36
  37
  38
  39 sim::sim(o815 *_O815) : o815::sim( _O815,
  40                                    sizeof(siteconf)*
  41                                    (_O815->comargs.lsize[0]*_O815->comargs.lsize[1]) ) {
  42   conf = (siteconf*)confMem;
  43
  44   rangsl = gsl_rng_alloc(gsl_rng_ranlxs0);
  45   gsl_rng_set(rangsl, time(NULL));
  46
  47   LSIZE2 = _O815->comargs.lsize[0] * _O815->comargs.lsize[1];
  48
  49   nb = new neigh(2, _O815->comargs.lsize[0], _O815->comargs.lsize[1]);
  50 }
  51
  52 void sim::_makeSweep() {
  53   for (int ix = 0; ix < LSIZE2; ix++)
  54     updatePhi(ix);
  55 }
  56
  57 void sim::_newParas() {
  58   M = pow( (*O815->paraQ)["mass"], 2 ) + 4;
  59   *log << "SIM: Resetting fields." << endl << flush;
  60   memset(conf, 0, sizeof(siteconf)*LSIZE2);
  61 }
  62
  63 int sim::updatePhi(const int& x) {
  64   complex<double> phixCandidate = conf[x].phi +
  65     complex<double> ( 2*EPSILONPHI*( 0.5 - gsl_rng_uniform(rangsl) ),
  66                       2*EPSILONPHI*( 0.5 - gsl_rng_uniform(rangsl) ) );
  67
  68   if ( gsl_rng_uniform(rangsl) < rhoPhi(x, phixCandidate) ) {
  69     conf[x].phi = phixCandidate;
  70     return 1;
  71   }
  72
  73   return 0;
  74 }
  75
  76 double sim::rhoPhi(const int& x, const complex<double>& phixCandidate) {
  77   return exp( SofPhi(x, conf[x].phi) - SofPhi(x, phixCandidate) );
  78 }
  79
  80 double sim::SofPhi(const int& x, const complex<double>& phix) {
  81   double sofphi = M * norm(phix);
  82
  83   for (int nu=0; nu<4; nu++)
  84     sofphi -= 2 * real( conj(phix) * conf[ (*nb)[x*4+nu] ].phi );
  85
  86   return sofphi;
  87 }
  88
  89 #endif