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 // ------------------------------------------------------------------- 28 // 28 // 29 // GEANT4 Class file 29 // GEANT4 Class file 30 // 30 // 31 // 31 // 32 // File name: G4UrbanFluctuation 32 // File name: G4UrbanFluctuation 33 // 33 // 34 // Author: V. Ivanchenko for Laszlo Urb 34 // Author: V. Ivanchenko for Laszlo Urban 35 // 35 // 36 // Creation date: 14.02.2022 36 // Creation date: 14.02.2022 37 // 37 // 38 // Modifications: 38 // Modifications: 39 // 39 // 40 // 40 // 41 41 42 //....oooOO0OOooo........oooOO0OOooo........oo 42 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 43 //....oooOO0OOooo........oooOO0OOooo........oo 43 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 44 44 45 #include "G4UrbanFluctuation.hh" 45 #include "G4UrbanFluctuation.hh" 46 #include "G4PhysicalConstants.hh" 46 #include "G4PhysicalConstants.hh" 47 #include "G4SystemOfUnits.hh" 47 #include "G4SystemOfUnits.hh" 48 #include "Randomize.hh" 48 #include "Randomize.hh" 49 #include "G4Poisson.hh" 49 #include "G4Poisson.hh" 50 #include "G4Material.hh" 50 #include "G4Material.hh" 51 #include "G4Log.hh" 51 #include "G4Log.hh" 52 52 53 //....oooOO0OOooo........oooOO0OOooo........oo 53 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 54 54 55 G4UrbanFluctuation::G4UrbanFluctuation(const G 55 G4UrbanFluctuation::G4UrbanFluctuation(const G4String& nam) 56 : G4UniversalFluctuation(nam) 56 : G4UniversalFluctuation(nam) 57 {} 57 {} 58 58 59 //....oooOO0OOooo........oooOO0OOooo........oo 59 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 60 60 61 G4UrbanFluctuation::~G4UrbanFluctuation() = de 61 G4UrbanFluctuation::~G4UrbanFluctuation() = default; 62 62 63 //....oooOO0OOooo........oooOO0OOooo........oo 63 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 64 64 65 G4double G4UrbanFluctuation::SampleGlandz(CLHE 65 G4double G4UrbanFluctuation::SampleGlandz(CLHEP::HepRandomEngine* rndmEngineF, 66 cons 66 const G4Material* material, 67 const G4double tcut) 67 const G4double tcut) 68 { 68 { 69 if (material != lastMaterial) { 69 if (material != lastMaterial) { 70 auto ioni = material->GetIonisation(); 70 auto ioni = material->GetIonisation(); 71 f1Fluct = ioni->GetF1fluct(); 71 f1Fluct = ioni->GetF1fluct(); 72 f2Fluct = ioni->GetF2fluct(); 72 f2Fluct = ioni->GetF2fluct(); 73 e1Fluct = ioni->GetEnergy1fluct(); 73 e1Fluct = ioni->GetEnergy1fluct(); 74 e2Fluct = ioni->GetEnergy2fluct(); 74 e2Fluct = ioni->GetEnergy2fluct(); 75 e1LogFluct = ioni->GetLogEnergy1fluct(); 75 e1LogFluct = ioni->GetLogEnergy1fluct(); 76 e2LogFluct = ioni->GetLogEnergy2fluct(); 76 e2LogFluct = ioni->GetLogEnergy2fluct(); 77 esmall = 0.5*std::sqrt(e0*ipotFluct); 77 esmall = 0.5*std::sqrt(e0*ipotFluct); 78 lastMaterial = material; 78 lastMaterial = material; 79 } 79 } 80 80 81 G4double a1(0.0), a2(0.0), a3(0.0); 81 G4double a1(0.0), a2(0.0), a3(0.0); 82 G4double loss = 0.0; 82 G4double loss = 0.0; 83 G4double e1 = e1Fluct; 83 G4double e1 = e1Fluct; 84 G4double e2 = e2Fluct; 84 G4double e2 = e2Fluct; 85 85 86 if(tcut > ipotFluct) { 86 if(tcut > ipotFluct) { 87 if(w2 > ipotLogFluct) { 87 if(w2 > ipotLogFluct) { 88 if(w2 > e2LogFluct) { 88 if(w2 > e2LogFluct) { 89 const G4double C = meanLoss*(1.-rate)/(w2-ip 89 const G4double C = meanLoss*(1.-rate)/(w2-ipotLogFluct); 90 a1 = C*f1Fluct*(w2-e1LogFluct)/e1Fluct; 90 a1 = C*f1Fluct*(w2-e1LogFluct)/e1Fluct; 91 a2 = C*f2Fluct*(w2-e2LogFluct)/e2Fluct; 91 a2 = C*f2Fluct*(w2-e2LogFluct)/e2Fluct; 92 } else { 92 } else { 93 a1 = meanLoss*(1.-rate)/e1; 93 a1 = meanLoss*(1.-rate)/e1; 94 } 94 } 95 if(a1 < a0) { 95 if(a1 < a0) { 96 const G4double fwnow = 0.5+(fw-0.5)*st 96 const G4double fwnow = 0.5+(fw-0.5)*std::sqrt(a1/a0); 97 a1 /= fwnow; 97 a1 /= fwnow; 98 e1 *= fwnow; 98 e1 *= fwnow; 99 } else { 99 } else { 100 a1 /= fw; 100 a1 /= fw; 101 e1 *= fw; 101 e1 *= fw; 102 } 102 } 103 } 103 } 104 } 104 } 105 105 106 const G4double w1 = tcut/e0; 106 const G4double w1 = tcut/e0; 107 a3 = rate*meanLoss*(tcut-e0)/(e0*tcut*G4Log( 107 a3 = rate*meanLoss*(tcut-e0)/(e0*tcut*G4Log(w1)); 108 if(a1+a2 <= 0.) { a3 /= rate; } 108 if(a1+a2 <= 0.) { a3 /= rate; } 109 109 110 //'nearly' Gaussian fluctuation if a1>nmaxCo 110 //'nearly' Gaussian fluctuation if a1>nmaxCont&&a2>nmaxCont&&a3>nmaxCont 111 G4double emean = 0.; 111 G4double emean = 0.; 112 G4double sig2e = 0.; 112 G4double sig2e = 0.; 113 113 114 // excitation of type 1 114 // excitation of type 1 115 if(a1 > 0.0) { AddExcitation(rndmEngineF, a1 115 if(a1 > 0.0) { AddExcitation(rndmEngineF, a1, e1, emean, loss, sig2e); } 116 116 117 // excitation of type 2 117 // excitation of type 2 118 if(a2 > 0.0) { AddExcitation(rndmEngineF, a2 118 if(a2 > 0.0) { AddExcitation(rndmEngineF, a2, e2, emean, loss, sig2e); } 119 119 120 if(sig2e > 0.0) { SampleGauss(rndmEngineF, e 120 if(sig2e > 0.0) { SampleGauss(rndmEngineF, emean, sig2e, loss); } 121 121 122 // ionisation 122 // ionisation 123 if(a3 > 0.) { 123 if(a3 > 0.) { 124 emean = 0.; 124 emean = 0.; 125 sig2e = 0.; 125 sig2e = 0.; 126 G4double p3 = a3; 126 G4double p3 = a3; 127 G4double alfa = 1.; 127 G4double alfa = 1.; 128 if(a3 > nmaxCont) { 128 if(a3 > nmaxCont) { 129 alfa = w1*(nmaxCont+a3)/(w1*nmaxCont+a3) 129 alfa = w1*(nmaxCont+a3)/(w1*nmaxCont+a3); 130 const G4double alfa1 = alfa*G4Log(alfa) 130 const G4double alfa1 = alfa*G4Log(alfa)/(alfa-1.); 131 const G4double namean = a3*w1*(alfa-1.)/ 131 const G4double namean = a3*w1*(alfa-1.)/((w1-1.)*alfa); 132 emean += namean*e0*alfa1; 132 emean += namean*e0*alfa1; 133 sig2e += e0*e0*namean*(alfa-alfa1*alfa1) 133 sig2e += e0*e0*namean*(alfa-alfa1*alfa1); 134 p3 -= namean; 134 p3 -= namean; 135 } 135 } 136 136 137 const G4double w3 = alfa*e0; 137 const G4double w3 = alfa*e0; 138 if(tcut > w3) { 138 if(tcut > w3) { 139 const G4double w = (tcut-w3)/tcut; 139 const G4double w = (tcut-w3)/tcut; 140 const G4int nnb = (G4int)G4Poisson(p3); 140 const G4int nnb = (G4int)G4Poisson(p3); 141 if(nnb > 0) { 141 if(nnb > 0) { 142 if(nnb > sizearray) { 142 if(nnb > sizearray) { 143 sizearray = nnb; 143 sizearray = nnb; 144 delete [] rndmarray; 144 delete [] rndmarray; 145 rndmarray = new G4double[nnb]; 145 rndmarray = new G4double[nnb]; 146 } 146 } 147 rndmEngineF->flatArray(nnb, rndmarray) 147 rndmEngineF->flatArray(nnb, rndmarray); 148 for (G4int k=0; k<nnb; ++k) { loss += 148 for (G4int k=0; k<nnb; ++k) { loss += w3/(1.-w*rndmarray[k]); } 149 } 149 } 150 } 150 } 151 if(sig2e > 0.0) { SampleGauss(rndmEngineF, 151 if(sig2e > 0.0) { SampleGauss(rndmEngineF, emean, sig2e, loss); } 152 } 152 } 153 //G4cout << "### loss=" << loss << G4endl; 153 //G4cout << "### loss=" << loss << G4endl; 154 return loss; 154 return loss; 155 } 155 } 156 156 157 //....oooOO0OOooo........oooOO0OOooo........oo 157 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo...... 158 158