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

some more minor bug fixing leading towards ADDRUN

Browse Source
This commit is contained in:
nemu
2009-03-13 10:26:12 +00:00
parent 3eaa9e433f
commit 9f3fb85928
4 changed files with 28 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/tests/skewedGaussianTest/skewedGaussian.C
View File

@@ -41,20 +41,20 @@ void skewedGaussian()
FILE *fp;
char fln[256];
const Double_t w = 1.0; // weight of the skewed Gaussian
const Double_t B0 = 2500.0; // skewed Gaussian B0 (G)
const Double_t w = 0.8; // weight of the skewed Gaussian
const Double_t B0 = 130.0; // skewed Gaussian B0 (G)
const Double_t sm = 4.5; // skewed Gaussian sigma- (G)
const Double_t sp = 4.5; // skewed Gaussian sigma+ (G)
const Double_t B0ext = 110.0; // external field Gaussian B0 (G)
const Double_t B0ext = 30.0; // external field Gaussian B0 (G)
const Double_t sext = 1.2; // external field Gaussian sigma (G)
sprintf(fln, "skewedGauss-B%0.2lf-sm%0.2lf-sp%0.2lf-w%0.1lf-Bext%0.2lf-sext%0.2lf.dat",
B0, sm, sp, w, B0ext, sext);
const Int_t noOfPoints = 1000;
const Int_t noOfPoints = 2000;
const Double_t res = 10.0*(sp+sm)/(Double_t)noOfPoints;
const Double_t res = 0.1;
fp = fopen(fln, "w");
@@ -65,7 +65,7 @@ void skewedGaussian()
fprintf(fp, "# B, pB\n");
Double_t b, pb;
for (Int_t i=0; i<noOfPoints; i++) {
b = B0-10.0*sm + res * i;
b = res * i;
pb = w*PofB(b, B0, sm, sp) + (1.0-w)*PofBext(b, B0ext, sext);
fprintf(fp, "%lf, %lf\n", b, pb);
}