Geant4  10.03.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
G4StatMFMacroMultiplicity.cc
Go to the documentation of this file.
1 //
2 // ********************************************************************
3 // * License and Disclaimer *
4 // * *
5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. *
10 // * *
11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitation of liability. *
17 // * *
18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Software license. *
24 // ********************************************************************
25 //
26 //
27 // $Id: G4StatMFMacroMultiplicity.cc 100379 2016-10-19 15:05:35Z gcosmo $
28 //
29 // Hadronic Process: Nuclear De-excitations
30 // by V. Lara
31 //
32 // Modified:
33 // 25.07.08 I.Pshenichnov (in collaboration with Alexander Botvina and Igor
34 // Mishustin (FIAS, Frankfurt, INR, Moscow and Kurchatov Institute,
35 // Moscow, pshenich@fias.uni-frankfurt.de) additional checks in
36 // solver of equation for the chemical potential
37 
39 #include "G4PhysicalConstants.hh"
40 #include "G4Pow.hh"
41 
42 // operators definitions
44 G4StatMFMacroMultiplicity::operator=(const G4StatMFMacroMultiplicity & )
45 {
46  throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator= meant to not be accessable");
47  return *this;
48 }
49 
50 G4bool G4StatMFMacroMultiplicity::operator==(const G4StatMFMacroMultiplicity & ) const
51 {
52  throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator== meant to not be accessable");
53  return false;
54 }
55 
56 
57 G4bool G4StatMFMacroMultiplicity::operator!=(const G4StatMFMacroMultiplicity & ) const
58 {
59  throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::operator!= meant to not be accessable");
60  return true;
61 }
62 
64  // Calculate Chemical potential \mu
65  // For that is necesary to calculate mean multiplicities
66 {
67  G4Pow* g4calc = G4Pow::GetInstance();
69 
70  // starting value for chemical potential \mu
71  // it is the derivative of F(T,V)-\nu*Z w.r.t. Af in Af=5
72  G4double ZA5 = _theClusters->operator[](4)->GetZARatio();
73  G4double ILD5 = _theClusters->operator[](4)->GetInvLevelDensity();
74  _ChemPotentialMu = -G4StatMFParameters::GetE0()-
75  _MeanTemperature*_MeanTemperature/ILD5 -
76  _ChemPotentialNu*ZA5 +
77  G4StatMFParameters::GetGamma0()*(1.0-2.0*ZA5)*(1.0-2.0*ZA5) +
78  (2.0/3.0)*G4StatMFParameters::Beta(_MeanTemperature)/g4calc->Z13(5) +
79  (5.0/3.0)*CP*ZA5*ZA5*g4calc->Z23(5) -
80  1.5*_MeanTemperature/5.0;
81 
82  G4double ChemPa = _ChemPotentialMu;
83  if (ChemPa/_MeanTemperature > 10.0) ChemPa = 10.0*_MeanTemperature;
84  G4double ChemPb = ChemPa - 0.5*std::abs(ChemPa);
85 
86  G4double fChemPa = this->operator()(ChemPa);
87  G4double fChemPb = this->operator()(ChemPb);
88 
89  // Set the precision level for locating the root.
90  // If the root is inside this interval, then it's done!
91  const G4double intervalWidth = 1.e-4;
92 
93  // bracketing the solution
94  G4int iterations = 0;
95  // Loop checking, 05-Aug-2015, Vladimir Ivanchenko
96  while (fChemPa*fChemPb > 0.0 && iterations < 100)
97  {
98  iterations++;
99  if (std::abs(fChemPa) <= std::abs(fChemPb))
100  {
101  ChemPa += 0.6*(ChemPa-ChemPb);
102  fChemPa = this->operator()(ChemPa);
103  }
104  else
105  {
106  ChemPb += 0.6*(ChemPb-ChemPa);
107  fChemPb = this->operator()(ChemPb);
108  }
109  }
110 
111  if (fChemPa*fChemPb > 0.0) // the bracketing failed, complain
112  {
113  G4cout <<"G4StatMFMacroMultiplicity:"<<" ChemPa="<<ChemPa
114  <<" ChemPb="<<ChemPb<< G4endl;
115  G4cout <<"G4StatMFMacroMultiplicity:"<<" fChemPa="<<fChemPa
116  <<" fChemPb="<<fChemPb<< G4endl;
117  throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::CalcChemicalPotentialMu: I couldn't bracket the root.");
118  }
119  else if (fChemPa*fChemPb < 0.0 && std::abs(ChemPa-ChemPb) > intervalWidth)
120  {
122  new G4Solver<G4StatMFMacroMultiplicity>(100,intervalWidth);
123  theSolver->SetIntervalLimits(ChemPa,ChemPb);
124  // if (!theSolver->Crenshaw(*this))
125  if (!theSolver->Brent(*this))
126  {
127  G4cout <<"G4StatMFMacroMultiplicity:"<<" ChemPa="<<ChemPa
128  <<" ChemPb="<<ChemPb<< G4endl;
129  throw G4HadronicException(__FILE__, __LINE__, "G4StatMFMacroMultiplicity::CalcChemicalPotentialMu: I couldn't find the root.");
130  }
131  _ChemPotentialMu = theSolver->GetRoot();
132  delete theSolver;
133  }
134  else // the root is within the interval, which is shorter then the precision level - all done
135  {
136  _ChemPotentialMu = ChemPa;
137  }
138 
139  return _ChemPotentialMu;
140 }
141 
142 G4double G4StatMFMacroMultiplicity::CalcMeanA(const G4double mu)
143 {
145  G4double V0 = (4.0/3.0)*pi*theA*r0*r0*r0;
146 
147  G4double MeanA = 0.0;
148 
149  _MeanMultiplicity = 0.0;
150 
151  G4int n = 1;
152  for (std::vector<G4VStatMFMacroCluster*>::iterator i = _theClusters->begin();
153  i != _theClusters->end(); ++i)
154  {
155  G4double multip = (*i)->CalcMeanMultiplicity(V0*_Kappa,mu,_ChemPotentialNu,
156  _MeanTemperature);
157  MeanA += multip*(n++);
158  _MeanMultiplicity += multip;
159  }
160 
161  return MeanA;
162 }
static G4double GetGamma0()
static G4Pow * GetInstance()
Definition: G4Pow.cc:55
Definition: G4Pow.hh:56
void SetIntervalLimits(const G4double Limit1, const G4double Limit2)
int G4int
Definition: G4Types.hh:78
G4bool Brent(Function &theFunction)
static G4double Getr0()
G4GLOB_DLL std::ostream G4cout
G4double Z13(G4int Z) const
Definition: G4Pow.hh:127
bool G4bool
Definition: G4Types.hh:79
static G4double GetE0()
const G4int n
G4double GetRoot(void) const
Definition: G4Solver.hh:77
static G4double GetCoulomb()
G4double Z23(G4int Z) const
Definition: G4Pow.hh:154
#define G4endl
Definition: G4ios.hh:61
static constexpr double pi
Definition: G4SIunits.hh:75
double G4double
Definition: G4Types.hh:76
static G4double Beta(G4double T)
G4double operator()(const G4double mu)