BCH1D.cxx

Go to the documentation of this file.

/*
 * Copyright (C) 2008-2010, Daniel Kollar and Kevin Kroeninger.
 * All rights reserved.
 *
 * For the licensing terms see doc/COPYING.
 */

// ---------------------------------------------------------

#include "BAT/BCH1D.h"

#include "BAT/BCLog.h"
#include "BAT/BCMath.h"

#include <TH1D.h>
#include <TH2.h>
#include <TLine.h>
#include <TPolyLine.h>
#include <TPaveLabel.h>
#include <TLatex.h>
#include <TError.h>
#include <TCanvas.h>
#include <TMarker.h>
#include <TLegend.h>
#include <TString.h>

#include <math.h>

// ---------------------------------------------------------

BCH1D::BCH1D()
{
   fHistogram = 0;
   fDefaultCLLimit = 95.; // in percent

   fModeFlag = 0;
}

// ---------------------------------------------------------

BCH1D::~BCH1D()
{
   if (fHistogram) delete fHistogram;
}

// ---------------------------------------------------------

double BCH1D::GetMode()
{
   return fHistogram -> GetBinCenter(fHistogram -> GetMaximumBin());
}

// ---------------------------------------------------------

double BCH1D::GetQuantile(double probability)
{
   int nquantiles = 1;
   double quantiles[1];
   double probsum[1];

   probsum[0] = probability;

   // use ROOT function to calculat quantile.
   fHistogram -> GetQuantiles(nquantiles, quantiles, probsum);

   return quantiles[0];
}

// ---------------------------------------------------------

double BCH1D::GetIntegral(double valuemin, double valuemax)
{
   double integral = 0;

   int binmin = fHistogram -> FindBin(valuemin);
   int binmax = fHistogram -> FindBin(valuemax);

   // use ROOT function to calculate integral.
   integral = fHistogram -> Integral(binmin, binmax);

   return integral;
}

// ---------------------------------------------------------

double BCH1D::GetPValue(double probability)
{
   // use ROOT function to calculate the integral from 0 to "probability".
   return fHistogram -> Integral(1, fHistogram -> FindBin(probability));
}

// ---------------------------------------------------------

void BCH1D::SetDefaultCLLimit(double limit)
{
   // check if limit is between 68% and 100%. Give a warning if not ...
   if(limit>=100. || limit<68.)
      BCLog::Out(BCLog::warning,BCLog::warning,
         Form("BCH1D::SetDefaultCLLimit : Value %.1f out of range. Keeping default %.1f%% CL limit.",limit,fDefaultCLLimit));

   // ... or set value if true.
   else
      fDefaultCLLimit = limit;
}

// ---------------------------------------------------------

void BCH1D::Print(const char * filename, int options, double ovalue, int ww, int wh)
{
   char file[256];
   int i=0;
   while(i<255 && *filename!='\0')
      file[i++]=*filename++;
   file[i]='\0';

// temporary
   fHistogram -> SetLineWidth(1);

   // create temporary canvas
   TCanvas * c;
   if(ww > 0 && wh > 0)
      c = new TCanvas("c","c",ww,wh);
   else
      c = new TCanvas("c","c");

   c -> cd();
   this->Draw(options, ovalue);

   gPad->RedrawAxis();

   // print to file.
   c -> Print(file);
}

// ---------------------------------------------------------

