Added r+ algorithm.

diff --git a/.gitignore b/.gitignore
index 9b2b6d79d0e4a27bab67a0b6f11131a16cf825aa..f851604ee9bcceadfac1108965f35547869ef2bf 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -10,3 +10,4 @@ heatbath-r
 heatbath-1mr+
 heatbath-1mr-
 heatbath-r-
 heatbath-1mr+
 heatbath-1mr-
 heatbath-r-

+heatbath-r+

diff --git a/CMakeLists.txt b/CMakeLists.txt
index 3e554d45ff163e52c2ec8b8beee5c4e7d6af6d2e..8a8d5372b2e7085025b1364a80db576f8970404e 100644 (file)
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -34,3 +34,7 @@ target_link_libraries(heatbath-1mr- o815 gsl gslcblas lat_neigh)
 add_executable(heatbath-r- heatbath.cpp)
 set_target_properties(heatbath-r- PROPERTIES COMPILE_DEFINITIONS "ALGORITHM_RMINUS")
 target_link_libraries(heatbath-r- o815 gsl gslcblas lat_neigh)
 add_executable(heatbath-r- heatbath.cpp)
 set_target_properties(heatbath-r- PROPERTIES COMPILE_DEFINITIONS "ALGORITHM_RMINUS")
 target_link_libraries(heatbath-r- o815 gsl gslcblas lat_neigh)

+
+add_executable(heatbath-r+ heatbath.cpp)
+set_target_properties(heatbath-r+ PROPERTIES COMPILE_DEFINITIONS "ALGORITHM_RPLUS")
+target_link_libraries(heatbath-r+ o815 gsl gslcblas lat_neigh)

diff --git a/heatbath.cpp b/heatbath.cpp
index 0c1348dbefc1b082b0d19209cfd17cb3ee06b38c..6491da953ec8a85a8ded08c7a3c0455b8fe0e52f 100644 (file)
--- a/heatbath.cpp
+++ b/heatbath.cpp
@@ -20,6 +20,9 @@
 #elif ALGORITHM_RMINUS
 #define ALGORITHM "r-"
 #include "sim-r-.hpp"
 #elif ALGORITHM_RMINUS
 #define ALGORITHM "r-"
 #include "sim-r-.hpp"

+#elif ALGORITHM_RPLUS
+#define ALGORITHM "r+"
+#include "sim-r+.hpp"

 #else
 #error NO UPDATE-ALGORITHM DEFINED!
 #endif
 #else
 #error NO UPDATE-ALGORITHM DEFINED!
 #endif

diff --git a/sim-r+.hpp b/sim-r+.hpp
new file mode 100644 (file)
index 0000000..87f719c
--- /dev/null
+++ b/sim-r+.hpp
@@ -0,0 +1,78 @@
+#ifndef SIM_HPP
+#define SIM_HPP
+
+#include <gsl/gsl_rng.h>
+#include <complex>
+#include <math.h>
+
+#include "latlib/neigh.h"
+
+class sim : public o815::sim {
+public:
+  struct siteconf {
+    complex<double> phi;
+  };
+  sim(o815 *_O815);
+  siteconf* conf;
+  unsigned int LSIZE2;
+  double M;
+  double m;
+  neigh *nb;
+
+private:
+  void _makeSweep();
+  void _newParas();
+  gsl_rng* rangsl;
+  void updatePhi (const int& x);
+};
+
+
+
+sim::sim(o815 *_O815) : o815::sim( _O815, 
+                                  sizeof(siteconf)*
+                                  (_O815->comargs.lsize[0]*_O815->comargs.lsize[1]) ) {
+  conf = (siteconf*)confMem;
+
+  rangsl = gsl_rng_alloc(gsl_rng_ranlxs0);
+  gsl_rng_set(rangsl, time(NULL));
+
+  LSIZE2 = _O815->comargs.lsize[0] * _O815->comargs.lsize[1];
+
+  nb = new neigh(2, _O815->comargs.lsize[0], _O815->comargs.lsize[1]);
+}
+
+void sim::updatePhi (const int& x) 
+{
+  const double r = gsl_rng_uniform(rangsl);
+  complex<double> V=0;
+
+  for (int nu=0; nu<4; nu++)
+    V += conf[ (*nb)[x*4+nu] ].phi;
+
+  const double V2diff = pow(real(V), 2) - pow(imag(V), 2);
+  const double Vprod = real(V)*imag(V);
+  conf[x].phi = complex<double> ( + real(conf[x].phi) * V2diff + 2 * imag(conf[x].phi) * Vprod,
+                                 - imag(conf[x].phi) * V2diff + 2 * real(conf[x].phi) * Vprod ) / norm(V);
+
+  conf[x].phi = sqrt(std::log( 1./(1-r) )) / sqrt(M)
+    * polar(1.0, gsl_rng_uniform(rangsl) * 2*M_PI)
+    + V / M;
+}
+
+void sim::_makeSweep() {  
+  for (int ichecker=0; ichecker<2; ichecker++)
+    for (int it=0; it<O815->comargs.lsize[0]; it++)
+      for (int iy=(it+ichecker)%2; iy<O815->comargs.lsize[1]; iy+=2)
+       updatePhi( it*O815->comargs.lsize[1] + iy );
+}
+
+void sim::_newParas() {
+  m = (*O815->paraQ)["mass"];
+  M = pow( (*O815->paraQ)["mass"], 2 ) + 4;
+  *log << "SIM: Resetting fields." << endl << flush;
+
+  for (int ix=0; ix<LSIZE2; ix++)
+    conf[ix].phi = 1;
+}
+
+#endif