portelli/Grid
1
0
Fork 0
mirror of https://github.com/paboyle/Grid.git synced 2025-04-03 18:55:56 +01:00
Code Releases Activity

Merge develop, strengthen force tests

Browse Source
This commit is contained in:
Peter Boyle 2021-04-22 18:54:00 -04:00
parent 824d84473f
commit 3a4f5f2324
2 changed files with 39 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/forces/Test_gpdwf_force.cc
View File

@ -71,8 +71,10 @@ int main (int argc, char ** argv)
RealD mass=0.01; RealD mass=0.01;
RealD M5=1.8; RealD M5=1.8;
const int nu = 3; const int nu = 1;
std::vector<int> twists(Nd,0); twists[nu] = 1; std::vector<int> twists(Nd,0);
twists[nu] = 1;
twists[3] = 1;
GparityDomainWallFermionR::ImplParams params; params.twists = twists; GparityDomainWallFermionR::ImplParams params; params.twists = twists;
GparityDomainWallFermionR Ddwf(U,*FGrid,*FrbGrid,*UGrid,*UrbGrid,mass,M5,params); GparityDomainWallFermionR Ddwf(U,*FGrid,*FrbGrid,*UGrid,*UrbGrid,mass,M5,params);
Ddwf.M (phi,Mphi); Ddwf.M (phi,Mphi);
@ -91,16 +93,28 @@ int main (int argc, char ** argv)
//////////////////////////////////// ////////////////////////////////////
// Modify the gauge field a little // Modify the gauge field a little
//////////////////////////////////// ////////////////////////////////////
RealD dt = 0.0001; RealD dt = 0.01;
LatticeColourMatrix zz(UGrid); zz=Zero();
LatticeColourMatrix mommu(UGrid); LatticeColourMatrix mommu(UGrid);
LatticeColourMatrix forcemu(UGrid); LatticeColourMatrix forcemu(UGrid);
LatticeGaugeField mom(UGrid); LatticeGaugeField mom(UGrid);
LatticeGaugeField Uprime(UGrid); LatticeGaugeField Uprime(UGrid);
const int Lnu=latt_size[nu];
Lattice<iScalar<vInteger> > coor(UGrid);
LatticeCoordinate(coor,nu);
for(int mu=0;mu<Nd;mu++){ for(int mu=0;mu<Nd;mu++){
SU<Nc>::GaussianFundamentalLieAlgebraMatrix(RNG4, mommu); // Traceless antihermitian momentum; gaussian in lie alg // Traceless antihermitian momentum; gaussian in lie alg
SU<Nc>::GaussianFundamentalLieAlgebraMatrix(RNG4, mommu);
if(0){
if(mu==nu){
mommu=where(coor==Lnu-1,mommu,zz);
} else {
mommu=Zero();
}
}
PokeIndex<LorentzIndex>(mom,mommu,mu); PokeIndex<LorentzIndex>(mom,mommu,mu);
@ -125,6 +139,12 @@ int main (int argc, char ** argv)
ComplexD Sprime = innerProduct(MphiPrime ,MphiPrime); ComplexD Sprime = innerProduct(MphiPrime ,MphiPrime);
LatticeComplex lip(FGrid); lip=localInnerProduct(Mphi,Mphi);
LatticeComplex lipp(FGrid); lipp=localInnerProduct(MphiPrime,MphiPrime);
LatticeComplex dip(FGrid); dip = lipp - lip;
std::cout << " dip "<<dip<<std::endl;
////////////////////////////////////////////// //////////////////////////////////////////////
// Use derivative to estimate dS // Use derivative to estimate dS
////////////////////////////////////////////// //////////////////////////////////////////////

24
tests/forces/Test_gpwilson_force.cc
View File

@ -67,7 +67,9 @@ int main (int argc, char ** argv)
const int nu = 1; const int nu = 1;
const int Lnu=latt_size[nu]; const int Lnu=latt_size[nu];
std::vector<int> twists(Nd,0); twists[nu] = 1; std::vector<int> twists(Nd,0);
twists[nu] = 1;
twists[3]=1;
GparityWilsonFermionR::ImplParams params; params.twists = twists; GparityWilsonFermionR::ImplParams params; params.twists = twists;
GparityWilsonFermionR Wil(U,*UGrid,*UrbGrid,mass,params); GparityWilsonFermionR Wil(U,*UGrid,*UrbGrid,mass,params);
Wil.M (phi,Mphi); Wil.M (phi,Mphi);
@ -86,7 +88,7 @@ int main (int argc, char ** argv)
//////////////////////////////////// ////////////////////////////////////
// Modify the gauge field a little // Modify the gauge field a little
//////////////////////////////////// ////////////////////////////////////
RealD dt = 0.1; RealD dt = 0.01;
LatticeColourMatrix mommu(UGrid); LatticeColourMatrix mommu(UGrid);
LatticeColourMatrix zz(UGrid); LatticeColourMatrix zz(UGrid);
@ -101,13 +103,13 @@ int main (int argc, char ** argv)
for(int mu=0;mu<Nd;mu++){ for(int mu=0;mu<Nd;mu++){
// Traceless antihermitian momentum; gaussian in lie alg // Traceless antihermitian momentum; gaussian in lie alg
if(mu==nu){ SU<Nc>::GaussianFundamentalLieAlgebraMatrix(RNG4, mommu);
SU<Nc>::GaussianFundamentalLieAlgebraMatrix(RNG4, mommu); if(0){
mommu=where(coor==Lnu-1,mommu,zz); if(mu==nu){
//mommu=where(coor==0,mommu,zz); mommu=where(coor==Lnu-1,mommu,zz);
// mommu=where(coor==1,mommu,zz); } else {
} else { mommu=Zero();
mommu=Zero(); }
} }
PokeIndex<LorentzIndex>(mom,mommu,mu); PokeIndex<LorentzIndex>(mom,mommu,mu);
@ -143,6 +145,10 @@ int main (int argc, char ** argv)
mommu=Ta(mommu)*2.0; mommu=Ta(mommu)*2.0;
PokeIndex<LorentzIndex>(UdSdU,mommu,mu); PokeIndex<LorentzIndex>(UdSdU,mommu,mu);
} }
LatticeComplex lip(UGrid); lip=localInnerProduct(Mphi,Mphi);
LatticeComplex lipp(UGrid); lipp=localInnerProduct(MphiPrime,MphiPrime);
LatticeComplex dip(UGrid); dip = lipp - lip;
std::cout << " dip "<<dip<<std::endl;
LatticeComplex dS(UGrid); dS = Zero(); LatticeComplex dS(UGrid); dS = Zero();
for(int mu=0;mu<Nd;mu++){ for(int mu=0;mu<Nd;mu++){