void BCH1D::Draw(int options, double ovalue)
{
   double min, max;
   double mode;
   double thismode = this->GetMode();

   int nbins = fHistogram->GetNbinsX();

   fHistogram->Scale(1./fHistogram->Integral("width"));

   if(fModeFlag)
      mode=fMode;
   else
      mode=thismode;

   // define temporary line.
   TLine * line;

   //control if legend is required
   bool flagLegend=false;
   char confidenceLabel[25];

   // check drawing option.
   switch(options)
   {
      // Draw a band between 16% and 84% probability.
      // If the mode is outside the band only draw a limit.
      case 0:
         if (fabs(ovalue) >= 100 || ovalue==0.)
         {//default case if no args to Draw() supplied

            min = this -> GetQuantile(.16);
            max = this -> GetQuantile(.84);

            //draw a legend later
            flagLegend = true;
            sprintf(confidenceLabel, "Central 68%%");

//          if ( thismode > max || fHistogram -> FindBin(thismode) == fHistogram -> GetNbinsX() )
            if ( fHistogram -> FindBin(thismode) == fHistogram -> GetNbinsX() )
            {
               min = this -> GetQuantile(1.-(double)fDefaultCLLimit/100.);
               max = fHistogram->GetXaxis()->GetXmax();
               ovalue = fDefaultCLLimit;
               sprintf(confidenceLabel, "%g%% region", fDefaultCLLimit);
            }
//          else if (thismode < min || fHistogram->FindBin(thismode)==1)
            else if ( fHistogram->FindBin(thismode)==1)
            {
               min = fHistogram->GetXaxis()->GetXmin();
               max = this -> GetQuantile((double)fDefaultCLLimit/100.);
               ovalue = -fDefaultCLLimit;
               sprintf(confidenceLabel, "%g%% region", fDefaultCLLimit);
            }
         }

         else if(ovalue < 0)
         {
            min = fHistogram->GetXaxis()->GetXmin();
            max = this -> GetQuantile(-ovalue/100.);
         }
         else
         {
            min = this -> GetQuantile(1. - ovalue/100.);
            max = fHistogram->GetXaxis()->GetXmax();
         }

         // do the drawing
         this->DrawShadedLimits(mode, min, max, ovalue);

         // add legend for the symbols mean, mode, median, confidence band
         if(flagLegend)
            this ->DrawLegend(confidenceLabel);


         break;

      // Draw a line at "ovalue".
      case 1:

         fHistogram -> Draw();
         min = fHistogram->GetBinLowEdge(1);
         max = fHistogram->GetBinLowEdge(nbins+1);
         if(min<=ovalue && ovalue<=max)
         {
            line = new TLine();
            line -> SetLineColor(kRed);
            line -> DrawLine(ovalue, 0., ovalue, 1.05 * fHistogram -> GetMaximum());
         }

         break;

      // Draw a shaded band at the smallest interval.
      case 2:

         if(ovalue<50) // just to ensure there's some sense in the number
            ovalue = 68.; // default is 68%

         this->GetSmallestInterval(min, max, ovalue/100.);
         this->DrawShadedLimits(mode, min, max, 0.);

//       this -> DrawLegend(TString::Format("Smallest %g%",ovalue));

         break;

      // Draw a shaded band at the smallest intervals
      case 3:

         if(ovalue<50) // just to ensure there's some sense in the number
            ovalue = 68.; // default is 68%

         this -> DrawSmallest(mode,ovalue);

         break;

      // Sort out bad options and warn.
      default:

         BCLog::Out(BCLog::warning, BCLog::warning, Form("BCH1D::Draw : Invalid option %d",options));
         break;
   }
}
// ---------------------------------------------------------

void BCH1D::DrawLegend(const char* text)
{
   //draw on top right corner

   TLegend* legend = new TLegend(0.73, 0.72, 0.86, 0.85);
   legend -> SetFillColor(kWhite);
   legend -> SetBorderSize(1);

   TMarker* triangle = new TMarker(0, 0, 23);
   triangle -> SetMarkerColor(kRed);
   legend -> AddEntry(triangle, "Global mode", "P");

   TMarker* diamond = new TMarker(0, 0, 27);
   diamond -> SetMarkerColor(kBlue);
   legend -> AddEntry(diamond, "Mean", "P");

   TLine * line;
   line = new TLine();
   line -> SetLineStyle(2);
   line -> SetLineColor(kGreen + 2);
   legend -> AddEntry(line, "Median", "l");

   TLegend* band = new TLegend(0, 0, 1, 1);
   band -> SetFillColor(kYellow);
   legend -> AddEntry(band, text, "F");

   legend -> SetTextAlign(12);

   //fine tuned by hand so text legible even with several plots in a row
   legend -> SetTextSize(0.016);

   legend -> Draw();
}

