211{
212 MsgStream log(
msgSvc(), name());
213 log<<MSG::INFO<<"DedxCalibEAng::WriteHists()"<<endreq;
214
220
221 double Norm(0), trunc_Norm(0);
224 {
225 Ip_eangle[ip] = ip;
227
228 entryNo[ip]= m_eangle[ip]->Integral();
229 trunc_mean[ip] = m_trunc_eangle[ip]->GetMean();
230 trunc_sigma[ip] = m_trunc_eangle[ip]->GetRMS();
231 pos_entryNo[ip]= m_pos_eangle[ip]->Integral();
232 pos_mean[ip] = m_pos_eangle[ip]->GetMean();
233 pos_sigma[ip] = m_pos_eangle[ip]->GetRMS();
234 neg_entryNo[ip]= m_neg_eangle[ip]->Integral();
235 neg_mean[ip] = m_neg_eangle[ip]->GetMean();
236 neg_sigma[ip] = m_neg_eangle[ip]->GetRMS();
237 if(entryNo[ip]<10 || pos_entryNo[ip]<10 || neg_entryNo[ip]<10) continue;
238
240 {
241 fitmean[ip] = m_eangle[ip]->GetFunction("mylan")->GetParameter(1);
242 fitmeanerr[ip] = m_eangle[ip]->GetFunction("mylan")->GetParError(1);
243 fitsigma[ip] = m_eangle[ip]->GetFunction("mylan")->GetParameter(2);
244 chisq[ip] = (m_eangle[ip]->GetFunction("mylan")-> GetChisquare())/(m_eangle[ip]->GetFunction("mylan")-> GetNDF());
245
246 pos_fitmean[ip] = m_pos_eangle[ip]->GetFunction("mylan")->GetParameter(1);
247 pos_fitmeanerr[ip] = m_pos_eangle[ip]->GetFunction("mylan")->GetParError(1);
248 pos_fitsigma[ip] = m_pos_eangle[ip]->GetFunction("mylan")->GetParameter(2);
249 pos_chisq[ip] = (m_pos_eangle[ip]->GetFunction("mylan")-> GetChisquare())/(m_pos_eangle[ip]->GetFunction("mylan")-> GetNDF());
250
251 neg_fitmean[ip] = m_neg_eangle[ip]->GetFunction("mylan")->GetParameter(1);
252 neg_fitmeanerr[ip] = m_neg_eangle[ip]->GetFunction("mylan")->GetParError(1);
253 neg_fitsigma[ip] = m_neg_eangle[ip]->GetFunction("mylan")->GetParameter(2);
254 neg_chisq[ip] = (m_neg_eangle[ip]->GetFunction("mylan")-> GetChisquare())/(m_neg_eangle[ip]->GetFunction("mylan")-> GetNDF());
255 }
257 {
258 fitmean[ip] = m_eangle[ip]->GetFunction("landaun")->GetParameter(1);
259 fitmeanerr[ip] = m_eangle[ip]->GetFunction("landaun")->GetParError(1);
260 fitsigma[ip] = m_eangle[ip]->GetFunction("landaun")->GetParameter(2);
261 chisq[ip] = (m_eangle[ip]->GetFunction("landaun")-> GetChisquare())/(m_eangle[ip]->GetFunction("mylan")-> GetNDF());
262
263 pos_fitmean[ip] = m_pos_eangle[ip]->GetFunction("landaun")->GetParameter(1);
264 pos_fitmeanerr[ip] = m_pos_eangle[ip]->GetFunction("landaun")->GetParError(1);
265 pos_fitsigma[ip] = m_pos_eangle[ip]->GetFunction("landaun")->GetParameter(2);
266 pos_chisq[ip] = (m_pos_eangle[ip]->GetFunction("landaun")-> GetChisquare())/(m_pos_eangle[ip]->GetFunction("landaun")-> GetNDF());
267
268 neg_fitmean[ip] = m_neg_eangle[ip]->GetFunction("landaun")->GetParameter(1);
269 neg_fitmeanerr[ip] = m_neg_eangle[ip]->GetFunction("landaun")->GetParError(1);
270 neg_fitsigma[ip] = m_neg_eangle[ip]->GetFunction("landaun")->GetParameter(2);
271 neg_chisq[ip] = (m_neg_eangle[ip]->GetFunction("landaun")-> GetChisquare())/(m_neg_eangle[ip]->GetFunction("landaun")-> GetNDF());
272 }
274 {
275 fitmean[ip] = m_eangle[ip]->GetFunction("Landau")->GetParameter(1);
276 fitmeanerr[ip] = m_eangle[ip]->GetFunction("Landau")->GetParError(1);
277 fitsigma[ip] = m_eangle[ip]->GetFunction("Landau")->GetParameter(2);
278 chisq[ip] = (m_eangle[ip]->GetFunction("Landau")-> GetChisquare())/(m_eangle[ip]->GetFunction("Landau")-> GetNDF());
279
280 pos_fitmean[ip] = m_pos_eangle[ip]->GetFunction("Landau")->GetParameter(1);
281 pos_fitmeanerr[ip] = m_pos_eangle[ip]->GetFunction("Landau")->GetParError(1);
282 pos_fitsigma[ip] = m_pos_eangle[ip]->GetFunction("Landau")->GetParameter(2);
283 pos_chisq[ip] = (m_pos_eangle[ip]->GetFunction("Landau")-> GetChisquare())/(m_pos_eangle[ip]->GetFunction("Landau")-> GetNDF());
284
285 neg_fitmean[ip] = m_neg_eangle[ip]->GetFunction("Landau")->GetParameter(1);
286 neg_fitmeanerr[ip] = m_neg_eangle[ip]->GetFunction("Landau")->GetParError(1);
287 neg_fitsigma[ip] = m_neg_eangle[ip]->GetFunction("Landau")->GetParameter(2);
288 neg_chisq[ip] = (m_neg_eangle[ip]->GetFunction("Landau")-> GetChisquare())/(m_neg_eangle[ip]->GetFunction("Landau")-> GetNDF());
289 }
291 {
292 fitmean[ip] = m_eangle[ip]->GetFunction("Vavilov")->GetParameter(1);
293 fitmeanerr[ip] = m_eangle[ip]->GetFunction("Vavilov")->GetParError(1);
294 fitsigma[ip] = m_eangle[ip]->GetFunction("Vavilov")->GetParameter(2);
295 chisq[ip] = (m_eangle[ip]->GetFunction("Vavilov")-> GetChisquare())/(m_eangle[ip]->GetFunction("Vavilov")-> GetNDF());
296
297 pos_fitmean[ip] = m_pos_eangle[ip]->GetFunction("Vavilov")->GetParameter(1);
298 pos_fitmeanerr[ip] = m_pos_eangle[ip]->GetFunction("Vavilov")->GetParError(1);
299 pos_fitsigma[ip] = m_pos_eangle[ip]->GetFunction("Vavilov")->GetParameter(2);
300 pos_chisq[ip] = (m_pos_eangle[ip]->GetFunction("Vavilov")-> GetChisquare())/(m_pos_eangle[ip]->GetFunction("Vavilov")-> GetNDF());
301
302 neg_fitmean[ip] = m_neg_eangle[ip]->GetFunction("Vavilov")->GetParameter(1);
303 neg_fitmeanerr[ip] = m_neg_eangle[ip]->GetFunction("Vavilov")->GetParError(1);
304 neg_fitsigma[ip] = m_neg_eangle[ip]->GetFunction("Vavilov")->GetParameter(2);
305 neg_chisq[ip] = (m_neg_eangle[ip]->GetFunction("Vavilov")-> GetChisquare())/(m_neg_eangle[ip]->GetFunction("Vavilov")-> GetNDF());
306 }
308 {
309 fitmean[ip] = m_eangle[ip]->GetFunction("AsymGauss")->GetParameter(1);
310 fitmeanerr[ip] = m_eangle[ip]->GetFunction("AsymGauss")->GetParError(1);
311 fitsigma[ip] = m_eangle[ip]->GetFunction("AsymGauss")->GetParameter(2);
312 chisq[ip] = (m_eangle[ip]->GetFunction("AsymGauss")-> GetChisquare())/(m_eangle[ip]->GetFunction("AsymGauss")-> GetNDF());
313
314 pos_fitmean[ip] = m_pos_eangle[ip]->GetFunction("AsymGauss")->GetParameter(1);
315 pos_fitmeanerr[ip] = m_pos_eangle[ip]->GetFunction("AsymGauss")->GetParError(1);
316 pos_fitsigma[ip] = m_pos_eangle[ip]->GetFunction("AsymGauss")->GetParameter(2);
317 pos_chisq[ip] = (m_pos_eangle[ip]->GetFunction("AsymGauss")-> GetChisquare())/(m_pos_eangle[ip]->GetFunction("AsymGauss")-> GetNDF());
318
319 neg_fitmean[ip] = m_neg_eangle[ip]->GetFunction("AsymGauss")->GetParameter(1);
320 neg_fitmeanerr[ip] = m_neg_eangle[ip]->GetFunction("AsymGauss")->GetParError(1);
321 neg_fitsigma[ip] = m_neg_eangle[ip]->GetFunction("AsymGauss")->GetParameter(2);
322 neg_chisq[ip] = (m_neg_eangle[ip]->GetFunction("AsymGauss")-> GetChisquare())/(m_neg_eangle[ip]->GetFunction("AsymGauss")-> GetNDF());
323 }
324 if(entryNo[ip]>1500 && fitmean[ip]>0 && fitmeanerr[ip]>0 && fitmeanerr[ip]<10 && fitsigma[ip]>0 && fitsigma[ip]<200){
325 Norm += fitmean[ip];
326 trunc_Norm += trunc_mean[ip];
328 }
329 }
331 trunc_Norm = trunc_Norm/
count;
332
333 cout<<
"count= "<<
count<<
" average value: "<< Norm <<
" truncted: " << trunc_Norm << endl;
335 {
336 if(entryNo[i]>10 && fitmean[i]>0 && fitsigma[i]>0) gain[i]=fitmean[i]/Norm;
337 else gain[i] = 1;
338 if(entryNo[i]>10) trunc_gain[i]=trunc_mean[i]/trunc_Norm;
339 else trunc_mean[i] = 1;
340 if(pos_entryNo[i]>10 && pos_fitmean[i]>0 && pos_fitsigma[i]>0) pos_gain[i]=pos_fitmean[i]/Norm;
341 else pos_gain[i] = 1;
342 if(neg_entryNo[i]>10 && neg_fitmean[i]>0 && neg_fitsigma[i]>0) neg_gain[i]=neg_fitmean[i]/Norm;
343 else neg_gain[i] = 1;
344 if(gain[i] != 1){
345 m_EAngAverdE -> SetBinContent(i+1, gain[i]);
346 m_EAngAverdE->SetBinError(i+1, fitmeanerr[i]/Norm);
347 }
348 if(trunc_gain[i] != 1){
349 m_trunc_EAngAverdE -> SetBinContent(i+1, trunc_gain[i]);
350 m_trunc_EAngAverdE->SetBinError(i+1, trunc_sigma[i]/trunc_Norm);
351 }
352 if(pos_gain[i] != 1){
353 m_pos_EAngAverdE -> SetBinContent(i+1, pos_gain[i]);
354 m_pos_EAngAverdE->SetBinError(i+1, pos_fitmeanerr[i]/Norm);
355 }
356 if(neg_gain[i] != 1){
357 m_neg_EAngAverdE -> SetBinContent(i+1, neg_gain[i]);
358 m_neg_EAngAverdE->SetBinError(i+1, neg_fitmeanerr[i]/Norm);
359 }
360 }
361
362 log<<MSG::INFO<<"begin getting calibration constant!!! "<<endreq;
364 int denangle_entry[1] = {100};
365 m_EAngAverdE->Fit("pol1","r","",-0.25,0.25);
366 double par0 = m_EAngAverdE->GetFunction("pol1")->GetParameter(0);
367 double par1 = m_EAngAverdE->GetFunction("pol1")->GetParameter(1);
368
369
370
371 for(
int i=0;i<
NumSlices;i++) denangle[i] = gain[i];
372
373 log<<MSG::INFO<<"begin generating root file!!! "<<endreq;
374 TFile*
f =
new TFile(
m_rootfile.c_str(),
"recreate");
376 m_eangle[ip]->Write();
377 m_trunc_eangle[ip]->Write();
378 m_pos_eangle[ip]->Write();
379 m_neg_eangle[ip]->Write();
380 }
381 m_EAngAverdE->Write();
382 m_trunc_EAngAverdE->Write();
383 m_pos_EAngAverdE->Write();
384 m_neg_EAngAverdE->Write();
385
386 TTree* entracalib = new TTree("entracalib","entracalib");
387 entracalib->Branch("1denangle", denangle, "denangle[100]/D");
388 entracalib->Branch("1denangle_entry", denangle_entry, "denangle_entry[1]/I");
389 entracalib->Fill();
390 entracalib->
Write();
391
392 TTree* ddgcalib = new TTree("ddgcalib", "ddgcalib");
393 ddgcalib ->
Branch(
"hits", entryNo,
"entryNo[100]/D");
394 ddgcalib ->
Branch(
"truncmean", trunc_mean,
"trunc_mean[100]/D");
395 ddgcalib ->
Branch(
"truncsigma", trunc_sigma,
"trunc_sigma[100]/D");
396 ddgcalib ->
Branch(
"fitmean", fitmean,
"fitmean[100]/D");
397 ddgcalib ->
Branch(
"fitmeanerr", fitmeanerr,
"fitmeanerr[100]/D");
398 ddgcalib ->
Branch(
"chi", fitsigma,
"fitsigma[100]/D");
399 ddgcalib ->
Branch(
"gain", gain,
"gain[100]/D");
400 ddgcalib ->
Branch(
"truncgain", trunc_gain,
"trunc_gain[100]/D");
401 ddgcalib ->
Branch(
"chisq", chisq,
"chisq[100]/D");
402 ddgcalib ->
Branch(
"pos_hits", pos_entryNo,
"pos_entryNo[100]/D");
403 ddgcalib ->
Branch(
"pos_mean", pos_mean,
"pos_mean[100]/D");
404 ddgcalib ->
Branch(
"pos_sigma", pos_sigma,
"pos_sigma[100]/D");
405 ddgcalib ->
Branch(
"pos_fitmean", pos_fitmean,
"pos_fitmean[100]/D");
406 ddgcalib ->
Branch(
"pos_fitmeanerr", pos_fitmeanerr,
"pos_fitmeanerr[100]/D");
407 ddgcalib ->
Branch(
"pos_chi", pos_fitsigma,
"pos_fitsigma[100]/D");
408 ddgcalib ->
Branch(
"pos_gain", pos_gain,
"pos_gain[100]/D");
409 ddgcalib ->
Branch(
"pos_chisq", pos_chisq,
"pos_chisq[100]/D");
410 ddgcalib ->
Branch(
"neg_hits", neg_entryNo,
"neg_entryNo[100]/D");
411 ddgcalib ->
Branch(
"neg_mean", neg_mean,
"neg_mean[100]/D");
412 ddgcalib ->
Branch(
"neg_sigma", neg_sigma,
"neg_sigma[100]/D");
413 ddgcalib ->
Branch(
"neg_fitmean", neg_fitmean,
"neg_fitmean[100]/D");
414 ddgcalib ->
Branch(
"neg_fitmeanerr", neg_fitmeanerr,
"neg_fitmeanerr[100]/D");
415 ddgcalib ->
Branch(
"neg_chi", neg_fitsigma,
"neg_fitsigma[100]/D");
416 ddgcalib ->
Branch(
"neg_gain", neg_gain,
"neg_gain[100]/D");
417 ddgcalib ->
Branch(
"neg_chisq", neg_chisq,
"neg_chisq[100]/D");
418 ddgcalib ->
Branch(
"Ip_eangle", Ip_eangle,
"Ip_eangle[100]/D");
419 ddgcalib ->
Branch(
"eangle", eangle,
"eangle[100]/D");
423
424 TCanvas c1("c1", "canvas", 500, 400);
426 m_EAngAverdE->Draw();
428 m_trunc_EAngAverdE->Draw();
430 m_pos_EAngAverdE->Draw();
432 m_neg_EAngAverdE->Draw();
435 {
436 m_eangle[ip]->Draw();
438 }
440 {
441 m_trunc_eangle[ip]->Draw();
443 }
445 {
446 m_pos_eangle[ip]->Draw();
448 }
450 {
451 m_neg_eangle[ip]->Draw();
453 }
455
457 {
458 delete m_eangle[ip];
459 delete m_trunc_eangle[ip];
460 delete m_pos_eangle[ip];
461 delete m_neg_eangle[ip];
462 }
463 delete m_EAngAverdE;
464 delete m_trunc_EAngAverdE;
465 delete m_pos_EAngAverdE;
466 delete m_neg_EAngAverdE;
467
468}
curve Branch("CurveSize",&CurveSize,"CurveSize/I")
DOUBLE_PRECISION count[3]