18 Double_t fitf(Double_t *x, Double_t *par)
21 if (par[2] != 0) arg = (x[0] - par[1])/par[2];
23 Double_t fitval = par[0]*TMath::Exp(-0.5*arg*arg);
28 TString dir = gROOT->GetTutorialDir();
29 dir.Append(
"/hsimple.C");
30 dir.ReplaceAll(
"/./",
"/");
31 if (!gInterpreter->IsLoaded(dir.Data())) gInterpreter->LoadMacro(dir.Data());
32 TFile *hsimpleFile = (TFile*)gROOT->ProcessLineFast(
"hsimple(1)");
33 if (!hsimpleFile)
return;
35 TCanvas *c1 =
new TCanvas(
"c1",
"the fit canvas",500,400);
37 TH1F *hpx = (TH1F*)hsimpleFile->Get(
"hpx");
40 TF1 *func =
new TF1(
"fitf",fitf,-2,2,3);
43 func->SetParameters(100,0,1);
44 func->SetParNames(
"Constant",
"Mean_value",
"Sigma");
50 printf(
"Integral of function = %g\n",func->Integral(-2,2));