//exact the data from "hiso.root" file.
//fill TH2D to get a response matrix.

#include <TFile.h>
#include <TH1D.h>
#include <TH2D.h>

void exp(){

TFile f ("histo.root","READ");
TH1D *p = (TH1D*)f.Get("h");
TFile* file = new TFile ("Respense.root","RECREATE");
TH2D *response = new TH2D("response","Response matrix",100,0,14,100,0,14);

  for (Int_t i=1; i<=p->GetSize(); i++){
  Int_t BinContent = (TH1D*)p->GetBinContent(i);
  response->SetBinContent(i,5.5,BinContent);
  }

file->cd();
response->Write();
}