31{
34
37
38 try {
39
40 JParser<> zap(
"Auxiliary program to print (x,y) of the maximum of 2D ROOT objects.");
41
42 zap[
'f'] =
make_field(inputFile,
"<input file>:<object name>");
44
45 zap(argc, argv);
46 }
47 catch(const exception &error) {
48 FATAL(error.what() << endl);
49 }
50
51
52 for (vector<JRootObjectID>::const_iterator input = inputFile.begin(); input != inputFile.end(); ++input) {
53
54 DEBUG(
"Input: " << *input << endl);
55
57
58 if (dir == NULL) {
59 ERROR(
"File: " << input->getFullFilename() <<
" not opened." << endl);
60 continue;
61 }
62
63 const TRegexp regexp(input->getObjectName());
64
65 TIter iter(dir->GetListOfKeys());
66
67 for (TKey* key; (key = (TKey*) iter.Next()) != NULL; ) {
68
69 const TString tag(key->GetName());
70
71 DEBUG(
"Key: " << tag <<
" match = " << tag.Contains(regexp) << endl);
72
73
74
75 if (tag.Contains(regexp) &&
isTObject(key)) {
76
77 TObject*
object = key->ReadObj();
78
81 double zmax = numeric_limits<double>::lowest();
82
83 try {
84
85 TH2& h2 = dynamic_cast<TH2&>(*object);
86
87 for (Int_t ix = 1; ix <= h2.GetXaxis()->GetNbins(); ++ix) {
88 for (Int_t iy = 1; iy <= h2.GetYaxis()->GetNbins(); ++iy) {
89
90 double z = h2.GetBinContent(ix,iy);
91
92 if (z > zmax) {
93 zmax = z;
94 x = h2.GetXaxis()->GetBinCenter(ix);
95 y = h2.GetYaxis()->GetBinCenter(iy);
96 }
97 }
98 }
99 }
100 catch(exception&) {}
101
102 try {
103
104 TProfile2D& h2 = dynamic_cast<TProfile2D&>(*object);
105
106 for (Int_t ix = 1; ix <= h2.GetXaxis()->GetNbins(); ++ix) {
107 for (Int_t iy = 1; iy <= h2.GetYaxis()->GetNbins(); ++iy) {
108
109 double z = h2.GetBinContent(ix,iy);
110
111 if (z > zmax) {
112 zmax = z;
113 x = h2.GetXaxis()->GetBinCenter(ix);
114 y = h2.GetYaxis()->GetBinCenter(iy);
115 }
116 }
117 }
118 }
119 catch(exception&) {}
120
121 try {
122
123 TGraph2D& g2 = dynamic_cast<TGraph2D&>(*object);
124
125 for (Int_t i = 0; i != g2.GetN(); ++i) {
126 if (g2.GetZ()[i] > zmax) {
127 zmax = g2.GetZ()[i];
130 }
131 }
132 }
133 catch(exception&) {}
134
135 if (zmax != numeric_limits<double>::lowest()) {
136 cout << setw(32) << left << key->GetName() << right <<
' ' <<
SCIENTIFIC(15,5) <<
x <<
' ' <<
SCIENTIFIC(15,5) <<
y << endl;
137 }
138 }
139 }
140 }
141}
#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.