source: trunk/source/processes/hadronic/models/coherent_elastic/src/G4UHadronElasticProcess.cc @ 1315

Last change on this file since 1315 was 1315, checked in by garnier, 14 years ago

update geant4-09-04-beta-cand-01 interfaces-V09-03-09 vis-V09-03-08
File size: 13.4 KB
Line 
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// $Id: G4UHadronElasticProcess.cc,v 1.41 2010/01/26 13:34:01 mkossov Exp $
27// GEANT4 tag $Name: geant4-09-04-beta-cand-01 $
28//
29// Geant4 Hadron Elastic Scattering Process -- header file
30//
31// Created 21 April 2006 V.Ivanchenko
32// 
33// Modified:
34// 24.04.06 V.Ivanchenko add neutron scattering on hydrogen from CHIPS
35// 07.06.06 V.Ivanchenko fix problem of rotation of final state
36// 25.07.06 V.Ivanchenko add 19 MeV low energy for CHIPS
37// 26.09.06 V.Ivanchenko add lowestEnergy
38// 20.10.06 V.Ivanchenko initialise lowestEnergy=0 for neitrals, eV for charged
39// 23.01.07 V.Ivanchnko add cross section interfaces with Z and A
40// 02.05.07 V.Ivanchnko add He3
41// 13.01.10: M.Kosov: Use G4Q(Pr/Neut)ElasticCS instead of G4QElasticCS
42//
43
44#include "G4UHadronElasticProcess.hh"
45#include "globals.hh"
46#include "G4CrossSectionDataStore.hh"
47#include "G4HadronElasticDataSet.hh"
48#include "G4VQCrossSection.hh"
49#include "G4QProtonElasticCrossSection.hh"
50#include "G4QNeutronElasticCrossSection.hh"
51#include "G4QCHIPSWorld.hh"
52#include "G4Element.hh"
53#include "G4ElementVector.hh"
54#include "G4IsotopeVector.hh"
55#include "G4Neutron.hh"
56#include "G4Proton.hh"
57#include "G4HadronElastic.hh"
58 
59G4UHadronElasticProcess::G4UHadronElasticProcess(const G4String& pName, G4double)
60  : G4HadronicProcess(pName), lowestEnergy(0.0), first(true)
61{
62  SetProcessSubType(fHadronElastic);
63  AddDataSet(new G4HadronElasticDataSet);
64  theProton   = G4Proton::Proton();
65  theNeutron  = G4Neutron::Neutron();
66  thEnergy    = 19.0*MeV;
67  verboseLevel= 1;
68  pCManager   = G4QProtonElasticCrossSection::GetPointer();
69  nCManager   = G4QNeutronElasticCrossSection::GetPointer();
70}
71
72G4UHadronElasticProcess::~G4UHadronElasticProcess()
73{
74}
75
76void G4UHadronElasticProcess::SetQElasticCrossSection(G4VQCrossSection* p)
77{
78  pCManager = p;
79}
80
81void G4UHadronElasticProcess::
82BuildPhysicsTable(const G4ParticleDefinition& aParticleType)
83{
84  if(first) {
85    first = false;
86    theParticle = &aParticleType;
87    pPDG = theParticle->GetPDGEncoding();
88
89    store = G4HadronicProcess::GetCrossSectionDataStore();
90
91    // defined lowest threshold for the projectile
92    if(theParticle->GetPDGCharge() != 0.0) lowestEnergy = eV;
93     
94    //    if(verboseLevel>1 ||
95    //   (verboseLevel==1 && theParticle == theNeutron)) {
96    if(verboseLevel>1 && theParticle == theNeutron) {
97    //      G4cout << G4endl;
98      G4cout << "G4UHadronElasticProcess for " 
99             << theParticle->GetParticleName()
100             << " PDGcode= " << pPDG
101             << "  Elow(MeV)= " << thEnergy/MeV
102             << "  Elowest(eV)= " << lowestEnergy/eV
103             << G4endl;
104    } 
105  }
106  G4HadronicProcess::BuildPhysicsTable(aParticleType);
107  //store->BuildPhysicsTable(aParticleType);
108}
109
110G4double G4UHadronElasticProcess::GetMeanFreePath(const G4Track& track, 
111                                                  G4double, 
112                                                  G4ForceCondition* cond)
113{
114  *cond = NotForced;
115  const G4DynamicParticle* dp = track.GetDynamicParticle();
116  cross = 0.0;
117  G4double x = DBL_MAX;
118
119  // Compute cross sesctions
120  const G4Material* material = track.GetMaterial();
121  const G4ElementVector* theElementVector = material->GetElementVector();
122  const G4double* theAtomNumDensityVector = material->GetVecNbOfAtomsPerVolume();
123  G4double temp = material->GetTemperature();
124  G4int nelm    = material->GetNumberOfElements();
125
126#ifdef G4VERBOSE
127  if(verboseLevel>1) 
128    G4cout << "G4UHadronElasticProcess get mfp for " 
129           << theParticle->GetParticleName() 
130           << "  p(GeV)= " << dp->GetTotalMomentum()/GeV
131           << " in " << material->GetName()
132           << G4endl; 
133#endif
134 
135  for (G4int i=0; i<nelm; i++) {
136    const G4Element* elm = (*theElementVector)[i];
137    G4double x = GetMicroscopicCrossSection(dp, elm, temp);
138    cross += theAtomNumDensityVector[i]*x;
139    xsec[i] = cross;
140  }
141
142#ifdef G4VERBOSE
143  if(verboseLevel>1) 
144    G4cout << "G4UHadronElasticProcess cross(1/mm)= " << cross
145           << "  E(MeV)= " << dp->GetKineticEnergy()
146           << "  " << theParticle->GetParticleName()
147           << "  in " << material->GetName()
148           << G4endl;
149#endif
150
151  if(cross > DBL_MIN) x = 1./cross;
152  return x;
153}
154
155G4double G4UHadronElasticProcess::GetMicroscopicCrossSection(
156                                  const G4DynamicParticle* dp, 
157                                  const G4Element* elm, 
158                                  G4double temp)
159{
160  // gives the microscopic cross section in GEANT4 internal units
161  G4int iz = G4int(elm->GetZ());
162  G4double x = 0.0;
163
164  // CHIPS cross sections
165  if(iz <= 2 && dp->GetKineticEnergy() > thEnergy && 
166     (theParticle == theProton || theParticle == theNeutron)) {
167
168    G4double momentum = dp->GetTotalMomentum();
169    G4IsotopeVector* isv = elm->GetIsotopeVector();
170    G4int ni = 0;
171    if(isv) ni = isv->size();
172
173    x = 0.0;
174    if(ni == 0) {
175      G4int N = G4int(elm->GetN()+0.5) - iz;
176#ifdef G4VERBOSE
177      if(verboseLevel>1) 
178        G4cout << "G4UHadronElasticProcess compute CHIPS CS for Z= " << iz
179               << " N= "  << N << " pdg= " << pPDG
180               << " mom(GeV)= " << momentum/GeV
181               << ", pC=" << pCManager << ", nC=" << nCManager << G4endl; 
182#endif
183      x = 0.;
184      if     (pPDG==2212) x = pCManager->GetCrossSection(false,momentum,iz,N,pPDG);
185      else if(pPDG==2112) x = nCManager->GetCrossSection(false,momentum,iz,N,pPDG);
186      xsecH[0] = x;
187    } else {
188      G4double* ab = elm->GetRelativeAbundanceVector();
189      for(G4int j=0; j<ni; j++) {
190        G4int N = (*isv)[j]->GetN() - iz;
191        if(iz == 1) {
192          if(N > 1) N = 1;
193        } else {
194          N = 2;
195        }
196#ifdef G4VERBOSE
197        if(verboseLevel>1) 
198          G4cout << "G4UHadronElasticProcess compute CHIPS CS for Z= " << iz
199                 << " N= "  << N << " pdg= " << pPDG
200                 << " mom(GeV)= " << momentum/GeV
201                 << ", pC=" << pCManager << ", nC=" << pCManager << G4endl; 
202#endif
203      G4double qxs=0.;
204      if     (pPDG==2212) qxs=pCManager->GetCrossSection(false,momentum,iz,N,pPDG);
205      else if(pPDG==2112) qxs=nCManager->GetCrossSection(false,momentum,iz,N,pPDG);
206        G4double y = ab[j]*qxs;
207        x += y;
208        xsecH[j] = x;
209      }
210    }
211
212    // GHAD cross section
213  } else {
214#ifdef G4VERBOSE
215    if(verboseLevel>1) 
216      G4cout << "G4UHadronElasticProcess compute GHAD CS for element " 
217             << elm->GetName() 
218             << G4endl; 
219#endif
220    x = store->GetCrossSection(dp, elm, temp);
221  }
222  // NaN finder
223  if(!(x < 0.0 || x >= 0.0)) {
224    if (verboseLevel > 1) {
225      G4cout << "G4UHadronElasticProcess:WARNING: Z= " << iz 
226             << " pdg= " <<  pPDG
227             << " mom(GeV)= " << dp->GetTotalMomentum()/GeV
228             << " cross= " << x
229             << " set to zero"
230             << G4endl; 
231    }
232    x = 0.0;
233  }
234
235#ifdef G4VERBOSE
236  if(verboseLevel>1) 
237    G4cout << "G4UHadronElasticProcess cross(mb)= " << x/millibarn
238           << "  E(MeV)= " << dp->GetKineticEnergy()
239           << "  " << theParticle->GetParticleName()
240           << "  in Z= " << iz
241           << G4endl;
242#endif
243
244  return x;
245}
246
247G4VParticleChange* G4UHadronElasticProcess::PostStepDoIt(
248                                  const G4Track& track, 
249                                  const G4Step& step)
250{
251  G4ForceCondition   cn;
252  aParticleChange.Initialize(track);
253  G4double kineticEnergy = track.GetKineticEnergy();
254  if(kineticEnergy <= lowestEnergy) 
255    return G4VDiscreteProcess::PostStepDoIt(track,step);
256
257  G4double mfp = GetMeanFreePath(track, 0.0, &cn);
258  if(mfp == DBL_MAX) 
259    return G4VDiscreteProcess::PostStepDoIt(track,step);
260
261  G4Material* material = track.GetMaterial();
262
263  // Select element
264  const G4ElementVector* theElementVector = material->GetElementVector();
265  G4Element* elm = (*theElementVector)[0];
266  G4int nelm = material->GetNumberOfElements() - 1;
267  if (nelm > 0) {
268    G4double x = G4UniformRand()*cross;
269    G4int i = -1;
270    do {i++;} while (x > xsec[i] && i < nelm);
271    elm = (*theElementVector)[i];
272  }
273  G4double Z = elm->GetZ();
274  G4double A = G4double(G4int(elm->GetN()+0.5));
275  G4int iz = G4int(Z);
276
277  // Select isotope
278  G4IsotopeVector* isv = elm->GetIsotopeVector(); 
279  G4int ni = 0;
280  if(isv) ni = isv->size();
281
282  if(ni == 1) { 
283    A = G4double((*isv)[0]->GetN());
284  } else if(ni > 1) {
285
286    G4double* ab = elm->GetRelativeAbundanceVector();
287    G4int j = -1;
288    ni--;
289    // Special treatment of hydrogen and helium for CHIPS
290    if(iz <= 2 && kineticEnergy > thEnergy &&
291       (theParticle == theProton || theParticle == theNeutron)) {
292      G4double x = G4UniformRand()*xsecH[ni];
293      do {j++;} while (x > xsecH[j] && j < ni);
294
295      // GHAD cross sections
296    } else {
297      G4double y = G4UniformRand();
298      do {
299        j++;
300        y -= ab[j];
301      } while (y > 0.0 && j < ni);
302    }
303    A = G4double((*isv)[j]->GetN());
304  } 
305
306  G4HadronicInteraction* hadi = 
307    ChooseHadronicInteraction( kineticEnergy, material, elm);
308
309  // Initialize the hadronic projectile from the track
310  //  G4cout << "track " << track.GetDynamicParticle()->Get4Momentum()<<G4endl;
311  G4HadProjectile thePro(track);
312  if(verboseLevel>1) 
313    G4cout << "G4UHadronElasticProcess::PostStepDoIt for " 
314           << theParticle->GetParticleName() 
315           << " Target Z= " << Z
316           << " A= " << A << G4endl; 
317  targetNucleus.SetParameters(A, Z);
318
319  aParticleChange.Initialize(track);
320  G4HadFinalState* result = hadi->ApplyYourself(thePro, targetNucleus);
321  G4ThreeVector indir = track.GetMomentumDirection();
322  G4ThreeVector outdir = (result->GetMomentumChange()).rotateUz(indir);
323 
324  if(verboseLevel>1) 
325    G4cout << "Efin= " << result->GetEnergyChange()
326           << " de= " << result->GetLocalEnergyDeposit()
327           << " nsec= " << result->GetNumberOfSecondaries()
328           << " dir= " << outdir
329           << G4endl;
330 
331  aParticleChange.ProposeEnergy(result->GetEnergyChange());
332  aParticleChange.ProposeMomentumDirection(outdir);
333  if(result->GetNumberOfSecondaries() > 0) {
334    aParticleChange.SetNumberOfSecondaries(1);
335    G4DynamicParticle* p = result->GetSecondary(0)->GetParticle();
336    G4ThreeVector pdir = p->GetMomentumDirection();
337    // G4cout << "recoil " << pdir << G4endl;
338    pdir = pdir.rotateUz(indir);
339    // G4cout << "recoil rotated " << pdir << G4endl;
340    p->SetMomentumDirection(pdir);
341    aParticleChange.AddSecondary(p);
342  } else {
343    aParticleChange.SetNumberOfSecondaries(0);
344    aParticleChange.ProposeLocalEnergyDeposit(result->GetLocalEnergyDeposit());
345  }
346  result->Clear();
347
348  return G4VDiscreteProcess::PostStepDoIt(track,step);
349}
350
351G4bool G4UHadronElasticProcess::
352IsApplicable(const G4ParticleDefinition& aParticleType)
353{
354   return (aParticleType == *(G4PionPlus::PionPlus()) ||
355           aParticleType == *(G4PionMinus::PionMinus()) ||
356           aParticleType == *(G4KaonPlus::KaonPlus()) ||
357           aParticleType == *(G4KaonZeroShort::KaonZeroShort()) ||
358           aParticleType == *(G4KaonZeroLong::KaonZeroLong()) ||
359           aParticleType == *(G4KaonMinus::KaonMinus()) ||
360           aParticleType == *(G4Proton::Proton()) ||
361           aParticleType == *(G4AntiProton::AntiProton()) ||
362           aParticleType == *(G4Neutron::Neutron()) ||
363           aParticleType == *(G4AntiNeutron::AntiNeutron()) ||
364           aParticleType == *(G4Lambda::Lambda()) ||
365           aParticleType == *(G4AntiLambda::AntiLambda()) ||
366           aParticleType == *(G4SigmaPlus::SigmaPlus()) ||
367           aParticleType == *(G4SigmaZero::SigmaZero()) ||
368           aParticleType == *(G4SigmaMinus::SigmaMinus()) ||
369           aParticleType == *(G4AntiSigmaPlus::AntiSigmaPlus()) ||
370           aParticleType == *(G4AntiSigmaZero::AntiSigmaZero()) ||
371           aParticleType == *(G4AntiSigmaMinus::AntiSigmaMinus()) ||
372           aParticleType == *(G4XiZero::XiZero()) ||
373           aParticleType == *(G4XiMinus::XiMinus()) ||
374           aParticleType == *(G4AntiXiZero::AntiXiZero()) ||
375           aParticleType == *(G4AntiXiMinus::AntiXiMinus()) ||
376           aParticleType == *(G4Deuteron::Deuteron()) ||
377           aParticleType == *(G4Triton::Triton()) ||
378           aParticleType == *(G4He3::He3()) ||
379           aParticleType == *(G4Alpha::Alpha()) ||
380           aParticleType == *(G4OmegaMinus::OmegaMinus()) ||
381           aParticleType == *(G4AntiOmegaMinus::AntiOmegaMinus()));
382}
383
384void G4UHadronElasticProcess::
385DumpPhysicsTable(const G4ParticleDefinition& aParticleType)
386{
387  store->DumpPhysicsTable(aParticleType);
388}
389
Note: See TracBrowser for help on using the repository browser.