LMU/musrfit
5
0
Fork 0
Code Issues 6 Pull Requests Actions Packages Projects Releases 4 Activity

Added a few uncommon options to musrfit - further testing is required

Browse Source
This commit is contained in:
Bastian M. Wojek
2009-09-08 16:01:23 +00:00
parent 855c2f72a3
commit 575856ba8f
4 changed files with 108 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/external/libGapIntegrals/INSTALL vendored
View File

@@ -8,7 +8,7 @@ Installation of the musrfit-plugin "libGapIntegrals.so"
* Download the latest version of the Cuba library ( http://www.feynarts.de/cuba/ )
* Install Cuba using the following inside the extracted directory
./configure
CFLAGS=-fPIC ./configure
make
make install
@@ -24,6 +24,7 @@ Installation of the musrfit-plugin "libGapIntegrals.so"
userFcn libGapIntegrals.so TGapSWave 4 5
userFcn libGapIntegrals.so TGapDWave 4 5
userFcn libGapIntegrals.so TGapAnSWave 4 5 6
#---------------------------------------------------------------------
# this is the end ...

4
src/external/libGapIntegrals/TIntegrator.cpp vendored
View File

@@ -98,7 +98,7 @@ void TAnSWaveGapIntegralCuhre::Integrand(const int *ndim, const double x[],
const int *ncomp, double f[]) // x = {E, phi}, fPar = {T, Delta(T),a}
{
double twokt(2.0*0.08617384436*fPar[0]); // kB in meV/K
double Ec(4.0*(fPar[0]+fPar[1])); // upper limit of energy-integration: cutoff energy
double Ec(4.0*(fPar[0]+(1.0+fPar[2])*fPar[1])); // upper limit of energy-integration: cutoff energy
double phic(TMath::PiOver2()); // upper limit of phi-integration
double deltasq(TMath::Power(fPar[1]*(1.0+fPar[2]*TMath::Cos(4.0*x[1]*phic)),2.0));
f[0] = -phic*Ec/(2.0*twokt*TMath::Power(TMath::CosH(TMath::Sqrt(x[0]*x[0]*Ec*Ec+deltasq)/twokt),2.0));
@@ -142,7 +142,7 @@ void TAnSWaveGapIntegralDivonne::Integrand(const int *ndim, const double x[],
const int *ncomp, double f[]) // x = {E, phi}, fPar = {T, Delta(T),a}
{
double twokt(2.0*0.08617384436*fPar[0]); // kB in meV/K
double Ec(4.0*(fPar[0]+fPar[1])); // upper limit of energy-integration: cutoff energy
double Ec(4.0*(fPar[0]+(1.0+fPar[2])*fPar[1])); // upper limit of energy-integration: cutoff energy
double phic(TMath::PiOver2()); // upper limit of phi-integration
double deltasq(TMath::Power(fPar[1]*(1.0+fPar[2]*TMath::Cos(4.0*x[1]*phic)),2.0));
f[0] = -phic*Ec/(2.0*twokt*TMath::Power(TMath::CosH(TMath::Sqrt(x[0]*x[0]*Ec*Ec+deltasq)/twokt),2.0));