[1197] | 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: G4LindhardPartition.cc,v 1.1 2009/11/05 11:42:24 vnivanch Exp $ |
---|
| 27 | // GEANT4 tag $Name: geant4-09-03-cand-01 $ |
---|
| 28 | // |
---|
| 29 | |
---|
| 30 | /* |
---|
| 31 | * G4LindhardPartition.cc |
---|
| 32 | * |
---|
| 33 | * Created by Marcus Mendenhall on 1/14/08. |
---|
| 34 | * Copyright 2008 Vanderbilt University, Nashville, TN, USA. All rights reserved. |
---|
| 35 | * |
---|
| 36 | */ |
---|
| 37 | |
---|
| 38 | #include "G4LindhardPartition.hh" |
---|
| 39 | #include "G4Material.hh" |
---|
| 40 | #include "G4Element.hh" |
---|
| 41 | |
---|
| 42 | /* |
---|
| 43 | for a first cut, we will compute NIEL from a Lindhard-Robinson partition |
---|
| 44 | based on the most abundant element in the material. |
---|
| 45 | |
---|
| 46 | this is from IEEE Trans. Nucl Science Vol. 48 No.1 February 2001 page 162++ |
---|
| 47 | Insoo Jun, "Effects of Secondary Particles on the Total Dose..." |
---|
| 48 | and, by reference, |
---|
| 49 | Lindhard, Nielsen, Scharff & Thompson, |
---|
| 50 | "Integral Equations Governing Radiation Efects...", |
---|
| 51 | Mat. Fys. Medd. Dan. Vid. Selsk. vol 33 #10, pp1-42, 1963 |
---|
| 52 | and |
---|
| 53 | Robinson, "The dependence of radiation effects on primary recoil energy", |
---|
| 54 | in Proc. Int. Conf. Radiation-Induced Voids in Metal, |
---|
| 55 | Albany, NY 1972 pp. 397-439 |
---|
| 56 | def lindhard_robinson(z1, a1, z2, a2, ke): |
---|
| 57 | el=30.724*z1*z2*math.sqrt(z1**0.6667+z2**0.6667)*(a1+a2)/a2 |
---|
| 58 | fl=0.0793*z1**0.6667*math.sqrt(z2)*(a1+a2)**1.5/ |
---|
| 59 | ((z1**0.6667+z2**0.6667)**0.75*a1**1.5*math.sqrt(a2)) |
---|
| 60 | eps=ke*(1.0/el) |
---|
| 61 | return 1.0/(1+fl*(3.4008*eps**0.16667+0.40244*eps**0.75+eps)) |
---|
| 62 | */ |
---|
| 63 | |
---|
| 64 | G4LindhardRobinsonPartition::G4LindhardRobinsonPartition() |
---|
| 65 | { |
---|
| 66 | max_z = 120; |
---|
| 67 | for(size_t i=1; i<max_z; i++) {z23[i]=std::pow((G4double)i, 2./3.);} |
---|
| 68 | } |
---|
| 69 | |
---|
| 70 | G4double G4LindhardRobinsonPartition::PartitionNIEL( |
---|
| 71 | G4int z1, G4double a1, const G4Material *material, G4double energy) const |
---|
| 72 | { |
---|
| 73 | size_t nMatElements = material->GetNumberOfElements(); |
---|
| 74 | |
---|
| 75 | const G4double *atomDensities=material->GetVecNbOfAtomsPerVolume(); |
---|
| 76 | G4double maxdens=0.0; |
---|
| 77 | size_t maxindex=0; |
---|
| 78 | for (size_t k=0 ; k < nMatElements ; k++ ) |
---|
| 79 | { |
---|
| 80 | if(atomDensities[k] > maxdens) { |
---|
| 81 | maxdens=atomDensities[k]; |
---|
| 82 | maxindex=k; |
---|
| 83 | } |
---|
| 84 | } |
---|
| 85 | const G4Element *element=material->GetElement(maxindex); |
---|
| 86 | |
---|
| 87 | G4int z2=G4int(element->GetZ()); |
---|
| 88 | |
---|
| 89 | G4double a2=element->GetA()/(Avogadro*amu); |
---|
| 90 | |
---|
| 91 | G4double zpow=z23[z1]+z23[z2]; |
---|
| 92 | G4double asum=a1+a2; |
---|
| 93 | |
---|
| 94 | G4double el=30.724*z1*z2*std::sqrt(zpow)*asum/a2; |
---|
| 95 | G4double fl=0.0793*z23[z1]*std::sqrt(z2*asum*asum*asum/(a1*a1*a1*a2))/std::pow(zpow, 0.75); |
---|
| 96 | G4double eps=(energy/eV)*(1.0/el); |
---|
| 97 | |
---|
| 98 | return 1.0/(1+fl*(3.4008*std::pow(eps, 0.16667)+0.40244*std::pow(eps, 0.75)+eps)); |
---|
| 99 | } |
---|
| 100 | |
---|