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,60 @@
+// 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: G4GaussChebyshevQ.cc,v 2.0 1998/07/02 17:32:01 gunter Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#include "G4GaussChebyshevQ.hh"
+
+// -----------------------------------------------------
+//
+// Constructor for Gauss-Chebyshev quadrature method
+
+G4GaussChebyshevQ::G4GaussChebyshevQ( function pFunction ,
+			              G4int nChebyshev       )
+   : G4VGaussianQuadrature(pFunction)
+{
+   G4int i ;
+   fNumber = nChebyshev  ;   // Try to reduce fNumber twice ??
+   G4double cof = pi/fNumber ;
+   fAbscissa = new G4double[fNumber] ;
+   fWeight = new G4double[fNumber] ;
+   for(i=0;i<fNumber;i++)
+   {
+      fAbscissa[i] = cos(cof*(i + 0.5)) ;
+      fWeight[i] = cof*sqrt(1 - fAbscissa[i]*fAbscissa[i]) ;
+   }
+}
+
+// ----------------------------------------------------------------------
+//
+
+G4GaussChebyshevQ::~G4GaussChebyshevQ()
+{
+   ;
+}
+
+// -------------------------------------------------------------------------------
+//
+// Integrates function pointed by fFunction from a to b by Gauss-Chebyshev 
+// quadrature method
+
+G4double 
+G4GaussChebyshevQ::Integral(G4double a, G4double b) const 
+{
+   G4int i ;
+   G4double xDiff, xMean, dx, integral = 0.0 ;
+   
+   xMean = 0.5*(a + b) ;
+   xDiff = 0.5*(b - a) ;
+   for(i=0;i<fNumber;i++)
+   {
+      dx = xDiff*fAbscissa[i] ;
+      integral += fWeight[i]*fFunction(xMean + dx)  ;
+   }
+   return integral *= xDiff ;
+}