// ---------------------------------------------------------

//TODO Are graphics objects ever deleted from the heap?

void BCH1D::DrawShadedLimits(double mode, double min, double max, double limit)
{
   double maximum = fHistogram -> GetMaximum();

   double x0 = mode;
   double y0 = fHistogram->GetBinContent( fHistogram->FindBin(mode) );

   double x1 = fHistogram->GetMean();
   double y1 = fHistogram->GetBinContent( fHistogram->FindBin(x1) );

   double x2 = this -> GetQuantile(.5); // median
   double y2 = fHistogram->GetBinContent( fHistogram->FindBin(x2) );

   double ysize = maximum*1.3;

   double xmin = fHistogram->GetXaxis()->GetXmin();
   double xmax = fHistogram->GetXaxis()->GetXmax();

   // draw histogram with axes first
   TH2D * hsc = new TH2D(
         TString::Format("h2scale_%s_%d",fHistogram->GetName(),BCLog::GetHIndex()),"",
         10, xmin, xmax, 10, 0., ysize);
   hsc -> SetStats(0);
   hsc -> SetXTitle(fHistogram->GetXaxis()->GetTitle());
   hsc -> SetYTitle(fHistogram->GetYaxis()->GetTitle());
   hsc -> Draw();

   // draw histogram
   fHistogram -> SetLineWidth(1);
   fHistogram -> Draw("same");

   // draw yellow shaded region between min and max
   TH1D * hist_shaded = this->GetSubHisto(min,max,TString::Format("%s_sub_%d",fHistogram->GetName(),BCLog::GetHIndex()));
   hist_shaded -> SetFillStyle(1001);
   hist_shaded -> SetFillColor(kYellow);

   // draw shaded histogram
   hist_shaded -> Draw("same");

   gPad->RedrawAxis();

   // draw triangle for mode
   TPolyLine * tmax;

   double dx = 0.01*(xmax-xmin);
   double dy = 0.04*(ysize);
   y0+=dy/5.;
   double tmax_x[] = {x0, x0 + dx, x0 - dx, x0};
   double tmax_y[] = {y0, y0 + dy, y0 + dy, y0};
   tmax = new TPolyLine(4,tmax_x,tmax_y);
   tmax->SetLineColor(kRed);
   tmax->SetLineWidth(1);
   tmax->SetFillColor(kRed);
   tmax->Draw();
   tmax->Draw("f");

   // draw diamond for mean
   TPolyLine * tmean;

   y1+=dy/5.;
// double tmean_x[] = {x1, x1 + dx, x1 - dx, x1};
// double tmean_y[] = {y1, y1 + dy, y1 + dy, y1};
   double tmean_x[] = {x1, x1 + dx, x1 , x1 - dx, x1};
   double tmean_y[] = {y1, y1 + dy/2., y1 + dy, y1 + dy/2., y1};
   tmean = new TPolyLine(5,tmean_x,tmean_y);
   tmean->SetLineColor(kBlue);
// tmean->SetFillColor(kWhite);
   tmean->SetLineWidth(1);
// tmean->SetLineStyle(1);
   tmean->Draw();

/*
   // draw arrow for median
   TPolyLine * tmed;
   TPolyLine * tmed2;

// y2+=dy/5.;
   y2=0.+dy/5.;
   double tmed_x[] = {x2 + dx, x2, x2 - dx};
   double tmed_y[] = {y2 + dy, y2, y2 + dy};
   double tmed2_x[] = {x2, x2};
   double tmed2_y[] = {y2, y2 + dy*2.};
   tmed = new TPolyLine(3,tmed_x,tmed_y);
   tmed2 = new TPolyLine(2,tmed2_x,tmed2_y);
   tmed->SetLineColor(kGreen+2);
   tmed->SetLineWidth(1);
   tmed2->SetLineColor(kGreen+2);
   tmed2->SetLineWidth(1);
   tmed->Draw();
   tmed2->Draw();
*/
   // draw dashed line for median
   TLine * line;
   line = new TLine();
   line -> SetLineStyle(2);
   line -> SetLineColor(kGreen+2);
   line -> DrawLine(x2, 0., x2, y2);


   // write mode location and shaded band

   // format of the number
   double delta_max = fmax(fabs(max-x1),fabs(x1-min));

   int sd = 2 + (int)log10(fabs(x1/delta_max));

   if( (int)log10(x1) > (int)log10(delta_max) )
      sd++;

   TLatex * tmax_text = new TLatex();
   tmax_text->SetTextSize(0.045);
   tmax_text->SetTextFont(62);
   tmax_text->SetTextAlign(22); // center
// tmax_text->SetTextAlign(13); // top-left

   double xprint=(xmax+xmin)/2.;
// double xprint=xmin+(xmax-xmin)/20.;
   double yprint=ysize*(1-1.4*tmax_text->GetTextSize());

   if(fabs(limit)<50) // just to ensure there's some sense in the number
      tmax_text->DrawLatex(xprint,yprint,
         TString::Format( TString::Format("%%s^{med} = %%.%dg ^{+%%.2g}_{ -%%.2g}",sd),
            fHistogram->GetXaxis()->GetTitle(), x2, max-x2, x2-min));

   else if (limit<0)
      tmax_text->DrawLatex(xprint,yprint,
         TString::Format( TString::Format("%%s (%d%%%% prob.) < %%.4g",-(int)limit),
            fHistogram->GetXaxis()->GetTitle(), max));

   else if (limit>0)
      tmax_text->DrawLatex(xprint,yprint,
         TString::Format( TString::Format("%%s (%d%%%% prob.) > %%.4g",(int)limit),
            fHistogram->GetXaxis()->GetTitle(), min));

/*
   TLegend * leg = new TLegend(.61,.7,.9,.88);
   leg -> SetFillColor(kWhite);
   leg -> SetFillStyle(0);
   leg -> SetBorderSize(0);
   leg -> AddEntry(line,"Median", "l");
   TH1D * hh0 = new TH1D("hh0","",10,0,10);
   hh0->SetMarkerStyle(23);
   hh0->SetMarkerColor(kBlue);
   hh0->SetMarkerSize(1);
   leg -> AddEntry(hh0,"Mean","p");
   TH1D * hh1 = new TH1D("hh1","",10,0,10);
   hh1->SetMarkerStyle(23);
   hh1->SetMarkerColor(kRed);
   hh1->SetMarkerSize(1);
   leg -> AddEntry(hh1,"Mode","p");
   leg -> AddEntry(hist_shaded, "Central 68%", "f");
   leg ->Draw();
*/

}

