31{
34
36 int numberOfEvents;
38 JGauss precision;
40
41 try {
42
43 JParser<> zap(
"Program to test ROOT fit.");
44
47 zap[
'@'] =
make_field(gauss) = JGauss(0.0, 1.0, 1000.0, 100.0);
48 zap[
'e'] =
make_field(precision) = JGauss(0.05, 0.05, 25.0, 25.0);
50
51 zap(argc, argv);
52 }
53 catch(const exception& error) {
54 FATAL(error.what() << endl);
55 }
56
57
58 ASSERT(numberOfEvents > 0);
59
60 TF1 fs("fs", "exp(-0.5 * (x-[0])*(x-[0]) / ([1]*[1]))");
61 TF1 fb("fb", "1.0");
62
63 fs.FixParameter(0,
gauss.mean);
64 fs.FixParameter(1,
gauss.sigma);
65
66 const Int_t nx = 21;
67 const Double_t
xmin = -5.0;
68 const Double_t
xmax = +5.0;
69
74
75 TH1D H[] = { TH1D("ha", "", 101, -0.1, +0.1),
76 TH1D("hb", "", 101, -0.1, +0.1),
77 TH1D("hc", "", 101, -100.0, +100.0),
78 TH1D("hd", "", 101, -100.0, +100.0) };
79
81
82 for (int i = 0; i != numberOfEvents; ++i) {
83
84 STATUS(
"event: " << setw(10) << i <<
'\r');
DEBUG(endl);
85
86 TH1D h0("h0", NULL, nx, xmin, xmax);
87
88 h0.Sumw2();
89
90 h0.FillRandom(
"fs", (Int_t)
gauss.signal);
91 h0.FillRandom(
"fb", (Int_t)
gauss.background);
92
93 TF1
f1(
"f1",
"[2]*exp(-0.5 * (x-[0])*(x-[0]) / ([1]*[1])) / (TMath::Sqrt(2.0*TMath::Pi())*[1]) + [3]");
94
95 f1.SetParameter(0, h0.GetMean());
96 f1.SetParameter(1, h0.GetRMS());
97 f1.SetParameter(2, h0.GetEntries() - h0.GetMinimum() * h0.GetNbinsX());
98 f1.SetParameter(3, h0.GetMinimum());
99
100 f1.SetParError(0, 1.0e-3);
101 f1.SetParError(1, 1.0e-3);
102 f1.SetParError(2, 0.5);
103 f1.SetParError(3, 0.5);
104
105 string option = "NWL";
106
107 if (
debug < debug_t && option.find(
'Q') == string::npos) {
108 option += "Q";
109 }
110
112
113 h0.Fit(&f1, option.c_str());
114
116
117 const double Y[] = {
f1.GetParameter(0) -
gauss.mean,
118 f1.GetParameter(1) -
gauss.sigma,
120 f1.GetParameter(3) * nx -
gauss.background };
121
122 for (int i = 0; i != sizeof(Q)/sizeof(Q[0]); ++i) {
124 H[i].Fill(Y[i]);
125 }
126 }
127
128 for (int i = 0; i != sizeof(Q)/sizeof(Q[0]); ++i) {
130 }
131
132 if (
debug >= notice_t) {
133 timer.
print(cout,
true, micro_t);
134 }
135
137
139
140 for (int i = 0; i != sizeof(H)/sizeof(H[0]); ++i) {
141 out << H[i];
142 }
143
144 out.Write();
145 out.Close();
146 }
147
148 for (int i = 0; i != sizeof(Q)/sizeof(Q[0]); ++i) {
150 }
151
152 ASSERT(Q[0].getSTDev() < precision.mean);
153 ASSERT(Q[1].getSTDev() < precision.sigma);
154 ASSERT(Q[2].getSTDev() < precision.signal);
155 ASSERT(Q[3].getSTDev() < precision.background);
156
157 return 0;
158}
double getMean(vector< double > &v)
get mean of vector content
std::ostream & longprint(std::ostream &out)
Set long printing.
std::ostream & shortprint(std::ostream &out)
Set short printing.
#define DEBUG(A)
Message macros.
#define ASSERT(A,...)
Assert macro.
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object
Auxiliary class for CPU timing and usage.
void print(std::ostream &out, const JScale_t scale=milli_t) const
Print timer data.
Utility class to parse command line options.
const JPolynome f1(1.0, 2.0, 3.0)
Function.
double gauss(const double x, const double sigma)
Gauss function (normalised to 1 at x = 0).
This name space includes all other name spaces (except KM3NETDAQ, KM3NET and ANTARES).