| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. *
24 // ******************************************* 24 // ********************************************************************
25 // 25 //
>> 26 //
26 27
27 #include "G4XTRTransparentRegRadModel.hh" << 28 #include <complex>
28 29
>> 30 #include "G4XTRTransparentRegRadModel.hh"
29 #include "G4PhysicalConstants.hh" 31 #include "G4PhysicalConstants.hh"
>> 32 #include "Randomize.hh"
>> 33 #include "G4Integrator.hh"
>> 34 #include "G4Gamma.hh"
30 35
31 ////////////////////////////////////////////// 36 ////////////////////////////////////////////////////////////////////////////
>> 37 //
32 // Constructor, destructor 38 // Constructor, destructor
33 G4XTRTransparentRegRadModel::G4XTRTransparentR << 39
34 G4LogicalVolume* anEnvelope, G4Material* foi << 40 G4XTRTransparentRegRadModel::G4XTRTransparentRegRadModel(G4LogicalVolume *anEnvelope,
35 G4double a, G4double b, G4int n, const G4Str << 41 G4Material* foilMat,G4Material* gasMat,
36 : G4VXTRenergyLoss(anEnvelope, foilMat, gasM << 42 G4double a, G4double b, G4int n,
>> 43 const G4String& processName) :
>> 44 G4VXTRenergyLoss(anEnvelope,foilMat,gasMat,a,b,n,processName)
37 { 45 {
38 G4cout << "Regular transparent X-ray TR rad << 46 G4cout<<"Regular transparent X-ray TR radiator EM process is called"<<G4endl;
39 << G4endl; <<
40 47
>> 48 // Build energy and angular integral spectra of X-ray TR photons from
>> 49 // a radiator
41 fExitFlux = true; 50 fExitFlux = true;
42 fAlphaPlate = 10000; 51 fAlphaPlate = 10000;
43 fAlphaGas = 1000; 52 fAlphaGas = 1000;
>> 53
>> 54 // BuildTable();
44 } 55 }
45 56
46 ////////////////////////////////////////////// 57 ///////////////////////////////////////////////////////////////////////////
47 G4XTRTransparentRegRadModel::~G4XTRTransparent <<
48 58
49 ////////////////////////////////////////////// << 59 G4XTRTransparentRegRadModel::~G4XTRTransparentRegRadModel()
50 void G4XTRTransparentRegRadModel::ProcessDescr <<
51 { 60 {
52 out << "Process describing radiator of X-ray << 61 ;
53 } 62 }
54 63
55 ////////////////////////////////////////////// 64 ///////////////////////////////////////////////////////////////////////////
>> 65 //
>> 66 //
>> 67
56 G4double G4XTRTransparentRegRadModel::Spectral 68 G4double G4XTRTransparentRegRadModel::SpectralXTRdEdx(G4double energy)
57 { 69 {
58 static constexpr G4double cofPHC = 4. * pi * << 70 G4double result, sum = 0., tmp, cof1, cof2, cofMin, cofPHC,aMa, bMb, sigma;
59 G4double result, sum = 0., tmp, cof1, cof2, <<
60 G4int k, kMax, kMin; 71 G4int k, kMax, kMin;
61 72
62 aMa = GetPlateLinearPhotoAbs(energy); 73 aMa = GetPlateLinearPhotoAbs(energy);
63 bMb = GetGasLinearPhotoAbs(energy); 74 bMb = GetGasLinearPhotoAbs(energy);
64 75
65 if(fCompton) 76 if(fCompton)
66 { 77 {
67 aMa += GetPlateCompton(energy); 78 aMa += GetPlateCompton(energy);
68 bMb += GetGasCompton(energy); 79 bMb += GetGasCompton(energy);
69 } 80 }
70 aMa *= fPlateThick; 81 aMa *= fPlateThick;
71 bMb *= fGasThick; 82 bMb *= fGasThick;
72 83
73 sigma = aMa + bMb; 84 sigma = aMa + bMb;
>> 85
>> 86 cofPHC = 4.*pi*hbarc;
>> 87 tmp = (fSigma1 - fSigma2)/cofPHC/energy;
>> 88 cof1 = fPlateThick*tmp;
>> 89 cof2 = fGasThick*tmp;
74 90
75 tmp = (fSigma1 - fSigma2) / cofPHC / energy << 91 cofMin = energy*(fPlateThick + fGasThick)/fGamma/fGamma;
76 cof1 = fPlateThick * tmp; << 92 cofMin += (fPlateThick*fSigma1 + fGasThick*fSigma2)/energy;
77 cof2 = fGasThick * tmp; <<
78 <<
79 cofMin = energy * (fPlateThick + fGasThick) <<
80 cofMin += (fPlateThick * fSigma1 + fGasThick <<
81 cofMin /= cofPHC; 93 cofMin /= cofPHC;
82 94
>> 95 // if (fGamma < 1200) kMin = G4int(cofMin); // 1200 ?
>> 96 // else kMin = 1;
>> 97
>> 98
83 kMin = G4int(cofMin); 99 kMin = G4int(cofMin);
84 if(cofMin > kMin) << 100 if (cofMin > kMin) kMin++;
85 kMin++; <<
86 101
87 kMax = kMin + 19; << 102 // tmp = (fPlateThick + fGasThick)*energy*fMaxThetaTR;
>> 103 // tmp /= cofPHC;
>> 104 // kMax = G4int(tmp);
>> 105 // if(kMax < 0) kMax = 0;
>> 106 // kMax += kMin;
>> 107
>> 108
>> 109 kMax = kMin + 19; // 5; // 9; // kMin + G4int(tmp);
>> 110
>> 111 // tmp /= fGamma;
>> 112 // if( G4int(tmp) < kMin ) kMin = G4int(tmp);
>> 113 // G4cout<<"kMin = "<<kMin<<"; kMax = "<<kMax<<G4endl;
88 114
89 for(k = kMin; k <= kMax; k++) << 115 for( k = kMin; k <= kMax; k++ )
90 { 116 {
91 tmp = pi * fPlateThick * (k + cof2) / ( << 117 tmp = pi*fPlateThick*(k + cof2)/(fPlateThick + fGasThick);
92 result = (k - cof1) * (k - cof1) * (k + co << 118 result = (k - cof1)*(k - cof1)*(k + cof2)*(k + cof2);
93 119
94 if(k == kMin && kMin == G4int(cofMin)) << 120 if( k == kMin && kMin == G4int(cofMin) )
95 { 121 {
96 sum += << 122 sum += 0.5*std::sin(tmp)*std::sin(tmp)*std::abs(k-cofMin)/result;
97 0.5 * std::sin(tmp) * std::sin(tmp) * <<
98 } 123 }
99 else 124 else
100 { 125 {
101 sum += std::sin(tmp) * std::sin(tmp) * s << 126 sum += std::sin(tmp)*std::sin(tmp)*std::abs(k-cofMin)/result;
102 } 127 }
>> 128 // G4cout<<"k = "<<k<<"; sum = "<<sum<<G4endl;
103 } 129 }
104 result = 4. * (cof1 + cof2) * (cof1 + cof2) << 130 result = 4.*( cof1 + cof2 )*( cof1 + cof2 )*sum/energy;
105 result *= (1. - std::exp(-fPlateNumber * sig << 131 result *= ( 1. - std::exp(-fPlateNumber*sigma) )/( 1. - std::exp(-sigma) );
106 return result; 132 return result;
107 } 133 }
108 134
>> 135
109 ////////////////////////////////////////////// 136 ///////////////////////////////////////////////////////////////////////////
>> 137 //
110 // Approximation for radiator interference fac 138 // Approximation for radiator interference factor for the case of
111 // fully Regular radiator. The plate and gas g << 139 // fully Regular radiator. The plate and gas gap thicknesses are fixed .
112 // The mean values of the plate and gas gap th << 140 // The mean values of the plate and gas gap thicknesses
113 // are supposed to be about XTR formation zone << 141 // are supposed to be about XTR formation zones but much less than
114 // mean absorption length of XTR photons in co << 142 // mean absorption length of XTR photons in coresponding material.
115 G4double G4XTRTransparentRegRadModel::GetStack << 143
116 << 144 G4double
117 << 145 G4XTRTransparentRegRadModel::GetStackFactor( G4double energy,
>> 146 G4double gamma, G4double varAngle )
118 { 147 {
119 G4double aZa = fPlateThick / GetPlateForma << 148 /*
120 G4double bZb = fGasThick / GetGasFormation << 149 G4double result, Za, Zb, Ma, Mb, sigma;
121 G4double aMa = fPlateThick * GetPlateLinea << 150
122 G4double bMb = fGasThick * GetGasLinearPho << 151 Za = GetPlateFormationZone(energy,gamma,varAngle);
123 G4double sigma = aMa * fPlateThick + bMb * f << 152 Zb = GetGasFormationZone(energy,gamma,varAngle);
124 G4double Qa = std::exp(-0.5 * aMa); << 153 Ma = GetPlateLinearPhotoAbs(energy);
125 G4double Qb = std::exp(-0.5 * bMb); << 154 Mb = GetGasLinearPhotoAbs(energy);
126 G4double Q = Qa * Qb; << 155 sigma = Ma*fPlateThick + Mb*fGasThick;
127 << 156
128 G4complex Ha(Qa * std::cos(aZa), -Qa * std:: << 157 G4complex Ca(1.0+0.5*fPlateThick*Ma/fAlphaPlate,fPlateThick/Za/fAlphaPlate);
129 G4complex Hb(Qb * std::cos(bZb), -Qb * std:: << 158 G4complex Cb(1.0+0.5*fGasThick*Mb/fAlphaGas,fGasThick/Zb/fAlphaGas);
130 G4complex H = Ha * Hb; << 159
>> 160 G4complex Ha = std::pow(Ca,-fAlphaPlate);
>> 161 G4complex Hb = std::pow(Cb,-fAlphaGas);
>> 162 G4complex H = Ha*Hb;
>> 163 G4complex F1 = (1.0 - Ha)*(1.0 - Hb )/(1.0 - H)
>> 164 * G4double(fPlateNumber) ;
>> 165 G4complex F2 = (1.0-Ha)*(1.0-Ha)*Hb/(1.0-H)/(1.0-H)
>> 166 * (1.0 - std::exp(-0.5*fPlateNumber*sigma)) ;
>> 167 // *(1.0 - std::pow(H,fPlateNumber)) ;
>> 168 G4complex R = (F1 + F2)*OneInterfaceXTRdEdx(energy,gamma,varAngle);
>> 169 // G4complex R = F2*OneInterfaceXTRdEdx(energy,gamma,varAngle);
>> 170 result = 2.0*std::real(R);
>> 171 return result;
>> 172 */
>> 173 // numerically unstable result
>> 174
>> 175 G4double result, Qa, Qb, Q, aZa, bZb, aMa, bMb, D, sigma;
>> 176
>> 177 aZa = fPlateThick/GetPlateFormationZone(energy,gamma,varAngle);
>> 178 bZb = fGasThick/GetGasFormationZone(energy,gamma,varAngle);
>> 179 aMa = fPlateThick*GetPlateLinearPhotoAbs(energy);
>> 180 bMb = fGasThick*GetGasLinearPhotoAbs(energy);
>> 181 sigma = aMa*fPlateThick + bMb*fGasThick;
>> 182 Qa = std::exp(-0.5*aMa);
>> 183 Qb = std::exp(-0.5*bMb);
>> 184 Q = Qa*Qb;
>> 185
>> 186 G4complex Ha( Qa*std::cos(aZa), -Qa*std::sin(aZa) );
>> 187 G4complex Hb( Qb*std::cos(bZb), -Qb*std::sin(bZb) );
>> 188 G4complex H = Ha*Hb;
131 G4complex Hs = conj(H); 189 G4complex Hs = conj(H);
132 G4double D = << 190 D = 1.0 /( (1. - Q)*(1. - Q) +
133 1.0 / ((1. - Q) * (1. - Q) + << 191 4.*Q*std::sin(0.5*(aZa + bZb))*std::sin(0.5*(aZa + bZb)) );
134 4. * Q * std::sin(0.5 * (aZa + bZb) << 192 G4complex F1 = (1.0 - Ha)*(1.0 - Hb)*(1.0 - Hs)
135 G4complex F1 = << 193 * G4double(fPlateNumber)*D;
136 (1.0 - Ha) * (1.0 - Hb) * (1.0 - Hs) * G4d << 194 G4complex F2 = (1.0 - Ha)*(1.0 - Ha)*Hb*(1.0 - Hs)*(1.0 - Hs)
137 G4complex F2 = (1.0 - Ha) * (1.0 - Ha) * Hb << 195 // * (1.0 - std::pow(H,fPlateNumber)) * D*D;
138 (1.0 - std::exp(-0.5 * fPlate << 196 * (1.0 - std::exp(-0.5*fPlateNumber*sigma)) * D*D;
139 G4complex R = (F1 + F2) * OneInterfaceXTRdEd << 197 G4complex R = (F1 + F2)*OneInterfaceXTRdEdx(energy,gamma,varAngle);
140 return 2.0 * std::real(R); << 198 result = 2.0*std::real(R);
>> 199 return result;
>> 200
141 } 201 }
>> 202
>> 203
>> 204 //
>> 205 //
>> 206 ////////////////////////////////////////////////////////////////////////////
>> 207
>> 208
>> 209
>> 210
>> 211
>> 212
>> 213
>> 214
142 215