32 double u = (x-mu)/sig;
33 double A1 = TMath::Power(p1/TMath::Abs(a1),p1)*TMath::Exp(-a1*a1/2);
34 double A2 = TMath::Power(p2/TMath::Abs(a2),p2)*TMath::Exp(-a2*a2/2);
35 double B1 = p1/TMath::Abs(a1) - TMath::Abs(a1);
36 double B2 = p2/TMath::Abs(a2) - TMath::Abs(a2);
39 if (u<-a1) result *= A1*TMath::Power(B1-u,-p1);
40 else if (u<a2) result *= TMath::Exp(-u*u/2);
41 else result *= A2*TMath::Power(B2+u,-p2);
51 int NSubPeaks = (int)pp[0];
52 double BgFrom = pp[1];
54 double BgdOff = pp[3];
55 double BgdSlope = pp[4];
59 if(x<BgFrom || x>BgTo)
return 0.;
62 double BGd = BgdSlope*(x-BgFrom) + BgdOff;
67 for(
int i=0 ; i<NSubPeaks ; i++)
69 double Ampli = pp[5+i*6+0];
70 double Mean = pp[5+i*6+1];
71 double Sigma = pp[5+i*6+2]*1./sqrt(8.*log(2.));;
72 double Lambda = pp[5+i*6+3];
73 double Rho = pp[5+i*6+4];
74 double S = pp[5+i*6+5];
78 double U = (x-Mean)/Sigma;
79 double f_g = Ampli*TMath::Exp(-U*U*0.5);
80 double f_lambda = Ampli*TMath::Exp(-0.5*Lambda*(2.*U-Lambda));
81 double f_rho = Ampli*TMath::Exp(-0.5*Rho*(2.*U-Rho));
82 double f_S = Ampli*S*1./((1+TMath::Exp(U))*(1+TMath::Exp(U)));
84 if(U<Lambda) f_tot += f_lambda;
85 else if(U>Rho) f_tot += f_rho;
100 double mean = par[1];
101 double sigma = par[2];
103 double f = N*exp(-0.5*((x-mean)/sigma)*((x-mean)/sigma));
double fnc_dscb(double *xx, double *pp)
*/
double Gaus(double *xx, double *par)
******************************************************************************************/// ...
double DinoFct(double *xx, double *pp)
******************************************************************************************/// ...
TF1 * GetDinoFct(TString Name, double min, double max, int Npar)
******************************************************************************************/// ...