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