G4NuclWatcher.cc

Go to the documentation of this file.

//
// ********************************************************************
// * License and Disclaimer                                           *
// *                                                                  *
// * The  Geant4 software  is  copyright of the Copyright Holders  of *
// * the Geant4 Collaboration.  It is provided  under  the terms  and *
// * conditions of the Geant4 Software License,  included in the file *
// * LICENSE and available at  http://cern.ch/geant4/license .  These *
// * include a list of copyright holders.                             *
// *                                                                  *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work  make  any representation or  warranty, express or implied, *
// * regarding  this  software system or assume any liability for its *
// * use.  Please see the license in the file  LICENSE  and URL above *
// * for the full disclaimer and the limitation of liability.         *
// *                                                                  *
// * This  code  implementation is the result of  the  scientific and *
// * technical work of the GEANT4 collaboration.                      *
// * By using,  copying,  modifying or  distributing the software (or *
// * any work based  on the software)  you  agree  to acknowledge its *
// * use  in  resulting  scientific  publications,  and indicate your *
// * acceptance of all terms of the Geant4 Software license.          *
// ********************************************************************
//
//
// 20100202  M. Kelsey -- Move most code here from .hh file, clean up
// 20100405  M. Kelsey -- Pass const-ref std::vector<>
// 20101010  M. Kelsey -- Migrate to integer A and Z
// 20101019  M. Kelsey -- CoVerity report: "!true" should be "!here"
 
#include "G4NuclWatcher.hh"
#include "globals.hh"
 
#include <algorithm>
#include <vector>
#include <cmath>
 
G4NuclWatcher::G4NuclWatcher(G4int z, 
                 const std::vector<G4double>& expa, 
                 const std::vector<G4double>& expcs, 
                 const std::vector<G4double>& experr, 
                 G4bool check, 
                 G4bool nucl)
  : nuclz(z), izotop_chsq(0.), average_ratio(0.), aver_rat_err(0.),
    aver_lhood(0.), aver_matched(0.), exper_as(expa), exper_cs(expcs),
    exper_err(experr), checkable(check), nucleable(nucl) {}
 
void G4NuclWatcher::watch(G4int a, G4int z) {
  const G4double small = 0.001;
  
  if (std::abs(z-nuclz) >= small) return;
 
  G4bool here = false;      // Increment specified nucleus count
  std::size_t  simulatedAsSize = simulated_as.size();
  for (std::size_t i = 0; i<simulatedAsSize && !here; ++i) {
    if (std::abs(simulated_as[i] - a) < small) {
      simulated_cs[i] += 1.0;
      here = true;      // Terminates loop
    }
  }
 
  if (!here) {          // Nothing found, so add new entry
    simulated_as.push_back(a); 
    simulated_cs.push_back(1.0); 
  }
}
 
void G4NuclWatcher::setInuclCs(G4double csec, G4int nev) { 
  std::size_t  simulatedAsSize = simulated_as.size();
  for(std::size_t i = 0; i < simulatedAsSize ; ++i) {
    double err = std::sqrt(simulated_cs[i]) / simulated_cs[i];
    
    simulated_prob.push_back(simulated_cs[i] / nev);
    simulated_cs[i] *= csec / nev;
    simulated_errors.push_back(simulated_cs[i] * err);    
  }
}
 
std::pair<G4double, G4double> G4NuclWatcher::getExpCs() const {
  G4double cs = 0.0;
  G4double err = 0.0;
  
  std::size_t experAsSize = exper_as.size();
  for(std::size_t iz = 0; iz < experAsSize; ++iz) {
    cs += exper_cs[iz];
    err += exper_err[iz];
  }
  
  return std::pair<G4double, G4double>(cs, err);
}
 
std::pair<G4double, G4double> G4NuclWatcher::getInuclCs() const {
  G4double cs = 0.0;
  G4double err = 0.0;
  std::size_t simulatedAsSize = simulated_as.size();
  for(std::size_t iz = 0; iz < simulatedAsSize; ++iz) {
    cs += simulated_cs[iz];
    err += simulated_errors[iz];
  }
  
  return std::pair<G4double, G4double>(cs, err);
}
 
