Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,94 @@
+// This code implementation is the intellectual property of
+// the RD44 GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: G4SimpleIntegration.hh,v 2.1 1998/07/12 02:58:44 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+// Class for realisation of simple numerical methodes for integration of functions
+// with signature: double f(double). The methods based mainly on algorithms given in
+// the book : An introduction to NUMERICAL METHODS IN C++, B.H. Flowers, Claredon
+// Press, Oxford, 1995
+//
+// --------------------------- Member data: -------------------------------------
+//
+//           fFunction       - pointer to the function to be integrated
+//           fTolerance      - accuracy of integration in Adaptive Gauss method
+//           fMaxDepth = 100 - constant maximum iteration depth for
+//                             Adaptive Gauss method
+//
+// --------------------------- Methods: -----------------------------------------
+//
+//          Trapezoidal, MidPoint, Gauss,
+//          and Simpson(double a,double b,int n) - integrate function pointed 
+//          by fFunction from a to b by n iterations, i.e. with Step (b-a)/n 
+//          according to the correspondent method
+//
+//  AdaptGausIntegration(double a, double b) - integrate function from a to be with
+//                                             accuracy <= fTolerance 
+//
+// ----------------------------- History: ---------------------------------------- 
+//
+//  26.03.97   V.Grichine ( Vladimir.Grichine@cern.ch )
+
+#ifndef G4SIMPLEINTEGRATION_HH
+#define G4SIMPLEINTEGRATION_HH
+
+#include "globals.hh"
+
+typedef G4double (*function)(G4double) ;
+
+class G4SimpleIntegration
+{
+public:
+       G4SimpleIntegration( function pFunction ) ;
+       
+       G4SimpleIntegration( function pFunction,
+                            G4double pTolerance ) ;
+       
+      ~G4SimpleIntegration() ;
+       
+       // Simple integration methods
+       
+       G4double Trapezoidal(G4double xInitial,
+                            G4double xFinal,
+			    G4int iterationNumber ) ;
+
+       G4double    MidPoint(G4double xInitial,
+                            G4double xFinal,
+			    G4int iterationNumber ) ;
+
+       G4double       Gauss(G4double xInitial,
+                            G4double xFinal,
+			    G4int iterationNumber ) ;
+
+       G4double     Simpson(G4double xInitial,
+                            G4double xFinal,
+			    G4int iterationNumber ) ;
+
+       // Adaptive Gauss integration with accuracy ~ fTolerance
+       
+       G4double       AdaptGaussIntegration( G4double xInitial,
+                                             G4double xFinal   ) ;
+       
+ 			    
+protected:
+       G4double       Gauss( G4double xInitial,
+                             G4double xFinal   ) ;
+
+       void      AdaptGauss( G4double xInitial,
+                             G4double xFinal,
+			     G4double& sum,
+			     G4int& depth      ) ;
+
+private:
+
+        function fFunction ;
+	G4double fTolerance ;
+	static G4int fMaxDepth ;
+} ;
+
+#endif