| 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 // G4GaussLaguerreQ class implementation <<
27 // 26 //
28 // Author: V.Grichine, 13.05.1997 << 27 // $Id: G4GaussLaguerreQ.cc,v 1.8 2007-11-13 17:35:06 gcosmo Exp $
29 // ------------------------------------------- << 28 // GEANT4 tag $Name: not supported by cvs2svn $
30 << 29 //
31 #include "G4GaussLaguerreQ.hh" 30 #include "G4GaussLaguerreQ.hh"
32 31
>> 32
>> 33
33 // ------------------------------------------- 34 // ------------------------------------------------------------
34 // 35 //
35 // Constructor for Gauss-Laguerre quadrature m 36 // Constructor for Gauss-Laguerre quadrature method: integral from zero to
36 // infinity of std::pow(x,alpha)*std::exp(-x)* 37 // infinity of std::pow(x,alpha)*std::exp(-x)*f(x).
37 // The value of nLaguerre sets the accuracy. 38 // The value of nLaguerre sets the accuracy.
38 // The constructor creates arrays fAbscissa[0, << 39 // The constructor creates arrays fAbscissa[0,..,nLaguerre-1] and
39 // fWeight[0,..,nLaguerre-1] . << 40 // fWeight[0,..,nLaguerre-1] .
40 // 41 //
41 42
42 G4GaussLaguerreQ::G4GaussLaguerreQ(function pF << 43 G4GaussLaguerreQ::G4GaussLaguerreQ( function pFunction,
43 G4int nLagu << 44 G4double alpha,
44 : G4VGaussianQuadrature(pFunction) << 45 G4int nLaguerre )
>> 46 : G4VGaussianQuadrature(pFunction)
45 { 47 {
46 const G4double tolerance = 1.0e-10; << 48 const G4double tolerance = 1.0e-10 ;
47 const G4int maxNumber = 12; << 49 const G4int maxNumber = 12 ;
48 G4int i = 1, k = 1; << 50 G4int i=1, k=1 ;
49 G4double newton0 = 0.0, newton1 = 0.0, temp1 << 51 G4double newton0=0.0, newton1=0.0,
50 temp = 0.0, cofi = 0.0; << 52 temp1=0.0, temp2=0.0, temp3=0.0, temp=0.0, cofi=0.0 ;
51 << 53
52 fNumber = nLaguerre; << 54 fNumber = nLaguerre ;
53 fAbscissa = new G4double[fNumber]; << 55 fAbscissa = new G4double[fNumber] ;
54 fWeight = new G4double[fNumber]; << 56 fWeight = new G4double[fNumber] ;
55 << 57
56 for(i = 1; i <= fNumber; ++i) // Loop over << 58 for(i=1;i<=fNumber;i++) // Loop over the desired roots
57 { << 59 {
58 if(i == 1) << 60 if(i == 1)
59 { << 61 {
60 newton0 = (1.0 + alpha) * (3.0 + 0.92 * << 62 newton0 = (1.0 + alpha)*(3.0 + 0.92*alpha)
61 (1.0 + 2.4 * fNumber + 1.8 * a << 63 / (1.0 + 2.4*fNumber + 1.8*alpha) ;
62 } << 64 }
63 else if(i == 2) << 65 else if(i == 2)
64 { << 66 {
65 newton0 += (15.0 + 6.25 * alpha) / (1.0 << 67 newton0 += (15.0 + 6.25*alpha)/(1.0 + 0.9*alpha + 2.5*fNumber) ;
66 } << 68 }
67 else << 69 else
68 { << 70 {
69 cofi = i - 2; << 71 cofi = i - 2 ;
70 newton0 += ((1.0 + 2.55 * cofi) / (1.9 * << 72 newton0 += ((1.0+2.55*cofi)/(1.9*cofi)
71 1.26 * cofi * alpha / (1.0 + << 73 + 1.26*cofi*alpha/(1.0+3.5*cofi))
72 (newton0 - fAbscissa[i - 3]) << 74 * (newton0 - fAbscissa[i-3])/(1.0 + 0.3*alpha) ;
73 } << 75 }
74 for(k = 1; k <= maxNumber; ++k) << 76 for(k=1;k<=maxNumber;k++)
75 { <<
76 temp1 = 1.0; <<
77 temp2 = 0.0; <<
78 for(G4int j = 1; j <= fNumber; ++j) <<
79 { 77 {
80 temp3 = temp2; << 78 temp1 = 1.0 ;
81 temp2 = temp1; << 79 temp2 = 0.0 ;
82 temp1 = << 80 for(G4int j=1;j<=fNumber;j++)
83 ((2 * j - 1 + alpha - newton0) * tem << 81 {
>> 82 temp3 = temp2 ;
>> 83 temp2 = temp1 ;
>> 84 temp1 = ((2*j - 1 + alpha - newton0)*temp2
>> 85 - (j - 1 + alpha)*temp3)/j ;
>> 86 }
>> 87 temp = (fNumber*temp1 - (fNumber +alpha)*temp2)/newton0 ;
>> 88 newton1 = newton0 ;
>> 89 newton0 = newton1 - temp1/temp ;
>> 90 if(std::fabs(newton0 - newton1) <= tolerance)
>> 91 {
>> 92 break ;
>> 93 }
84 } 94 }
85 temp = (fNumber * temp1 - (fNumber + << 95 if(k > maxNumber)
86 newton1 = newton0; <<
87 newton0 = newton1 - temp1 / temp; <<
88 if(std::fabs(newton0 - newton1) <= toler <<
89 { 96 {
90 break; << 97 G4Exception("G4GaussLaguerreQ::G4GaussLaguerreQ()",
>> 98 "OutOfRange", FatalException,
>> 99 "Too many iterations in Gauss-Laguerre constructor") ;
91 } 100 }
92 } << 101
93 if(k > maxNumber) << 102 fAbscissa[i-1] = newton0 ;
94 { << 103 fWeight[i-1] = -std::exp(GammaLogarithm(alpha + fNumber)
95 G4Exception("G4GaussLaguerreQ::G4GaussLa << 104 - GammaLogarithm((G4double)fNumber))/(temp*fNumber*temp2) ;
96 FatalException, << 105 }
97 "Too many iterations in Gaus <<
98 } <<
99 <<
100 fAbscissa[i - 1] = newton0; <<
101 fWeight[i - 1] = -std::exp(GammaLogarith <<
102 GammaLogarithm( <<
103 (temp * fNumber * temp2); <<
104 } <<
105 } 106 }
106 107
107 // ------------------------------------------- 108 // -----------------------------------------------------------------
108 // 109 //
109 // Gauss-Laguerre method for integration of 110 // Gauss-Laguerre method for integration of
110 // std::pow(x,alpha)*std::exp(-x)*pFunction(x) 111 // std::pow(x,alpha)*std::exp(-x)*pFunction(x)
111 // from zero up to infinity. pFunction is eval 112 // from zero up to infinity. pFunction is evaluated in fNumber points
112 // for which fAbscissa[i] and fWeight[i] array 113 // for which fAbscissa[i] and fWeight[i] arrays were created in
113 // G4VGaussianQuadrature(double,int) construct 114 // G4VGaussianQuadrature(double,int) constructor
114 115
115 G4double G4GaussLaguerreQ::Integral() const << 116 G4double
>> 117 G4GaussLaguerreQ::Integral() const
116 { 118 {
117 G4double integral = 0.0; << 119 G4double integral = 0.0 ;
118 for(G4int i = 0; i < fNumber; ++i) << 120 for(G4int i=0;i<fNumber;i++)
119 { << 121 {
120 integral += fWeight[i] * fFunction(fAbscis << 122 integral += fWeight[i]*fFunction(fAbscissa[i]) ;
121 } << 123 }
122 return integral; << 124 return integral ;
123 } 125 }
124 126