31{
34
36
39 JRange_t X;
40 bool binwidth;
41 bool reverse;
42 bool normalise;
44
45 try {
46
47 JParser<> zap(
"Auxiliary program to make cumulative ROOT histogram.");
48
49 zap[
'f'] =
make_field(inputFile,
"<input file>:<object name>");
51 zap[
'x'] =
make_field(X,
"accepted x-range values") = JRange_t();
52 zap[
'B'] =
make_field(binwidth,
"multiply by bin width");
53 zap[
'R'] =
make_field(reverse,
"sum right to left instead of left to right");
54 zap[
'N'] =
make_field(normalise,
"normalise histogram contents");
56
57 zap(argc, argv);
58 }
59 catch(const exception &error) {
60 FATAL(error.what() << endl);
61 }
62
63
65
66 for (vector<JRootObjectID>::const_iterator input = inputFile.begin(); input != inputFile.end(); ++input) {
67
68 DEBUG(
"Input: " << *input << endl);
69
71
72 if (dir == NULL) {
73 ERROR(
"File: " << input->getFullFilename() <<
" not opened." << endl);
74 continue;
75 }
76
77 const TRegexp regexp(input->getObjectName());
78
79 TIter iter(dir->GetListOfKeys());
80
81 for (TKey* key; (
key = (TKey*) iter.Next()) != NULL; ) {
82
83 const TString tag(
key->GetName());
84
85 DEBUG(
"Key: " << tag <<
" match = " << tag.Contains(regexp) << endl);
86
87
88
89 if (tag.Contains(regexp) &&
isTObject(key)) {
90
92
93 try {
94
95 TH1& h1 = dynamic_cast<TH1&>(*object);
96
97 double W = 0.0;
98
99 if (!reverse) {
100
101 for (Int_t i = 0; i <= h1.GetXaxis()->GetNbins() + 1; ++i) {
102
103 if (X(h1.GetBinCenter(i))) {
104 W += h1.GetBinContent(i) * (binwidth ? h1.GetBinWidth(i) : 1.0);
105 }
106
107 h1.SetBinContent(i, W);
108
109 if (h1.GetSumw2N()) {
110 h1.SetBinError(i, h1.GetBinError(i) * (binwidth ? h1.GetBinWidth(i) : 1.0));
111 }
112 }
113
114 } else {
115
116 for (Int_t i = h1.GetXaxis()->GetNbins() + 1; i >= 0; --i) {
117
118 if (X(h1.GetBinCenter(i))) {
119 W += h1.GetBinContent(i) * (binwidth ? h1.GetBinWidth(i) : 1.0);
120 }
121
122 h1.SetBinContent(i, W);
123
124 if (h1.GetSumw2N()) {
125 h1.SetBinError(i, h1.GetBinError(i) * (binwidth ? h1.GetBinWidth(i) : 1.0));
126 }
127 }
128 }
129
130 NOTICE(setw(24) << left << h1.GetName() <<
' ' <<
SCIENTIFIC(12,3) << W << endl);
131
132 if (normalise && W != 0.0) {
133 h1.Scale(1.0/W);
134 }
135
136 out.WriteTObject(&h1);
137 }
138 catch(exception&) {}
139 }
140 }
141 }
142
143 out.Write();
144 out.Close();
145}
#define DEBUG(A)
Message macros.
#define make_field(A,...)
macro to convert parameter to JParserTemplateElement object
Utility class to parse command line options.
TDirectory * getDirectory(const JRootObjectID &id)
Get TDirectory pointer.
bool isTObject(const TKey *key)
Check if given key corresponds to a TObject.
This name space includes all other name spaces (except KM3NETDAQ, KM3NET and ANTARES).
Auxiliary data structure for floating point format specification.