| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26
27 #include "G4LENDElastic.hh"
28 #include "G4Pow.hh"
29 #include "G4PhysicalConstants.hh"
30 #include "G4SystemOfUnits.hh"
31 #include "G4Nucleus.hh"
32 #include "G4IonTable.hh"
33
34 //extern "C" double MyRNG(void*) { return dran
35 //extern "C" double MyRNG(void*) { return CLH
36
37 G4HadFinalState * G4LENDElastic::ApplyYourself
38 {
39
40 G4double temp = aTrack.GetMaterial()->GetTe
41
42 //G4int iZ = int ( aTarg.GetZ() );
43 //G4int iA = int ( aTarg.GetN() );
44 //migrate to integer A and Z (GetN_asInt re
45 G4int iZ = aTarg.GetZ_asInt();
46 G4int iA = aTarg.GetA_asInt();
47 G4int iM = 0;
48 if ( aTarg.GetIsotope() != NULL ) {
49 iM = aTarg.GetIsotope()->Getm();
50 }
51
52 G4double ke = aTrack.GetKineticEnergy();
53
54 G4HadFinalState* theResult = &theParticleCh
55 theResult->Clear();
56
57 G4GIDI_target* aTarget = get_target_from_ma
58 if ( aTarget == NULL ) return returnUnchang
59
60 G4double aMu = aTarget->getElasticFinalStat
61
62 G4double phi = twopi*G4UniformRand();
63 G4double theta = std::acos( aMu );
64 //G4double sinth = std::sin( theta );
65
66 G4ReactionProduct theNeutron( aTrack.GetDef
67 theNeutron.SetMomentum( aTrack.Get4Momentum
68 theNeutron.SetKineticEnergy( ke );
69
70 //G4ParticleDefinition* pd = G4IonTable::Ge
71 //TK 170509 Fix for the case of excited iso
72 G4double EE = 0.0;
73 if ( iM != 0 ) {
74 G4LENDManager::GetInstance()->GetExcitat
75 }
76 G4ParticleDefinition* target_pd = G4IonTabl
77 G4ReactionProduct theTarget( target_pd );
78
79 G4double mass = target_pd->GetPDGMass();
80
81 // add Thermal motion
82 G4double kT = k_Boltzmann*temp;
83 G4ThreeVector v ( G4RandGauss::shoot() * st
84 , G4RandGauss::shoot() * st
85 , G4RandGauss::shoot() * st
86 theTarget.SetMomentum( v );
87
88 G4ThreeVector the3Neutron = theNeutron.Ge
89 G4double nEnergy = theNeutron.GetTotalEne
90 G4ThreeVector the3Target = theTarget.GetM
91 G4double tEnergy = theTarget.GetTotalEner
92 G4ReactionProduct theCMS;
93 G4double totE = nEnergy+tEnergy;
94 G4ThreeVector the3CMS = the3Target+the3Ne
95 theCMS.SetMomentum(the3CMS);
96 G4double cmsMom = std::sqrt(the3CMS*the3C
97 G4double sqrts = std::sqrt((totE-cmsMom)*
98 theCMS.SetMass(sqrts);
99 theCMS.SetTotalEnergy(totE);
100
101 theNeutron.Lorentz(theNeutron, theCMS);
102 theTarget.Lorentz(theTarget, theCMS);
103 G4double en = theNeutron.GetTotalMoment
104 G4ThreeVector cms3Mom=theNeutron.GetMom
105 G4double cms_theta=cms3Mom.theta();
106 G4double cms_phi=cms3Mom.phi();
107 G4ThreeVector tempVector;
108 tempVector.setX( std::cos(theta)*std::s
109 +std::sin(theta)*std::c
110 -std::sin(theta)*std::s
111 tempVector.setY( std::cos(theta)*std::s
112 +std::sin(theta)*std::c
113 +std::sin(theta)*std::s
114 tempVector.setZ( std::cos(theta)*std::c
115 -std::sin(theta)*std::c
116 tempVector *= en;
117 theNeutron.SetMomentum(tempVector);
118 theTarget.SetMomentum(-tempVector);
119 G4double tP = theTarget.GetTotalMomentu
120 G4double tM = theTarget.GetMass();
121 theTarget.SetTotalEnergy(std::sqrt((tP+
122
123
124 theNeutron.Lorentz(theNeutron, -1.*theCM
125 theTarget.Lorentz(theTarget, -1.*theCMS)
126
127 //110913 Add Protection for very low energy (1
128 if ( theNeutron.GetKineticEnergy() <= 0
129 {
130 theNeutron.SetTotalEnergy ( theNeutro
131 }
132
133 if ( theTarget.GetKineticEnergy() < 0 )
134 {
135 theTarget.SetTotalEnergy ( theTarget.
136 }
137 //110913 END
138
139 theResult->SetEnergyChange(theNeutron.Get
140 theResult->SetMomentumChange(theNeutron.G
141 G4DynamicParticle* theRecoil = new G4Dyna
142
143 theRecoil->SetDefinition( target_pd );
144 theRecoil->SetMomentum( theTarget.GetMome
145 theResult->AddSecondary( theRecoil, secID
146
147 return theResult;
148
149 }
150
151