// ---------------------------------------------------------

void BCH1D::DrawSmallest(double mode, double prob, bool drawmean)
{
   // prepare triangle for mode
   TPolyLine * tmax;

   double x0 = mode;
   double y0 = fHistogram->GetBinContent( fHistogram->FindBin(mode) );
   double xmin = fHistogram->GetXaxis()->GetXmin();
   double xmax = fHistogram->GetXaxis()->GetXmax();
   double ysize = 1.3 * fHistogram -> GetMaximum();

   double x1 = fHistogram->GetMean();
   double y1 = fHistogram->GetBinContent( fHistogram->FindBin(x1) );

   double x2 = this -> GetQuantile(.5); // median
   double y2 = fHistogram->GetBinContent( fHistogram->FindBin(x2) );

   double dx = 0.01*(xmax-xmin);
   double dy = 0.04*(ysize);
   double tmax_x[] = {x0, x0 + dx, x0 - dx, x0};
   double tmax_y[] = {y0, y0 + dy, y0 + dy, y0};
   tmax = new TPolyLine(4,tmax_x,tmax_y);
   tmax->SetLineColor(kRed);
   tmax->SetFillColor(kRed);

   // draw histogram with axes first
   TH2D * hsc = new TH2D(
         TString::Format("h2scale_%s_%d",fHistogram->GetName(),BCLog::GetHIndex()),"",
         10, xmin, xmax, 10, 0., ysize);
   hsc -> SetStats(0);
   hsc -> SetXTitle(fHistogram->GetXaxis()->GetTitle());
   hsc -> SetYTitle(fHistogram->GetYaxis()->GetTitle());
   hsc -> Draw();

   // histogram to be filled with band
   TH1D * hist_temp1 = (TH1D*) fHistogram -> Clone();
   hist_temp1 -> Scale(1.0/fHistogram -> Integral("width"));
   hist_temp1 -> SetFillColor(kYellow);
   hist_temp1 -> SetFillStyle(1001);

   // temporary histogram
   TH1D * hist_temp2 = (TH1D*) fHistogram -> Clone();
   hist_temp2 -> Scale(1.0/fHistogram -> Integral("width"));

   // clear content
   hist_temp1 -> Reset();

   // loop over original histogram and copy bin untils integral equals
   // "prob"
   prob /= 100.;

   // integral
   double sum = 0.0;

   int n=0;
   int nbins=fHistogram->GetNbinsX();

   // loop
   while (sum < prob && n < nbins)
   {
      n++;

      // find bin with maximum
      int bin = hist_temp2 -> GetMaximumBin();

      // copy bin to new histogram
      double val = hist_temp2 -> GetBinContent(bin);
      hist_temp1 -> SetBinContent(bin, val);

      // remove maximum from temporary histogram
      hist_temp2 -> SetBinContent(bin, 0.0);

      // integrate by summing
      sum += val * hist_temp2->GetBinWidth(bin);
   }

   // scale histogram
   hist_temp1 -> Scale(fHistogram -> Integral("width"));

   // draw histograms
   fHistogram -> Draw("same");
   hist_temp1 -> Draw("same");

   // draw triangle for mode
   tmax->Draw("f");

   if(drawmean)
   {
      // draw triangle for mean
      // draw diamond for mean
      TPolyLine * tmean;

      y1+=dy/5.;
//    double tmean_x[] = {x1, x1 + dx, x1 - dx, x1};
//    double tmean_y[] = {y1, y1 + dy, y1 + dy, y1};
      double tmean_x[] = {x1, x1 + dx, x1 , x1 - dx, x1};
      double tmean_y[] = {y1, y1 + dy/2., y1 + dy, y1 + dy/2., y1};
      tmean = new TPolyLine(5,tmean_x,tmean_y);
      tmean->SetLineColor(kBlue);
//    tmean->SetFillColor(kWhite);
      tmean->SetLineWidth(1);
//    tmean->SetLineStyle(1);
      tmean->Draw();

      // draw dashed line for median
      TLine * line;
      line = new TLine();
      line -> SetLineStyle(2);
      line -> SetLineColor(kGreen+2);
      line -> DrawLine(x2, 0., x2, y2);
   }

   // free memory
   delete hist_temp2;
}

