Changeset 1005 for trunk/source/processes/electromagnetic/standard/src/G4BohrFluctuations.cc

Timestamp:

Apr 20, 2009, 4:53:50 PM (15 years ago)

Author:

garnier

Message:

fichier oublies

File:

• trunk/source/processes/electromagnetic/standard/src/G4BohrFluctuations.cc (modified) (2 diffs)

trunk/source/processes/electromagnetic/standard/src/G4BohrFluctuations.cc

@@ -24 +24 @@
 // ********************************************************************
 //
-// $Id: G4BohrFluctuations.cc,v 1.6 2007/09/27 14:02:41 vnivanch Exp $
-// GEANT4 tag $Name: geant4-09-02 $
+// $Id: G4BohrFluctuations.cc,v 1.7 2009/02/19 19:17:50 vnivanch Exp $
+// GEANT4 tag $Name: geant4-09-02-ref-02 $
 //
 // -------------------------------------------------------------------
@@ -137 +137 @@
 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
 
+G4double G4BohrFluctuations::Dispersion(const G4Material* material,
+                                        const G4DynamicParticle* dp,
+                                        G4double& tmax,
+                                        G4double& length)
+{
+  if(!particle) InitialiseMe(dp->GetDefinition());
 
+  G4double electronDensity = material->GetElectronDensity();
+  kineticEnergy = dp->GetKineticEnergy();
+  G4double etot = kineticEnergy + particleMass;
+  beta2 = kineticEnergy*(kineticEnergy + 2.0*particleMass)/(etot*etot);
+  G4double siga  = (1.0/beta2 - 0.5) * twopi_mc2_rcl2 * tmax * length
+                 * electronDensity * chargeSquare;
+
+  return siga;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+