Logo ROOT   6.30.04
Reference Guide
 All Namespaces Files Pages
Deconvolution_wide_boost.C
Go to the documentation of this file.
1 /// \file
2 /// \ingroup tutorial_spectrum
3 /// \notebook
4 /// Example to illustrate deconvolution function (class TSpectrum).
5 ///
6 /// \macro_image
7 /// \macro_code
8 ///
9 /// \authors Miroslav Morhac, Olivier Couet
10 
11 void Deconvolution_wide_boost() {
12  Int_t i;
13  const Int_t nbins = 256;
14  Double_t xmin = 0;
15  Double_t xmax = nbins;
16  Double_t source[nbins];
17  Double_t response[nbins];
18  gROOT->ForceStyle();
19 
20  TH1F *h = new TH1F("h","Deconvolution",nbins,xmin,xmax);
21  TH1F *d = new TH1F("d","",nbins,xmin,xmax);
22 
23  TString dir = gROOT->GetTutorialDir();
24  TString file = dir+"/spectrum/TSpectrum.root";
25  TFile *f = new TFile(file.Data());
26  h = (TH1F*) f->Get("decon3");
27  h->SetTitle("Deconvolution of closely positioned overlapping peaks using boosted Gold deconvolution method");
28  d = (TH1F*) f->Get("decon_response_wide");
29 
30  for (i = 0; i < nbins; i++) source[i]=h->GetBinContent(i + 1);
31  for (i = 0; i < nbins; i++) response[i]=d->GetBinContent(i + 1);
32 
33  h->SetMaximum(200000);
34  h->Draw("L");
35  TSpectrum *s = new TSpectrum();
36  s->Deconvolution(source,response,256,200,50,1.2);
37 
38  for (i = 0; i < nbins; i++) d->SetBinContent(i + 1,source[i]);
39  d->SetLineColor(kRed);
40  d->Draw("SAME L");
41 }