// ---------------------------------------------------------

double BCH1D::GetSmallestInterval(double & min, double & max, double content)
{
   if(content<=0. || content>= 1.)
      return 0.;

   int nbins = fHistogram -> GetNbinsX();

   double factor = fHistogram->Integral("width");
   if(factor==0)
      return 0.;

   // normalize if not yet done
   fHistogram->Scale(1./factor);

   double xmin = fHistogram->GetXaxis()->GetXmin();
   double xmax = fHistogram->GetXaxis()->GetXmax();
   double width = xmax - xmin;

   double xdown=xmin;
   double xup=xmax;

   int ndiv = 100;
   if(nbins<100)
      ndiv = 1000;
   if(nbins>1000)
      ndiv = 10;

   int warn=0;

   double integral_out=0.;

   // loop through the bins
   for(int i=1;i<nbins+1;i++)
   {
      if(fHistogram->Integral(i,nbins,"width") < content)
         break;

      // get width of the starting bin
      double firstbinwidth = fHistogram->GetBinWidth(i);

      // divide i-th bin in ndiv divisions
      // integrate starting at each of these divisions
      for(int j=0;j<ndiv;j++)
      {
         double dxdown = (double)(ndiv-j)/(double)ndiv * firstbinwidth;
         xdown = fHistogram->GetBinLowEdge(i) + firstbinwidth - dxdown;
         double integral = dxdown * fHistogram->GetBinContent(i);

         if(integral>content)
         {
            // content fits within one bin
            xup = xdown + content / fHistogram->GetBinContent(i);
            warn = 1;
         }
         else
            for(int k=i+1;k<nbins+1;k++)
            {

               double thisbin = fHistogram->GetBinContent(k) * fHistogram->GetBinWidth(k);

               if(integral+thisbin==content)
               {
                  xup = fHistogram->GetBinLowEdge(k+1);
                  break;
               }

               if(integral+thisbin>content)
               {
                  xup = fHistogram->GetBinLowEdge(k) + (content-integral)/thisbin * fHistogram->GetBinWidth(k);
                  integral += thisbin * (xup-fHistogram->GetBinLowEdge(k))/fHistogram->GetBinWidth(k);
                  break;
               }

               integral += thisbin;
            }

         if(integral < content)
            continue;

         if(xup - xdown < width)
         {
            // store necessary information
            width = xup - xdown;
            xmin  = xdown;
            xmax  = xup;
            integral_out = integral;
         }
      }
   }

   if(warn)
   {
      BCLog::Out(BCLog::warning,BCLog::warning,
            Form("BCH1D::GetSmallestInterval : The requested content of %d%% fits within one bin.",(int)(content*100)));
      BCLog::Out(BCLog::warning,BCLog::warning,
            "BCH1D::GetSmallestInterval : MAKE FINER BINNING (OR CHANGE RANGE) !!!");
   }

   // restore normalization to state before calling this method
   fHistogram->Scale(factor);

   min=xmin;
   max=xmax;

   return integral_out;
}

