#include<fstream>
#include<TH1.h>
#include<TH2.h>
#include<TFile.h>
#include<TTree.h>
#include<TCanvas.h>
#include<parameter_co.h>
#include<math.h>
//#include<iostream>
#include<iostream> using namespace std;
//ここまでで使うライブラリをincludeしてます.parameter.hというのは自分でつくってヘッダファイルで,キャリブレーション用のパラメターが書いてあります.
void macro_calb_co(){ //Last modified 2012/01/11
//difference from macro_calb_oka:
//fit by Gaussian but not draw it,
//and fit again by "Gaussian + linear" and draw it
char filename[99];//root file name
sprintf(filename
,"60co-20120111.001.root");
TFile *f1=new TFile(filename);//opening root file
//ファイルを開いています。
Double_t p[9][9][9];
//pというDouble_t クラスの配列は、フィッティングのときに使うパラメターです。p[i][j][k]はチャネルiのj番目のピークのk番目のパラメターを意味しています。j=1は511keVのピーク、j=2は1275のピーク、j=3はサムピークです。k=0はガウシアン全体にかかる定数(使わない)k=1はMean,k=2はSigmaです。
TH1F *h[99];
h[1]=h101;
h[2]=h102;
h[3]=h103;
h[4]=h104;
h[5]=h105;
h[6]=h106;
//TH1Fは1次のFloatのHistgramのクラスです。ROOTファイルに入っているh101~h106までのヒストグラムをプログラム中で扱いやすいようにh[i]という配列を宣言して、そこに代入しています。
// end of front matter
//gStyle->SetOptFit(0001);
gStyle->SetOptFit(0000);
//ここはフィッティングのパラメータをどのようにキャンバスに出力するか決めています
TCanvas *c1 = new TCanvas("c1","Raw Data and Fitting");
c1->Divide(2,3);
TCanvas *c4 = new TCanvas("c4","Fitting with Gaussian and Linear function");
c4->Divide(2,3);
//TCanvasというクラスはヒストグラムとかを出力するためのクラスです.キャンバスをDivideするとキャンバスを複数に分けることができます
for(Int_t ch=1;ch<=6;ch++){
char hclone[256];
TH1F *hoge=h[ch]->Clone(hclone);
h[ch+10]=hoge;
TH1F *hoge2=h[ch]->Clone(hclone);
h[ch+20]=hoge2;
//h101-h106を違う目的で使いたいので複製しています
}
for(Int_t ch=1;ch<=6;ch++){
/*
Canvas No. 1
*/
c1->cd(ch)->SetLogy();
h[ch]->Draw();
//Preparation of Fitting function
//ここからはピークをフィッティングするための関数を準備しています.
TF1 *fit1;
char fname[256];
char mean1[256],mean2[256],mean3[256];
char resol1[256],resol2[256],resol3[256];
Double_t sigmae1[3];
fit1 = new TF1(fname,"gaus",p1start[ch],p1end[ch]);
h[ch]->Fit(fit1,"","",p1start[ch],p1end[ch]);
//h[ch]にfit1をフィッティングします
fit1->GetParameters(p[ch][1]);
sigmae1[0]=fit1->GetParError(2);
//フィットしたfit1について,そのフィッティングパラメータを得ます.これによってp[ch][1][1]にはMeanが,p[ch][1][2]にはSigmaが入ります.
sprintf(mean1
," Mean =%lf",p
[ch
][1][1]); sprintf(resol1
,"Sigma =%lf",p
[ch
][1][2]); //凡例に表示するための文字列を準備しています
TF1 *fit2;
fit2 = new TF1(fname,"gaus",p2start[ch],p2end[ch]);
h[ch]->Fit(fit2,"+","",p2start[ch],p2end[ch]);
fit2->GetParameters(p[ch][2]);
sigmae1[1]=fit2->GetParError(2);
sprintf(mean2
," Mean =%lf",p
[ch
][2][1]); sprintf(resol2
,"Sigma =%lf",p
[ch
][2][2]);
TF1 *fit3;
fit3 = new TF1(fname,"gaus",p3start[ch],p3end[ch]);
h[ch]->Fit(fit3,"+","",p3start[ch],p3end[ch]);
fit3->GetParameters(p[ch][3]);
sigmae1[2]=fit3->GetParError(2);
sprintf(mean3
," Mean =%lf",p
[ch
][3][1]); sprintf(resol3
,"Sigma =%lf",p
[ch
][3][2]);
h[ch]->Draw();//もう1回Drawします.なぜかこうしないとうまくいかなかったきがする
//ここからは凡例(Legend)の設定です
TLegend *l = new TLegend(0.6255,0.75,0.875,0.45);
//TLegendクラスの変数 l を宣言しました
l->AddEntry(fit1,"511 keV","lp");
//lにfit1を追加し,その表示名を511 keVとしました
l->AddEntry((TObject*)0, mean1,"");
//文字列mean1をlに追加しました
l->AddEntry((TObject*)0, resol1,"");
l->AddEntry(fit2,"1274 keV","lp");
l->AddEntry((TObject*)0, mean2,"");
l->AddEntry((TObject*)0, resol2,"");
l->AddEntry(fit2,"1274 keV","lp");
l->AddEntry((TObject*)0, mean3,"");
l->AddEntry((TObject*)0, resol3,"");
l->SetFillColor(0);// l の背景を白にします
l->Draw();//lをキャンバスに描きます
//1次式+ガウシアンでフィットし直す
char fglname[99];
Double_t paratest[5];
Double_t ex[3];
Double_t x[3],sigma2[3],sigmae2[3];
/*
Canvas No.4
*/
c4->cd(ch)->SetLogy();
h[ch+20]->Draw();
TLegend *l3 = new TLegend(0.6255,0.75,0.875,0.45);
TF1 *fit4;
fit4 = new TF1(fglname,"[0]/sqrt(2.0*3.14)/[1]*exp(-(x-[2])*(x-[2])/2.0/[1]/[1])+[3]*x+[4]");//[0]:constant ,[1]:sigma, [2]:mean
fit4->SetParameters(p[ch][1][0],p[ch][1][2],p[ch][1][1],0,0);//パラメータの初期値の設定
h[ch+20]->Fit(fglname,"","",p1start[ch],p1end[ch]);
fit4 = h[ch+20]->GetFunction(fglname);
fit4->GetParameters(paratest);// parameterをgetしてこれを使えば直線の式が
x[0]=paratest[2];
ex[0]=fit4->GetParError(2);
sigma2[0]=paratest[1];
sigmae2[0]=fit4->GetParError(1);
TF1 *flin1= new TF1("flin1","[0]*x+[1]",p1start[ch],p1end[ch]);
flin1->FixParameter(0,paratest[3]);
flin1->FixParameter(1,paratest[4]);//"fix" is proper, not "set"
h[ch+20]->Fit(flin1,"Q0+","",p1start[ch],p1end[ch]);
flin1=h[ch+20]->GetFunction("flin1");
char caption[32];
l3->AddEntry(fit4,"511 keV","lp");
sprintf(caption
,"mean=%lf",paratest
[2]); l3->AddEntry((TObject*)0, caption,"");
sprintf(caption
,"sigma=%lf",paratest
[1]); l3->AddEntry((TObject*)0, caption,"");
TF1 *fit5;
fit5 = new TF1(fglname,"[0]/sqrt(2.0*3.14)/[1]*exp(-(x-[2])*(x-[2])/2.0/[1]/[1])+[3]*x+[4]");//[0]:constant ,[1]:sigma, [2]:mean
fit5->SetParameters(p[ch][2][0],p[ch][2][2],p[ch][2][1],0,0);
h[ch+20]->Fit(fglname,"0+","",p2start[ch],p2end[ch]);
fit5 = h[ch+20]->GetFunction(fglname);
fit5->GetParameters(paratest);
x[1]=paratest[2];
ex[1]=fit5->GetParError(2);
sigma2[1]=paratest[1];
sigmae2[1]=fit5->GetParError(1);
TF1 *flin2= new TF1("flin2","[0]*x+[1]",p2start[ch],p2end[ch]);
flin2->FixParameter(0,paratest[3]);
flin2->FixParameter(1,paratest[4]);//"fix" is proper, not "set"
h[ch+20]->Fit(flin2,"Q0+","",p2start[ch],p2end[ch]);
flin2=h[ch+20]->GetFunction("flin2");
char caption[32];
l3->AddEntry(fit5,"1274.5 keV","lp");
sprintf(caption
,"mean=%lf",paratest
[2]); l3->AddEntry((TObject*)0, caption,"");
sprintf(caption
,"sigma=%lf",paratest
[1]); l3->AddEntry((TObject*)0, caption,"");
TF1 *fit6;
fit6 = new TF1(fglname,"[0]/sqrt(2.0*3.14)/[1]*exp(-(x-[2])*(x-[2])/2.0/[1]/[1])+[3]*x+[4]");//[0]:constant ,[1]:sigma, [2]:mean
fit6->SetParameters(p[ch][3][0],p[ch][3][2],p[ch][3][1],0,0);
h[ch+20]->Fit(fglname,"0+","",p3start[ch],p3end[ch]);
fit6 = h[ch+20]->GetFunction(fglname);
fit6->GetParameters(paratest);
x[2]=paratest[2];
ex[2]=fit6->GetParError(2);
sigma2[2]=paratest[1];
sigmae2[2]=fit6->GetParError(1);
TF1 *flin3= new TF1("flin3","[0]*x+[1]",p3start[ch],p3end[ch]);
flin3->FixParameter(0,paratest[3]);
flin3->FixParameter(1,paratest[4]);//"fix" is proper, not "set"
h[ch+20]->Fit(flin3,"Q0+","",p3start[ch],p3end[ch]);
flin3=h[ch+20]->GetFunction("flin3");
char caption[32];
l3->AddEntry(fit6,"511+1274 keV","lp");
sprintf(caption
,"mean=%lf",paratest
[2]); l3->AddEntry((TObject*)0, caption,"");
sprintf(caption
,"sigma=%lf",paratest
[1]); l3->AddEntry((TObject*)0, caption,"");
h[ch+20]->Draw("same");
fit4->Draw("same");
flin1->Draw("same");
fit5->SetLineColor(3);
fit5->Draw("same");
flin2->SetLineColor(3);
flin2->Draw("same");
fit6->SetLineColor(7);
fit6->Draw("same");
flin3->SetLineColor(7);
flin3->Draw("same");
l3->SetFillColor(0);// l の背景を白にします
l3->Draw();//lをキャンバスに描きます
}
/*
//キャンバスをPDFに出力します
//Print
char pdfstart[99];
sprintf(pdfstart,"%s.pdf(",filename);
char pdfmiddle[99];
sprintf(pdfmiddle,"%s.pdf",filename);
char pdfend[99];
sprintf(pdfend,"%s.pdf)",filename);
c1->Print(pdfstart);
c2->Print(pdfmiddle);
c3->Print(pdfmiddle);
c4->Print(pdfend);
*/
}