void G4NuclWatcher::print() {
  const G4double small = 0.001;
  
  G4cout << "\n ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ "
     << "\n **** izotop Z **** " << nuclz << G4endl;
  
  izotop_chsq = 0.0;
  average_ratio = 0.0;
  aver_rat_err = 0.0;
  G4double exp_cs = 0.0;
  G4double exp_cs_err = 0.0;
  G4double inucl_cs = 0.0;
  G4double inucl_cs_err = 0.0;
  std::vector<G4bool> not_used(simulated_cs.size(), true);
  std::size_t nmatched = exper_as.size();
  std::size_t nused = simulated_cs.size();
  G4double lhood = 0.0;
  std::size_t experAsSize = exper_as.size();
 
  for (std::size_t iz = 0; iz < experAsSize; ++iz) {
    G4double a = exper_as[iz];
    
    exp_cs += exper_cs[iz];
    exp_cs_err += exper_err[iz];
    
    G4bool found = false;
    std::size_t  simulatedAsSize = simulated_as.size();
    for (std::size_t i = 0; i<simulatedAsSize && !found; ++i) {
      if (std::fabs(simulated_as[i] - a) < small) {
    G4double rat = simulated_cs[i] / exper_cs[iz];
    
    lhood += std::log10(rat) * std::log10(rat);
    
    G4double rat_err
      = std::sqrt(simulated_errors[i]*simulated_errors[i] +
              exper_err[iz]*exper_err[iz] * rat*rat) / exper_cs[iz];
    average_ratio += rat;
    aver_rat_err += rat_err; 
    
    G4cout << " A " << a << " exp.cs " << exper_cs[iz] << " err " 
           << exper_err[iz] << G4endl << " sim. cs " << simulated_cs[i]
           << " err " << simulated_errors[i] << G4endl
           << " ratio " << rat << " err " << rat_err << G4endl
           << " simulated production rate " << simulated_prob[i] << G4endl;
    
    not_used[i] = false;
    izotop_chsq += (rat - 1.0) * (rat - 1.0) / rat_err / rat_err; 
    found = true;
    --nused;
      }
    }
 
    if (found) --nmatched;
    else
      G4cout << " not found exper.: A " << a << " exp.cs " << exper_cs[iz] 
         << " err " << exper_err[iz] << G4endl;
  }
  
  G4cout << " not found in simulations " << nmatched << G4endl
     << " not found in exper: " << nused << G4endl;
 
  std::size_t  simulatedAsSize = simulated_as.size();
  for(std::size_t i = 0; i < simulatedAsSize; ++i) {
    inucl_cs += simulated_cs[i];
    inucl_cs_err += simulated_errors[i];
    
    if(not_used[i]) 
      G4cout << " extra simul.: A " << simulated_as[i] << " sim. cs "
         << simulated_cs[i] << " err " << simulated_errors[i] << G4endl;
 
    G4cout << " simulated production rate " << simulated_prob[i] << G4endl;
  }
 
  G4int matched = G4int(exper_as.size() - nmatched);
  
  if (matched > 0) {
    aver_lhood = lhood;
    aver_matched = matched;    
    lhood = std::pow(10.0, std::sqrt(lhood/matched));
    
    G4cout << " matched " << matched << " CHSQ " << std::sqrt(izotop_chsq) / matched
       << G4endl
       << " raw chsq " << izotop_chsq << G4endl
       << " average ratio " << average_ratio / matched 
       << " err " << aver_rat_err / matched << G4endl 
       << " lhood " << lhood << G4endl;
  }
  else {
    izotop_chsq = 0.0;
    aver_lhood = 0.0;    
  } 
  
  G4cout << " exper. cs " << exp_cs << " err " << exp_cs_err << G4endl
     << " inucl. cs " << inucl_cs << " err " << inucl_cs_err << G4endl
     <<  " ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ "
     << G4endl;
}