// ---------------------------------------------------------

double BCH1D::IntegralWidth(double min, double max)
{
   int imin = fHistogram->FindBin(min);
   int imax = fHistogram->FindBin(max);

   int nbins = fHistogram->GetNbinsX();

   // if outside of histogram range, return -1.
   if ( imin<1 || imin>nbins || imax<1 || imax>nbins )
      return -1.;

   if ( imin==imax )
      return -1.;

   // swap values if necessary
   if (imin>imax)
   {
      int i=imin;
      double x=min;
      imin=imax, min=max;
      imax=i, max=x;
   }

   // calculate first bin
   double first = ( fHistogram->GetBinLowEdge(imin+1) - min ) * fHistogram->GetBinContent(imin);

   // calculate last bin
   double last = ( max - fHistogram->GetBinLowEdge(imax) ) * fHistogram->GetBinContent(imax);

   // calculate inbetween
   double inbetween=0.;
   if(imax-imin>1)
      inbetween = fHistogram->Integral(imin+1, imax-1, "width");

   return first + inbetween + last;
}

// ---------------------------------------------------------

TH1D * BCH1D::GetSubHisto(double min, double max, const char * name)
{
   if(min>max)
   {
      double t=min;
      min=max;
      max=t;
   }

   int imin = fHistogram->FindBin(min);
   int imax = fHistogram->FindBin(max);

   int nbins = fHistogram->GetNbinsX();
   double xmin = fHistogram->GetXaxis()->GetXmin();
   double xmax = fHistogram->GetXaxis()->GetXmax();

   if( min==max || (min<=xmin && max>=xmax) )
   {
      TH1D * h0 = (TH1D*) fHistogram->Clone(name);
      return h0;
   }

   if (imin<1)
   {
      imin=1;
      min=xmin;
   }
   if (imax>nbins)
   {
      imax=nbins;
      max=xmax;
   }

   double * xb = new double[nbins+3]; // nbins+1 original bin edges + 2 new bins
   int n=0; // counter

   int domin=1;
   int domax=1;

   for (int i=1;i<nbins+2;i++)
   {
      double x0 = fHistogram->GetBinLowEdge(i);

      if (min<x0 && domin)
      {
         xb[n++]=min;
         domin=0;
      }
      else if (min==x0)
         domin=0;

      if (max<x0 && domax)
      {
         xb[n++]=max;
         domax=0;
      }
      else if (max==x0)
         domax=0;

      xb[n++]=x0;
   }

   // now define the new histogram
   TH1D * h0 = new TH1D(name,"",n-1,xb);
   for(int i=1;i<n;i++)
   {
      double x0 = h0->GetBinCenter(i);
      if(x0<min || x0>max)
         continue;

      int bin=fHistogram->FindBin(x0);
      h0->SetBinContent(i, fHistogram->GetBinContent(bin));
   }

   return h0;
}

