Geant4
9.6.p02
Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
geant4_9_6_p02
source
processes
hadronic
models
neutron_hp
src
G4NeutronHPField.cc
Go to the documentation of this file.
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
// neutron_hp -- source file
27
// J.P. Wellisch, Nov-1996
28
// A prototype of the low energy neutron transport model.
29
//
30
#include "
G4NeutronHPField.hh
"
31
#include "
G4HadronicException.hh
"
32
#include "
G4ios.hh
"
33
34
35
G4NeutronHPField::G4NeutronHPField
()
36
{
37
theData =
new
G4NeutronHPFieldPoint
[100];
38
nPoints=100;
39
nEntries=0;
40
theData->
SetData
(0,0,0);
41
}
42
43
G4NeutronHPField::~G4NeutronHPField
(){
delete
[] theData;}
44
45
G4double
G4NeutronHPField::GetY
(
G4double
e
,
G4int
j)
46
{
47
G4int
low = 0;
48
G4int
high = 0;
49
G4int
i;
50
for
(i=1; i<nEntries/10; i++)
51
{
52
if
(theData[10*i].
GetX
()>e)
break
;
53
}
54
if
(i==(nEntries/10))
55
{
56
i=10*i;
57
while
(i<nEntries)
58
{
59
if
(theData[i++].
GetX
()>e)
break
;
60
}
61
if
(i==nEntries)
62
{
63
low = nEntries-1;
64
high = nEntries-2;
65
}
else
{
66
low = i-1;
67
high = i;
68
}
69
}
else
{
70
for
(
G4int
jj=0; jj<10; jj++)
71
{
72
if
(theData[i].
GetX
()<e)
break
;
73
i--;
74
}
75
low = i;
76
high = i+1;
77
}
78
G4double
x1
,
x2
,
y1
,
y2
,
x
,
y
;
79
x =
e
;
80
x1 = theData[low] .
GetX
();
81
x2 = theData[high].
GetX
();
82
y1 = theData[low] .
GetY
(j);
83
y2 = theData[high].
GetY
(j);
84
y = x*(y2-
y1
)/(x2-x1);
85
return
y += y2-x2*(y2-
y1
)/(x2-x1);
86
}
87
88
void
G4NeutronHPField::Dump
()
89
{
90
G4cout
<< nEntries<<
G4endl
;
91
for
(
G4int
i=0; i<nEntries; i++)
92
{
93
G4cout
<< theData[i].
GetX
()<<
" "
;
94
for
(
G4int
j=0; j<theData[i].
GetDepth
(); j++)
95
{
96
G4cout
<< theData[i].
GetY
(j)<<
" "
;
97
}
98
G4cout
<<
G4endl
;
99
}
100
}
101
102
void
G4NeutronHPField::Check(
G4int
i)
103
{
104
if
(i>nEntries)
throw
G4HadronicException
(__FILE__, __LINE__,
"Skipped some index numbers in G4NeutronHPField"
);
105
if
(i==nPoints)
106
{
107
nPoints += 50;
108
G4NeutronHPFieldPoint
* buff =
new
G4NeutronHPFieldPoint
[nPoints];
109
// G4cout << "copying 1"<<G4endl;
110
for
(
G4int
j=0; j<nEntries; j++)
111
{
112
buff[j] = theData[j];
113
}
114
// G4cout << "copying 2"<<G4endl;
115
delete
[] theData;
116
theData = buff;
117
}
118
if
(i==nEntries) nEntries=i+1;
119
}
Generated on Sat May 25 2013 14:34:04 for Geant4 by
1.8.4