00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030 #include "G4PSSphereSurfaceCurrent.hh"
00031
00032 #include "G4SystemOfUnits.hh"
00033 #include "G4StepStatus.hh"
00034 #include "G4Track.hh"
00035 #include "G4VSolid.hh"
00036 #include "G4VPhysicalVolume.hh"
00037 #include "G4VPVParameterisation.hh"
00038 #include "G4UnitsTable.hh"
00039 #include "G4GeometryTolerance.hh"
00041
00042
00043
00044
00045
00046
00047
00048
00049
00050
00051
00052
00053
00055
00056 G4PSSphereSurfaceCurrent::G4PSSphereSurfaceCurrent(G4String name,
00057 G4int direction, G4int depth)
00058 :G4VPrimitiveScorer(name,depth),HCID(-1),fDirection(direction),
00059 weighted(true),divideByArea(true)
00060 {
00061 DefineUnitAndCategory();
00062 SetUnit("percm2");
00063 }
00064
00065 G4PSSphereSurfaceCurrent::G4PSSphereSurfaceCurrent(G4String name,
00066 G4int direction,
00067 const G4String& unit,
00068 G4int depth)
00069 :G4VPrimitiveScorer(name,depth),HCID(-1),fDirection(direction),
00070 weighted(true),divideByArea(true)
00071 {
00072 DefineUnitAndCategory();
00073 SetUnit(unit);
00074 }
00075
00076 G4PSSphereSurfaceCurrent::~G4PSSphereSurfaceCurrent()
00077 {;}
00078
00079 G4bool G4PSSphereSurfaceCurrent::ProcessHits(G4Step* aStep,G4TouchableHistory*)
00080 {
00081 G4StepPoint* preStep = aStep->GetPreStepPoint();
00082 G4VPhysicalVolume* physVol = preStep->GetPhysicalVolume();
00083 G4VPVParameterisation* physParam = physVol->GetParameterisation();
00084 G4VSolid * solid = 0;
00085 if(physParam)
00086 {
00087 G4int idx = ((G4TouchableHistory*)(aStep->GetPreStepPoint()->GetTouchable()))
00088 ->GetReplicaNumber(indexDepth);
00089 solid = physParam->ComputeSolid(idx, physVol);
00090 solid->ComputeDimensions(physParam,idx,physVol);
00091 }
00092 else
00093 {
00094 solid = physVol->GetLogicalVolume()->GetSolid();
00095 }
00096
00097 G4Sphere* sphereSolid = (G4Sphere*)(solid);
00098
00099 G4int dirFlag =IsSelectedSurface(aStep,sphereSolid);
00100 if ( dirFlag > 0 ) {
00101 if ( fDirection == fCurrent_InOut || fDirection == dirFlag ){
00102 G4double radi = sphereSolid->GetInsideRadius();
00103 G4double dph = sphereSolid->GetDeltaPhiAngle()/radian;
00104 G4double stth = sphereSolid->GetStartThetaAngle()/radian;
00105 G4double enth = stth+sphereSolid->GetDeltaThetaAngle()/radian;
00106 G4double current = 1.0;
00107 if ( weighted) current = preStep->GetWeight();
00108 if ( divideByArea ){
00109 G4double square = radi*radi*dph*( -std::cos(enth) + std::cos(stth) );
00110 current = current/square;
00111 }
00112
00113 G4int index = GetIndex(aStep);
00114 EvtMap->add(index,current);
00115 }
00116 }
00117
00118 return TRUE;
00119 }
00120
00121 G4int G4PSSphereSurfaceCurrent::IsSelectedSurface(G4Step* aStep, G4Sphere* sphereSolid){
00122
00123 G4TouchableHandle theTouchable =
00124 aStep->GetPreStepPoint()->GetTouchableHandle();
00125 G4double kCarTolerance = G4GeometryTolerance::GetInstance()->GetSurfaceTolerance();
00126
00127 if (aStep->GetPreStepPoint()->GetStepStatus() == fGeomBoundary ){
00128
00129 G4ThreeVector stppos1= aStep->GetPreStepPoint()->GetPosition();
00130 G4ThreeVector localpos1 =
00131 theTouchable->GetHistory()->GetTopTransform().TransformPoint(stppos1);
00132 G4double localR2 = localpos1.x()*localpos1.x()
00133 +localpos1.y()*localpos1.y()
00134 +localpos1.z()*localpos1.z();
00135
00136
00137
00138 G4double InsideRadius = sphereSolid->GetInsideRadius();
00139 if ( localR2 > (InsideRadius-kCarTolerance)*(InsideRadius-kCarTolerance)
00140 &&localR2 < (InsideRadius+kCarTolerance)*(InsideRadius+kCarTolerance)){
00141 return fCurrent_In;
00142 }
00143 }
00144
00145 if (aStep->GetPostStepPoint()->GetStepStatus() == fGeomBoundary ){
00146
00147 G4ThreeVector stppos2= aStep->GetPostStepPoint()->GetPosition();
00148 G4ThreeVector localpos2 =
00149 theTouchable->GetHistory()->GetTopTransform().TransformPoint(stppos2);
00150 G4double localR2 = localpos2.x()*localpos2.x()
00151 +localpos2.y()*localpos2.y()
00152 +localpos2.z()*localpos2.z();
00153
00154
00155
00156 G4double InsideRadius = sphereSolid->GetInsideRadius();
00157 if ( localR2 > (InsideRadius-kCarTolerance)*(InsideRadius-kCarTolerance)
00158 &&localR2 < (InsideRadius+kCarTolerance)*(InsideRadius+kCarTolerance)){
00159 return fCurrent_Out;
00160 }
00161 }
00162
00163 return -1;
00164 }
00165
00166 void G4PSSphereSurfaceCurrent::Initialize(G4HCofThisEvent* HCE)
00167 {
00168 EvtMap = new G4THitsMap<G4double>(detector->GetName(), GetName());
00169 if ( HCID < 0 ) HCID = GetCollectionID(0);
00170 HCE->AddHitsCollection(HCID, (G4VHitsCollection*)EvtMap);
00171 }
00172
00173 void G4PSSphereSurfaceCurrent::EndOfEvent(G4HCofThisEvent*)
00174 {;}
00175
00176 void G4PSSphereSurfaceCurrent::clear(){
00177 EvtMap->clear();
00178 }
00179
00180 void G4PSSphereSurfaceCurrent::DrawAll()
00181 {;}
00182
00183 void G4PSSphereSurfaceCurrent::PrintAll()
00184 {
00185 G4cout << " MultiFunctionalDet " << detector->GetName() << G4endl;
00186 G4cout << " PrimitiveScorer " << GetName() <<G4endl;
00187 G4cout << " Number of entries " << EvtMap->entries() << G4endl;
00188 std::map<G4int,G4double*>::iterator itr = EvtMap->GetMap()->begin();
00189 for(; itr != EvtMap->GetMap()->end(); itr++) {
00190 G4cout << " copy no.: " << itr->first << " current : " ;
00191 if ( divideByArea ) {
00192 G4cout << *(itr->second)/GetUnitValue()
00193 << " [" <<GetUnit()<<"]";
00194 }else {
00195 G4cout << *(itr->second) << " [tracks]" ;
00196 }
00197 G4cout << G4endl;
00198 }
00199 }
00200
00201
00202 void G4PSSphereSurfaceCurrent::SetUnit(const G4String& unit)
00203 {
00204 if ( divideByArea ) {
00205 CheckAndSetUnit(unit,"Per Unit Surface");
00206 } else {
00207 if (unit == "" ){
00208 unitName = unit;
00209 unitValue = 1.0;
00210 }else{
00211 G4String msg = "Invalid unit ["+unit+"] (Current unit is [" +GetUnit()+"] ) for " + GetName();
00212 G4Exception("G4PSSphereSurfaceCurrent::SetUnit","DetPS0015",JustWarning,msg);
00213 }
00214 }
00215 }
00216
00217 void G4PSSphereSurfaceCurrent::DefineUnitAndCategory(){
00218
00219 new G4UnitDefinition("percentimeter2","percm2","Per Unit Surface",(1./cm2));
00220 new G4UnitDefinition("permillimeter2","permm2","Per Unit Surface",(1./mm2));
00221 new G4UnitDefinition("permeter2","perm2","Per Unit Surface",(1./m2));
00222 }