G4StatMFMacroMultiplicity.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.          *
// ********************************************************************
//
//
//
// Hadronic Process: Nuclear De-excitations
// by V. Lara
//
// Modified:
// 25.07.08 I.Pshenichnov (in collaboration with Alexander Botvina and Igor 
//          Mishustin (FIAS, Frankfurt, INR, Moscow and Kurchatov Institute, 
//          Moscow, [email protected]) additional checks in
//          solver of equation for the chemical potential
 
#include "G4StatMFMacroMultiplicity.hh"
#include "G4PhysicalConstants.hh"
#include "G4Pow.hh"
 
// operators definitions
G4StatMFMacroMultiplicity & 
G4StatMFMacroMultiplicity::operator=(const G4StatMFMacroMultiplicity & ) 
{
    throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator= meant to not be accessible");
    return *this;
}
 
G4bool G4StatMFMacroMultiplicity::operator==(const G4StatMFMacroMultiplicity & ) const 
{
    throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator== meant to not be accessible");
    return false;
}
 
 
G4bool G4StatMFMacroMultiplicity::operator!=(const G4StatMFMacroMultiplicity & ) const 
{
    throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator!= meant to not be accessible");
    return true;
}
 
G4double G4StatMFMacroMultiplicity::CalcChemicalPotentialMu(void) 
    //  Calculate Chemical potential \mu
    // For that is necesary to calculate mean multiplicities
{
  G4Pow* g4calc = G4Pow::GetInstance();
  G4double CP = G4StatMFParameters::GetCoulomb();
 
  // starting value for chemical potential \mu
  // it is the derivative of F(T,V)-\nu*Z w.r.t. Af in Af=5
  G4double ZA5 = _theClusters->operator[](4)->GetZARatio();
  G4double ILD5 = _theClusters->operator[](4)->GetInvLevelDensity();
  _ChemPotentialMu = -G4StatMFParameters::GetE0()-
    _MeanTemperature*_MeanTemperature/ILD5 -
    _ChemPotentialNu*ZA5 + 
    G4StatMFParameters::GetGamma0()*(1.0-2.0*ZA5)*(1.0-2.0*ZA5) +
    (2.0/3.0)*G4StatMFParameters::Beta(_MeanTemperature)/g4calc->Z13(5) +
    (5.0/3.0)*CP*ZA5*ZA5*g4calc->Z23(5) -
    1.5*_MeanTemperature/5.0;
        
  G4double ChemPa = _ChemPotentialMu;
  if (ChemPa/_MeanTemperature > 10.0) ChemPa = 10.0*_MeanTemperature;
  G4double ChemPb = ChemPa - 0.5*std::abs(ChemPa);
 
  G4double fChemPa = this->operator()(ChemPa); 
  G4double fChemPb = this->operator()(ChemPb); 
     
  // Set the precision level for locating the root. 
  // If the root is inside this interval, then it's done! 
  const G4double intervalWidth = 1.e-4;
 
  // bracketing the solution
  G4int iterations = 0;
  // Loop checking, 05-Aug-2015, Vladimir Ivanchenko
  while (fChemPa*fChemPb > 0.0 && iterations < 100) 
    {
      iterations++;
      if (std::abs(fChemPa) <= std::abs(fChemPb)) 
    {
      ChemPa += 0.6*(ChemPa-ChemPb);
      fChemPa = this->operator()(ChemPa);
    } 
      else 
    {
      ChemPb += 0.6*(ChemPb-ChemPa);
      fChemPb = this->operator()(ChemPb);
    }
    }
 
  if (fChemPa*fChemPb > 0.0) // the bracketing failed, complain 
    {
      G4cout <<"G4StatMFMacroMultiplicity:"<<" ChemPa="<<ChemPa
         <<" ChemPb="<<ChemPb<< G4endl;
      G4cout <<"G4StatMFMacroMultiplicity:"<<" fChemPa="<<fChemPa
         <<" fChemPb="<<fChemPb<< G4endl;
      throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::CalcChemicalPotentialMu: I couldn't bracket the root.");
    }
  else if (fChemPa*fChemPb < 0.0 && std::abs(ChemPa-ChemPb) > intervalWidth)
    {   
    G4Solver<G4StatMFMacroMultiplicity> * theSolver = 
      new G4Solver<G4StatMFMacroMultiplicity>(100,intervalWidth);
    theSolver->SetIntervalLimits(ChemPa,ChemPb);
    //    if (!theSolver->Crenshaw(*this)) 
    if (!theSolver->Brent(*this)) 
    {
      G4cout <<"G4StatMFMacroMultiplicity:"<<" ChemPa="<<ChemPa
         <<" ChemPb="<<ChemPb<< G4endl;
      throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::CalcChemicalPotentialMu: I couldn't find the root.");
    }
    _ChemPotentialMu = theSolver->GetRoot();
    delete theSolver;
    }
  else // the root is within the interval, which is shorter then the precision level - all done 
    {
     _ChemPotentialMu = ChemPa;
    }
 
  return _ChemPotentialMu;
}
 
G4double G4StatMFMacroMultiplicity::CalcMeanA(const G4double mu)
{
  G4double r0 = G4StatMFParameters::Getr0(); 
  G4double V0 = (4.0/3.0)*pi*theA*r0*r0*r0;
 
  G4double MeanA = 0.0;
    
  _MeanMultiplicity = 0.0;
    
  G4int n = 1;
  for (std::vector<G4VStatMFMacroCluster*>::iterator i = _theClusters->begin(); 
      i != _theClusters->end(); ++i) 
   {
     G4double multip = (*i)->CalcMeanMultiplicity(V0*_Kappa,mu,_ChemPotentialNu,
                          _MeanTemperature);
     MeanA += multip*(n++);
     _MeanMultiplicity += multip;
   }
 
  return MeanA;
}