// ---------------------------------------------------------

TH1D * BCH1D::GetSmallestIntervalHistogram(double level)
{
   // create a new histogram which will be returned and all yellow
   TH1D * hist_yellow = (TH1D*) fHistogram -> Clone();
   hist_yellow -> Reset();
   hist_yellow -> SetFillStyle(1001);
   hist_yellow -> SetFillColor(kYellow);

   // copy a temporary histogram
   TH1D * hist_temp = (TH1D*) fHistogram -> Clone(TString::Format("%s_%i",fHistogram->GetName(),BCLog::GetHIndex()));
   double factor = hist_temp -> Integral("");

   if(factor == 0)
      return 0;

   hist_temp -> Scale(1. / factor);

   // here's the algorithm:
   // 1. find the maximum bin in the temporary histogram and copy it to
   // the yellow histogram.
   // 2. remove this bin from the temporary histogram.
   // 3. repeat this until a total of "level" probability is copied to
   // the yellow histogram.

   double sumprob = 0.0;

   while (sumprob < level)
   {
      // find maximum bin and value
      int bin = hist_temp -> GetMaximumBin();
      double value = hist_temp -> GetMaximum();

      // copy "1" into the corresponding bin in the yellow histogram
      hist_yellow -> SetBinContent(bin, 1.0);

      // set the bin value in the temporary histogram to zero
      hist_temp -> SetBinContent(bin, 0.0);

      // increase probability sum
      sumprob += value;
   }

   delete hist_temp;

   return hist_yellow;
}

// ---------------------------------------------------------

std::vector <double> BCH1D::GetSmallestIntervals(double content)
{
   std::vector <double> v;

   TH1D * hist = this -> GetSmallestIntervalHistogram(content);

   int nbins = hist -> GetNbinsX();
   int ninter = 0;
   int lastbin = -1;

   double max = -1;
   double localmax = -1;
   double localmaxpos = -1;
   double localint = 0;
   bool flag = false;

   for (int i = 1; i <= nbins; ++i)
   {
      // interval starts here
      if (!flag && hist -> GetBinContent(i) > 0.)
      {
         flag = true;
         v.push_back(hist -> GetBinLowEdge(i));

         // remember start position of the interval
         lastbin = i;

         // increase number of intervals
         ninter++;

         // reset local maximum
         localmax = fHistogram -> GetBinContent(i);
         localmaxpos = hist -> GetBinLowEdge(i);

         // reset local integral
         localint = 0;
      }

      // interval stops here
      if ((flag && !(hist -> GetBinContent(i) > 0.)) || (flag && i == nbins))
      {
         flag = false;
         v.push_back(hist -> GetBinLowEdge(i) + hist -> GetBinWidth(i));

         // set right bin to maximum if on edge
         if (i == nbins && localmax < fHistogram -> GetBinContent(i))
            localmaxpos = hist -> GetBinCenter(i) + 0.5 * hist -> GetBinWidth(i);

         // find the absolute maximum
         if (localmax > max)
            max = localmax;

         // save local maximum
         v.push_back(localmax);
         v.push_back(localmaxpos);

         // save local integral
         v.push_back(localint);
      }

      // find local maximum
      if (i < nbins && localmax < fHistogram -> GetBinContent(i))
      {
         localmax = fHistogram -> GetBinContent(i);
         localmaxpos = hist -> GetBinCenter(i);
      }

      // increase area
      localint += fHistogram -> GetBinContent(i) / fHistogram -> Integral();
   }

   // rescale absolute heights to relative heights
   for (int i = 0; i < ninter; ++i)
      v[i*5+2] = v.at(i*5+2) / max;

   return v;
}

// ---------------------------------------------------------