Geant4  10.02.p02
G4OpBoundaryProcess.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 //
27 // Optical Photon Boundary Process Class Implementation
29 //
30 // File: G4OpBoundaryProcess.cc
31 // Description: Discrete Process -- reflection/refraction at
32 // optical interfaces
33 // Version: 1.1
34 // Created: 1997-06-18
35 // Modified: 1998-05-25 - Correct parallel component of polarization
36 // (thanks to: Stefano Magni + Giovanni Pieri)
37 // 1998-05-28 - NULL Rindex pointer before reuse
38 // (thanks to: Stefano Magni)
39 // 1998-06-11 - delete *sint1 in oblique reflection
40 // (thanks to: Giovanni Pieri)
41 // 1998-06-19 - move from GetLocalExitNormal() to the new
42 // method: GetLocalExitNormal(&valid) to get
43 // the surface normal in all cases
44 // 1998-11-07 - NULL OpticalSurface pointer before use
45 // comparison not sharp for: std::abs(cost1) < 1.0
46 // remove sin1, sin2 in lines 556,567
47 // (thanks to Stefano Magni)
48 // 1999-10-10 - Accommodate changes done in DoAbsorption by
49 // changing logic in DielectricMetal
50 // 2001-10-18 - avoid Linux (gcc-2.95.2) warning about variables
51 // might be used uninitialized in this function
52 // moved E2_perp, E2_parl and E2_total out of 'if'
53 // 2003-11-27 - Modified line 168-9 to reflect changes made to
54 // G4OpticalSurface class ( by Fan Lei)
55 // 2004-02-02 - Set theStatus = Undefined at start of DoIt
56 // 2005-07-28 - add G4ProcessType to constructor
57 // 2006-11-04 - add capability of calculating the reflectivity
58 // off a metal surface by way of a complex index
59 // of refraction - Thanks to Sehwook Lee and John
60 // Hauptman (Dept. of Physics - Iowa State Univ.)
61 // 2009-11-10 - add capability of simulating surface reflections
62 // with Look-Up-Tables (LUT) containing measured
63 // optical reflectance for a variety of surface
64 // treatments - Thanks to Martin Janecek and
65 // William Moses (Lawrence Berkeley National Lab.)
66 // 2013-06-01 - add the capability of simulating the transmission
67 // of a dichronic filter
68 //
69 // Author: Peter Gumplinger
70 // adopted from work by Werner Keil - April 2/96
71 // mail: gum@triumf.ca
72 //
74 
75 #include "G4ios.hh"
76 #include "G4PhysicalConstants.hh"
77 #include "G4OpProcessSubType.hh"
78 
79 #include "G4OpBoundaryProcess.hh"
80 #include "G4GeometryTolerance.hh"
81 
82 #include "G4VSensitiveDetector.hh"
83 #include "G4ParallelWorldProcess.hh"
84 
85 #include "G4SystemOfUnits.hh"
86 
88 // Class Implementation
90 
92  // Operators
94 
95 // G4OpBoundaryProcess::operator=(const G4OpBoundaryProcess &right)
96 // {
97 // }
98 
100  // Constructors
102 
103 G4OpBoundaryProcess::G4OpBoundaryProcess(const G4String& processName,
104  G4ProcessType type)
105  : G4VDiscreteProcess(processName, type)
106 {
107  if ( verboseLevel > 0) {
108  G4cout << GetProcessName() << " is created " << G4endl;
109  }
110 
111  SetProcessSubType(fOpBoundary);
112 
113  theStatus = Undefined;
114  theModel = glisur;
115  theFinish = polished;
116  theReflectivity = 1.;
117  theEfficiency = 0.;
118  theTransmittance = 0.;
119 
120  theSurfaceRoughness = 0.;
121 
122  prob_sl = 0.;
123  prob_ss = 0.;
124  prob_bs = 0.;
125 
126  PropertyPointer = NULL;
127  PropertyPointer1 = NULL;
128  PropertyPointer2 = NULL;
129 
130  Material1 = NULL;
131  Material2 = NULL;
132 
133  OpticalSurface = NULL;
134 
135  kCarTolerance = G4GeometryTolerance::GetInstance()
136  ->GetSurfaceTolerance();
137 
138  iTE = iTM = 0;
139  thePhotonMomentum = 0.;
140  Rindex1 = Rindex2 = 1.;
141  cost1 = cost2 = sint1 = sint2 = 0.;
142 
143  idx = idy = 0;
144  DichroicVector = NULL;
145 }
146 
147 // G4OpBoundaryProcess::G4OpBoundaryProcess(const G4OpBoundaryProcess &right)
148 // {
149 // }
150 
152  // Destructors
154 
155 G4OpBoundaryProcess::~G4OpBoundaryProcess(){}
156 
158  // Methods
160 
161 // PostStepDoIt
162 // ------------
163 //
164 
165 G4VParticleChange*
166 G4OpBoundaryProcess::PostStepDoIt(const G4Track& aTrack, const G4Step& aStep)
167 {
168  theStatus = Undefined;
169 
170  aParticleChange.Initialize(aTrack);
171  aParticleChange.ProposeVelocity(aTrack.GetVelocity());
172 
173  // Get hyperStep from G4ParallelWorldProcess
174  // NOTE: PostSetpDoIt of this process should be
175  // invoked after G4ParallelWorldProcess!
176 
177  const G4Step* pStep = &aStep;
178 
179  const G4Step* hStep = G4ParallelWorldProcess::GetHyperStep();
180 
181  if (hStep) pStep = hStep;
182 
183  G4bool isOnBoundary =
184  (pStep->GetPostStepPoint()->GetStepStatus() == fGeomBoundary);
185 
186  if (isOnBoundary) {
187  Material1 = pStep->GetPreStepPoint()->GetMaterial();
188  Material2 = pStep->GetPostStepPoint()->GetMaterial();
189  } else {
190  theStatus = NotAtBoundary;
191  if ( verboseLevel > 0) BoundaryProcessVerbose();
192  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
193  }
194 
195  G4VPhysicalVolume* thePrePV =
196  pStep->GetPreStepPoint() ->GetPhysicalVolume();
197  G4VPhysicalVolume* thePostPV =
198  pStep->GetPostStepPoint()->GetPhysicalVolume();
199 
200  if ( verboseLevel > 0 ) {
201  G4cout << " Photon at Boundary! " << G4endl;
202  if (thePrePV) G4cout << " thePrePV: " << thePrePV->GetName() << G4endl;
203  if (thePostPV) G4cout << " thePostPV: " << thePostPV->GetName() << G4endl;
204  }
205 
206  if (aTrack.GetStepLength()<=kCarTolerance/2){
207  theStatus = StepTooSmall;
208  if ( verboseLevel > 0) BoundaryProcessVerbose();
209  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
210  }
211 
212  const G4DynamicParticle* aParticle = aTrack.GetDynamicParticle();
213 
214  thePhotonMomentum = aParticle->GetTotalMomentum();
215  OldMomentum = aParticle->GetMomentumDirection();
216  OldPolarization = aParticle->GetPolarization();
217 
218  if ( verboseLevel > 0 ) {
219  G4cout << " Old Momentum Direction: " << OldMomentum << G4endl;
220  G4cout << " Old Polarization: " << OldPolarization << G4endl;
221  }
222 
223  G4ThreeVector theGlobalPoint = pStep->GetPostStepPoint()->GetPosition();
224 
225  G4bool valid;
226  // Use the new method for Exit Normal in global coordinates,
227  // which provides the normal more reliably.
228 
229  // ID of Navigator which limits step
230 
231  G4int hNavId = G4ParallelWorldProcess::GetHypNavigatorID();
232  std::vector<G4Navigator*>::iterator iNav =
233  G4TransportationManager::GetTransportationManager()->
234  GetActiveNavigatorsIterator();
235  theGlobalNormal =
236  (iNav[hNavId])->GetGlobalExitNormal(theGlobalPoint,&valid);
237 
238  if (valid) {
239  theGlobalNormal = -theGlobalNormal;
240  }
241  else
242  {
243  G4ExceptionDescription ed;
244  ed << " G4OpBoundaryProcess/PostStepDoIt(): "
245  << " The Navigator reports that it returned an invalid normal"
246  << G4endl;
247  G4Exception("G4OpBoundaryProcess::PostStepDoIt", "OpBoun01",
248  EventMustBeAborted,ed,
249  "Invalid Surface Normal - Geometry must return valid surface normal");
250  }
251 
252  if (OldMomentum * theGlobalNormal > 0.0) {
253 #ifdef G4OPTICAL_DEBUG
254  G4ExceptionDescription ed;
255  ed << " G4OpBoundaryProcess/PostStepDoIt(): "
256  << " theGlobalNormal points in a wrong direction. "
257  << G4endl;
258  ed << " The momentum of the photon arriving at interface (oldMomentum)"
259  << " must exit the volume cross in the step. " << G4endl;
260  ed << " So it MUST have dot < 0 with the normal that Exits the new volume (globalNormal)." << G4endl;
261  ed << " >> The dot product of oldMomentum and global Normal is " << OldMomentum*theGlobalNormal << G4endl;
262  ed << " Old Momentum (during step) = " << OldMomentum << G4endl;
263  ed << " Global Normal (Exiting New Vol) = " << theGlobalNormal << G4endl;
264  ed << G4endl;
265  G4Exception("G4OpBoundaryProcess::PostStepDoIt", "OpBoun02",
266  EventMustBeAborted, // Or JustWarning to see if it happens repeatedbly on one ray
267  ed,
268  "Invalid Surface Normal - Geometry must return valid surface normal pointing in the right direction");
269 #else
270  theGlobalNormal = -theGlobalNormal;
271 #endif
272  }
273 
274  G4MaterialPropertiesTable* aMaterialPropertiesTable;
275  G4MaterialPropertyVector* Rindex;
276 
277  aMaterialPropertiesTable = Material1->GetMaterialPropertiesTable();
278  if (aMaterialPropertiesTable) {
279  Rindex = aMaterialPropertiesTable->GetProperty("RINDEX");
280  }
281  else {
282  theStatus = NoRINDEX;
283  if ( verboseLevel > 0) BoundaryProcessVerbose();
284  aParticleChange.ProposeLocalEnergyDeposit(thePhotonMomentum);
285  aParticleChange.ProposeTrackStatus(fStopAndKill);
286  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
287  }
288 
289  if (Rindex) {
290  Rindex1 = Rindex->Value(thePhotonMomentum);
291  }
292  else {
293  theStatus = NoRINDEX;
294  if ( verboseLevel > 0) BoundaryProcessVerbose();
295  aParticleChange.ProposeLocalEnergyDeposit(thePhotonMomentum);
296  aParticleChange.ProposeTrackStatus(fStopAndKill);
297  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
298  }
299 
300  theReflectivity = 1.;
301  theEfficiency = 0.;
302  theTransmittance = 0.;
303 
304  theSurfaceRoughness = 0.;
305 
306  theModel = glisur;
307  theFinish = polished;
308 
309  G4SurfaceType type = dielectric_dielectric;
310 
311  Rindex = NULL;
312  OpticalSurface = NULL;
313 
314  G4LogicalSurface* Surface = NULL;
315 
316  Surface = G4LogicalBorderSurface::GetSurface(thePrePV, thePostPV);
317 
318  if (Surface == NULL){
319  G4bool enteredDaughter= (thePostPV->GetMotherLogical() ==
320  thePrePV ->GetLogicalVolume());
321  if(enteredDaughter){
322  Surface =
323  G4LogicalSkinSurface::GetSurface(thePostPV->GetLogicalVolume());
324  if(Surface == NULL)
325  Surface =
326  G4LogicalSkinSurface::GetSurface(thePrePV->GetLogicalVolume());
327  }
328  else {
329  Surface =
330  G4LogicalSkinSurface::GetSurface(thePrePV->GetLogicalVolume());
331  if(Surface == NULL)
332  Surface =
333  G4LogicalSkinSurface::GetSurface(thePostPV->GetLogicalVolume());
334  }
335  }
336 
337  if (Surface) OpticalSurface =
338  dynamic_cast <G4OpticalSurface*> (Surface->GetSurfaceProperty());
339 
340  if (OpticalSurface) {
341 
342  type = OpticalSurface->GetType();
343  theModel = OpticalSurface->GetModel();
344  theFinish = OpticalSurface->GetFinish();
345 
346  aMaterialPropertiesTable = OpticalSurface->
347  GetMaterialPropertiesTable();
348 
349  if (aMaterialPropertiesTable) {
350 
351  if (theFinish == polishedbackpainted ||
352  theFinish == groundbackpainted ) {
353  Rindex = aMaterialPropertiesTable->GetProperty("RINDEX");
354  if (Rindex) {
355  Rindex2 = Rindex->Value(thePhotonMomentum);
356  }
357  else {
358  theStatus = NoRINDEX;
359  if ( verboseLevel > 0) BoundaryProcessVerbose();
360  aParticleChange.ProposeLocalEnergyDeposit(thePhotonMomentum);
361  aParticleChange.ProposeTrackStatus(fStopAndKill);
362  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
363  }
364  }
365 
366  PropertyPointer =
367  aMaterialPropertiesTable->GetProperty("REFLECTIVITY");
368  PropertyPointer1 =
369  aMaterialPropertiesTable->GetProperty("REALRINDEX");
370  PropertyPointer2 =
371  aMaterialPropertiesTable->GetProperty("IMAGINARYRINDEX");
372 
373  iTE = 1;
374  iTM = 1;
375 
376  if (PropertyPointer) {
377 
378  theReflectivity =
379  PropertyPointer->Value(thePhotonMomentum);
380 
381  } else if (PropertyPointer1 && PropertyPointer2) {
382 
383  CalculateReflectivity();
384 
385  }
386 
387  PropertyPointer =
388  aMaterialPropertiesTable->GetProperty("EFFICIENCY");
389  if (PropertyPointer) {
390  theEfficiency =
391  PropertyPointer->Value(thePhotonMomentum);
392  }
393 
394  PropertyPointer =
395  aMaterialPropertiesTable->GetProperty("TRANSMITTANCE");
396  if (PropertyPointer) {
397  theTransmittance =
398  PropertyPointer->Value(thePhotonMomentum);
399  }
400 
401  if (aMaterialPropertiesTable->
402  ConstPropertyExists("SURFACEROUGHNESS"))
403  theSurfaceRoughness = aMaterialPropertiesTable->
404  GetConstProperty("SURFACEROUGHNESS");
405 
406  if ( theModel == unified ) {
407  PropertyPointer =
408  aMaterialPropertiesTable->GetProperty("SPECULARLOBECONSTANT");
409  if (PropertyPointer) {
410  prob_sl =
411  PropertyPointer->Value(thePhotonMomentum);
412  } else {
413  prob_sl = 0.0;
414  }
415 
416  PropertyPointer =
417  aMaterialPropertiesTable->GetProperty("SPECULARSPIKECONSTANT");
418  if (PropertyPointer) {
419  prob_ss =
420  PropertyPointer->Value(thePhotonMomentum);
421  } else {
422  prob_ss = 0.0;
423  }
424 
425  PropertyPointer =
426  aMaterialPropertiesTable->GetProperty("BACKSCATTERCONSTANT");
427  if (PropertyPointer) {
428  prob_bs =
429  PropertyPointer->Value(thePhotonMomentum);
430  } else {
431  prob_bs = 0.0;
432  }
433  }
434  }
435  else if (theFinish == polishedbackpainted ||
436  theFinish == groundbackpainted ) {
437  aParticleChange.ProposeLocalEnergyDeposit(thePhotonMomentum);
438  aParticleChange.ProposeTrackStatus(fStopAndKill);
439  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
440  }
441  }
442 
443  if (type == dielectric_dielectric ) {
444  if (theFinish == polished || theFinish == ground ) {
445 
446  if (Material1 == Material2){
447  theStatus = SameMaterial;
448  if ( verboseLevel > 0) BoundaryProcessVerbose();
449  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
450  }
451  aMaterialPropertiesTable =
452  Material2->GetMaterialPropertiesTable();
453  if (aMaterialPropertiesTable)
454  Rindex = aMaterialPropertiesTable->GetProperty("RINDEX");
455  if (Rindex) {
456  Rindex2 = Rindex->Value(thePhotonMomentum);
457  }
458  else {
459  theStatus = NoRINDEX;
460  if ( verboseLevel > 0) BoundaryProcessVerbose();
461  aParticleChange.ProposeLocalEnergyDeposit(thePhotonMomentum);
462  aParticleChange.ProposeTrackStatus(fStopAndKill);
463  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
464  }
465  }
466  }
467 
468  if (type == dielectric_metal) {
469 
470  DielectricMetal();
471 
472  }
473  else if (type == dielectric_LUT) {
474 
475  DielectricLUT();
476 
477  }
478  else if (type == dielectric_dichroic) {
479 
480  DielectricDichroic();
481 
482  }
483  else if (type == dielectric_dielectric) {
484 
485  if ( theFinish == polishedbackpainted ||
486  theFinish == groundbackpainted ) {
487  DielectricDielectric();
488  }
489  else {
490  G4double rand = G4UniformRand();
491  if ( rand > theReflectivity ) {
492  if (rand > theReflectivity + theTransmittance) {
493  DoAbsorption();
494  } else {
495  theStatus = Transmission;
496  NewMomentum = OldMomentum;
497  NewPolarization = OldPolarization;
498  }
499  }
500  else {
501  if ( theFinish == polishedfrontpainted ) {
502  DoReflection();
503  }
504  else if ( theFinish == groundfrontpainted ) {
505  theStatus = LambertianReflection;
506  DoReflection();
507  }
508  else {
509  DielectricDielectric();
510  }
511  }
512  }
513  }
514  else {
515 
516  G4cerr << " Error: G4BoundaryProcess: illegal boundary type " << G4endl;
517  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
518 
519  }
520 
521  NewMomentum = NewMomentum.unit();
522  NewPolarization = NewPolarization.unit();
523 
524  if ( verboseLevel > 0) {
525  G4cout << " New Momentum Direction: " << NewMomentum << G4endl;
526  G4cout << " New Polarization: " << NewPolarization << G4endl;
527  BoundaryProcessVerbose();
528  }
529 
530  aParticleChange.ProposeMomentumDirection(NewMomentum);
531  aParticleChange.ProposePolarization(NewPolarization);
532 
533  if ( theStatus == FresnelRefraction || theStatus == Transmission ) {
534  G4MaterialPropertyVector* groupvel =
535  Material2->GetMaterialPropertiesTable()->GetProperty("GROUPVEL");
536  G4double finalVelocity = groupvel->Value(thePhotonMomentum);
537  aParticleChange.ProposeVelocity(finalVelocity);
538  }
539 
540  if ( theStatus == Detection ) InvokeSD(pStep);
541 
542  return G4VDiscreteProcess::PostStepDoIt(aTrack, aStep);
543 }
544 
545 void G4OpBoundaryProcess::BoundaryProcessVerbose() const
546 {
547  if ( theStatus == Undefined )
548  G4cout << " *** Undefined *** " << G4endl;
549  if ( theStatus == Transmission )
550  G4cout << " *** Transmission *** " << G4endl;
551  if ( theStatus == FresnelRefraction )
552  G4cout << " *** FresnelRefraction *** " << G4endl;
553  if ( theStatus == FresnelReflection )
554  G4cout << " *** FresnelReflection *** " << G4endl;
555  if ( theStatus == TotalInternalReflection )
556  G4cout << " *** TotalInternalReflection *** " << G4endl;
557  if ( theStatus == LambertianReflection )
558  G4cout << " *** LambertianReflection *** " << G4endl;
559  if ( theStatus == LobeReflection )
560  G4cout << " *** LobeReflection *** " << G4endl;
561  if ( theStatus == SpikeReflection )
562  G4cout << " *** SpikeReflection *** " << G4endl;
563  if ( theStatus == BackScattering )
564  G4cout << " *** BackScattering *** " << G4endl;
565  if ( theStatus == PolishedLumirrorAirReflection )
566  G4cout << " *** PolishedLumirrorAirReflection *** " << G4endl;
567  if ( theStatus == PolishedLumirrorGlueReflection )
568  G4cout << " *** PolishedLumirrorGlueReflection *** " << G4endl;
569  if ( theStatus == PolishedAirReflection )
570  G4cout << " *** PolishedAirReflection *** " << G4endl;
571  if ( theStatus == PolishedTeflonAirReflection )
572  G4cout << " *** PolishedTeflonAirReflection *** " << G4endl;
573  if ( theStatus == PolishedTiOAirReflection )
574  G4cout << " *** PolishedTiOAirReflection *** " << G4endl;
575  if ( theStatus == PolishedTyvekAirReflection )
576  G4cout << " *** PolishedTyvekAirReflection *** " << G4endl;
577  if ( theStatus == PolishedVM2000AirReflection )
578  G4cout << " *** PolishedVM2000AirReflection *** " << G4endl;
579  if ( theStatus == PolishedVM2000GlueReflection )
580  G4cout << " *** PolishedVM2000GlueReflection *** " << G4endl;
581  if ( theStatus == EtchedLumirrorAirReflection )
582  G4cout << " *** EtchedLumirrorAirReflection *** " << G4endl;
583  if ( theStatus == EtchedLumirrorGlueReflection )
584  G4cout << " *** EtchedLumirrorGlueReflection *** " << G4endl;
585  if ( theStatus == EtchedAirReflection )
586  G4cout << " *** EtchedAirReflection *** " << G4endl;
587  if ( theStatus == EtchedTeflonAirReflection )
588  G4cout << " *** EtchedTeflonAirReflection *** " << G4endl;
589  if ( theStatus == EtchedTiOAirReflection )
590  G4cout << " *** EtchedTiOAirReflection *** " << G4endl;
591  if ( theStatus == EtchedTyvekAirReflection )
592  G4cout << " *** EtchedTyvekAirReflection *** " << G4endl;
593  if ( theStatus == EtchedVM2000AirReflection )
594  G4cout << " *** EtchedVM2000AirReflection *** " << G4endl;
595  if ( theStatus == EtchedVM2000GlueReflection )
596  G4cout << " *** EtchedVM2000GlueReflection *** " << G4endl;
597  if ( theStatus == GroundLumirrorAirReflection )
598  G4cout << " *** GroundLumirrorAirReflection *** " << G4endl;
599  if ( theStatus == GroundLumirrorGlueReflection )
600  G4cout << " *** GroundLumirrorGlueReflection *** " << G4endl;
601  if ( theStatus == GroundAirReflection )
602  G4cout << " *** GroundAirReflection *** " << G4endl;
603  if ( theStatus == GroundTeflonAirReflection )
604  G4cout << " *** GroundTeflonAirReflection *** " << G4endl;
605  if ( theStatus == GroundTiOAirReflection )
606  G4cout << " *** GroundTiOAirReflection *** " << G4endl;
607  if ( theStatus == GroundTyvekAirReflection )
608  G4cout << " *** GroundTyvekAirReflection *** " << G4endl;
609  if ( theStatus == GroundVM2000AirReflection )
610  G4cout << " *** GroundVM2000AirReflection *** " << G4endl;
611  if ( theStatus == GroundVM2000GlueReflection )
612  G4cout << " *** GroundVM2000GlueReflection *** " << G4endl;
613  if ( theStatus == Absorption )
614  G4cout << " *** Absorption *** " << G4endl;
615  if ( theStatus == Detection )
616  G4cout << " *** Detection *** " << G4endl;
617  if ( theStatus == NotAtBoundary )
618  G4cout << " *** NotAtBoundary *** " << G4endl;
619  if ( theStatus == SameMaterial )
620  G4cout << " *** SameMaterial *** " << G4endl;
621  if ( theStatus == StepTooSmall )
622  G4cout << " *** StepTooSmall *** " << G4endl;
623  if ( theStatus == NoRINDEX )
624  G4cout << " *** NoRINDEX *** " << G4endl;
625  if ( theStatus == Dichroic )
626  G4cout << " *** Dichroic Transmission *** " << G4endl;
627 }
628 
629 G4ThreeVector
630 G4OpBoundaryProcess::GetFacetNormal(const G4ThreeVector& Momentum,
631  const G4ThreeVector& Normal ) const
632 {
633  G4ThreeVector FacetNormal;
634 
635  if (theModel == unified || theModel == LUT) {
636 
637  /* This function code alpha to a random value taken from the
638  distribution p(alpha) = g(alpha; 0, sigma_alpha)*std::sin(alpha),
639  for alpha > 0 and alpha < 90, where g(alpha; 0, sigma_alpha)
640  is a gaussian distribution with mean 0 and standard deviation
641  sigma_alpha. */
642 
643  G4double alpha;
644 
645  G4double sigma_alpha = 0.0;
646  if (OpticalSurface) sigma_alpha = OpticalSurface->GetSigmaAlpha();
647 
648  if (sigma_alpha == 0.0) return FacetNormal = Normal;
649 
650  G4double f_max = std::min(1.0,4.*sigma_alpha);
651 
652  G4double phi, SinAlpha, CosAlpha, SinPhi, CosPhi, unit_x, unit_y, unit_z;
653  G4ThreeVector tmpNormal;
654 
655  do {
656  do {
657  alpha = G4RandGauss::shoot(0.0,sigma_alpha);
658  // Loop checking, 13-Aug-2015, Peter Gumplinger
659  } while (G4UniformRand()*f_max > std::sin(alpha) || alpha >= halfpi );
660 
661  phi = G4UniformRand()*twopi;
662 
663  SinAlpha = std::sin(alpha);
664  CosAlpha = std::cos(alpha);
665  SinPhi = std::sin(phi);
666  CosPhi = std::cos(phi);
667 
668  unit_x = SinAlpha * CosPhi;
669  unit_y = SinAlpha * SinPhi;
670  unit_z = CosAlpha;
671 
672  FacetNormal.setX(unit_x);
673  FacetNormal.setY(unit_y);
674  FacetNormal.setZ(unit_z);
675 
676  tmpNormal = Normal;
677 
678  FacetNormal.rotateUz(tmpNormal);
679  // Loop checking, 13-Aug-2015, Peter Gumplinger
680  } while (Momentum * FacetNormal >= 0.0);
681  }
682  else {
683 
684  G4double polish = 1.0;
685  if (OpticalSurface) polish = OpticalSurface->GetPolish();
686 
687  if (polish < 1.0) {
688  do {
689  G4ThreeVector smear;
690  do {
691  smear.setX(2.*G4UniformRand()-1.0);
692  smear.setY(2.*G4UniformRand()-1.0);
693  smear.setZ(2.*G4UniformRand()-1.0);
694  // Loop checking, 13-Aug-2015, Peter Gumplinger
695  } while (smear.mag()>1.0);
696  smear = (1.-polish) * smear;
697  FacetNormal = Normal + smear;
698  // Loop checking, 13-Aug-2015, Peter Gumplinger
699  } while (Momentum * FacetNormal >= 0.0);
700  FacetNormal = FacetNormal.unit();
701  }
702  else {
703  FacetNormal = Normal;
704  }
705  }
706  return FacetNormal;
707 }
708 
709 void G4OpBoundaryProcess::DielectricMetal()
710 {
711  G4int n = 0;
712  G4double rand, PdotN, EdotN;
713  G4ThreeVector A_trans, A_paral;
714 
715  do {
716 
717  n++;
718 
719  rand = G4UniformRand();
720  if ( rand > theReflectivity && n == 1 ) {
721  if (rand > theReflectivity + theTransmittance) {
722  DoAbsorption();
723  } else {
724  theStatus = Transmission;
725  NewMomentum = OldMomentum;
726  NewPolarization = OldPolarization;
727  }
728  break;
729  }
730  else {
731 
732  if (PropertyPointer1 && PropertyPointer2) {
733  if ( n > 1 ) {
734  CalculateReflectivity();
735  if ( !G4BooleanRand(theReflectivity) ) {
736  DoAbsorption();
737  break;
738  }
739  }
740  }
741 
742  if ( theModel == glisur || theFinish == polished ) {
743 
744  DoReflection();
745 
746  } else {
747 
748  if ( n == 1 ) ChooseReflection();
749 
750  if ( theStatus == LambertianReflection ) {
751  DoReflection();
752  }
753  else if ( theStatus == BackScattering ) {
754  NewMomentum = -OldMomentum;
755  NewPolarization = -OldPolarization;
756  }
757  else {
758 
759  if(theStatus==LobeReflection){
760  if ( PropertyPointer1 && PropertyPointer2 ){
761  } else {
762  theFacetNormal =
763  GetFacetNormal(OldMomentum,theGlobalNormal);
764  }
765  }
766 
767  PdotN = OldMomentum * theFacetNormal;
768  NewMomentum = OldMomentum - (2.*PdotN)*theFacetNormal;
769  EdotN = OldPolarization * theFacetNormal;
770 
771  if (sint1 > 0.0 ) {
772  A_trans = OldMomentum.cross(theFacetNormal);
773  A_trans = A_trans.unit();
774  } else {
775  A_trans = OldPolarization;
776  }
777  A_paral = NewMomentum.cross(A_trans);
778  A_paral = A_paral.unit();
779 
780  if(iTE>0&&iTM>0) {
781  NewPolarization =
782  -OldPolarization + (2.*EdotN)*theFacetNormal;
783  } else if (iTE>0) {
784  NewPolarization = -A_trans;
785  } else if (iTM>0) {
786  NewPolarization = -A_paral;
787  }
788 
789  }
790 
791  }
792 
793  OldMomentum = NewMomentum;
794  OldPolarization = NewPolarization;
795 
796  }
797 
798  // Loop checking, 13-Aug-2015, Peter Gumplinger
799  } while (NewMomentum * theGlobalNormal < 0.0);
800 }
801 
802 void G4OpBoundaryProcess::DielectricLUT()
803 {
804  G4int thetaIndex, phiIndex;
805  G4double AngularDistributionValue, thetaRad, phiRad, EdotN;
806  G4ThreeVector PerpendicularVectorTheta, PerpendicularVectorPhi;
807 
808  theStatus = G4OpBoundaryProcessStatus(G4int(theFinish) +
809  (G4int(NoRINDEX)-G4int(groundbackpainted)));
810 
811  G4int thetaIndexMax = OpticalSurface->GetThetaIndexMax();
812  G4int phiIndexMax = OpticalSurface->GetPhiIndexMax();
813 
814  G4double rand;
815 
816  do {
817  rand = G4UniformRand();
818  if ( rand > theReflectivity ) {
819  if (rand > theReflectivity + theTransmittance) {
820  DoAbsorption();
821  } else {
822  theStatus = Transmission;
823  NewMomentum = OldMomentum;
824  NewPolarization = OldPolarization;
825  }
826  break;
827  }
828  else {
829  // Calculate Angle between Normal and Photon Momentum
830  G4double anglePhotonToNormal =
831  OldMomentum.angle(-theGlobalNormal);
832  // Round it to closest integer
833  G4int angleIncident = G4int(std::floor(180/pi*anglePhotonToNormal+0.5));
834 
835  // Take random angles THETA and PHI,
836  // and see if below Probability - if not - Redo
837  do {
838  thetaIndex = G4RandFlat::shootInt(thetaIndexMax-1);
839  phiIndex = G4RandFlat::shootInt(phiIndexMax-1);
840  // Find probability with the new indeces from LUT
841  AngularDistributionValue = OpticalSurface ->
842  GetAngularDistributionValue(angleIncident,
843  thetaIndex,
844  phiIndex);
845  // Loop checking, 13-Aug-2015, Peter Gumplinger
846  } while ( !G4BooleanRand(AngularDistributionValue) );
847 
848  thetaRad = (-90 + 4*thetaIndex)*pi/180;
849  phiRad = (-90 + 5*phiIndex)*pi/180;
850  // Rotate Photon Momentum in Theta, then in Phi
851  NewMomentum = -OldMomentum;
852 
853  PerpendicularVectorTheta = NewMomentum.cross(theGlobalNormal);
854  if (PerpendicularVectorTheta.mag() < kCarTolerance )
855  PerpendicularVectorTheta = NewMomentum.orthogonal();
856  NewMomentum =
857  NewMomentum.rotate(anglePhotonToNormal-thetaRad,
858  PerpendicularVectorTheta);
859  PerpendicularVectorPhi =
860  PerpendicularVectorTheta.cross(NewMomentum);
861  NewMomentum = NewMomentum.rotate(-phiRad,PerpendicularVectorPhi);
862 
863  // Rotate Polarization too:
864  theFacetNormal = (NewMomentum - OldMomentum).unit();
865  EdotN = OldPolarization * theFacetNormal;
866  NewPolarization = -OldPolarization + (2.*EdotN)*theFacetNormal;
867  }
868  // Loop checking, 13-Aug-2015, Peter Gumplinger
869  } while (NewMomentum * theGlobalNormal <= 0.0);
870 }
871 
872 void G4OpBoundaryProcess::DielectricDichroic()
873 {
874  // Calculate Angle between Normal and Photon Momentum
875  G4double anglePhotonToNormal = OldMomentum.angle(-theGlobalNormal);
876 
877  // Round it to closest integer
878  G4double angleIncident = std::floor(180/pi*anglePhotonToNormal+0.5);
879 
880  if (!DichroicVector) {
881  if (OpticalSurface) DichroicVector = OpticalSurface->GetDichroicVector();
882  }
883 
884 
885  if (DichroicVector) {
886  G4double wavelength = h_Planck*c_light/thePhotonMomentum;
887  theTransmittance =
888  DichroicVector->Value(wavelength/nm,angleIncident,idx,idy)*perCent;
889 // G4cout << "wavelength: " << std::floor(wavelength/nm)
890 // << "nm" << G4endl;
891 // G4cout << "Incident angle: " << angleIncident << "deg" << G4endl;
892 // G4cout << "Transmittance: "
893 // << std::floor(theTransmittance/perCent) << "%" << G4endl;
894  } else {
895  G4ExceptionDescription ed;
896  ed << " G4OpBoundaryProcess/DielectricDichroic(): "
897  << " The dichroic surface has no G4Physics2DVector"
898  << G4endl;
899  G4Exception("G4OpBoundaryProcess::DielectricDichroic", "OpBoun03",
900  FatalException,ed,
901  "A dichroic surface must have an associated G4Physics2DVector");
902  }
903 
904  if ( !G4BooleanRand(theTransmittance) ) { // Not transmitted, so reflect
905 
906  if ( theModel == glisur || theFinish == polished ) {
907  DoReflection();
908  } else {
909  ChooseReflection();
910  if ( theStatus == LambertianReflection ) {
911  DoReflection();
912  } else if ( theStatus == BackScattering ) {
913  NewMomentum = -OldMomentum;
914  NewPolarization = -OldPolarization;
915  } else {
916  G4double PdotN, EdotN;
917  do {
918  if (theStatus==LobeReflection)
919  theFacetNormal = GetFacetNormal(OldMomentum,theGlobalNormal);
920  PdotN = OldMomentum * theFacetNormal;
921  NewMomentum = OldMomentum - (2.*PdotN)*theFacetNormal;
922  // Loop checking, 13-Aug-2015, Peter Gumplinger
923  } while (NewMomentum * theGlobalNormal <= 0.0);
924  EdotN = OldPolarization * theFacetNormal;
925  NewPolarization = -OldPolarization + (2.*EdotN)*theFacetNormal;
926  }
927  }
928 
929  } else {
930 
931  theStatus = Dichroic;
932  NewMomentum = OldMomentum;
933  NewPolarization = OldPolarization;
934 
935  }
936 }
937 
938 void G4OpBoundaryProcess::DielectricDielectric()
939 {
940  G4bool Inside = false;
941  G4bool Swap = false;
942 
943  G4bool SurfaceRoughnessCriterionPass = 1;
944  if (theSurfaceRoughness != 0. && Rindex1 > Rindex2) {
945  G4double wavelength = h_Planck*c_light/thePhotonMomentum;
946  G4double SurfaceRoughnessCriterion =
947  std::exp(-std::pow((4*pi*theSurfaceRoughness*Rindex1*cost1/wavelength),2));
948  SurfaceRoughnessCriterionPass =
949  G4BooleanRand(SurfaceRoughnessCriterion);
950  }
951 
952  leap:
953 
954  G4bool Through = false;
955  G4bool Done = false;
956 
957  G4double PdotN, EdotN;
958 
959  G4ThreeVector A_trans, A_paral, E1pp, E1pl;
960  G4double E1_perp, E1_parl;
961  G4double s1, s2, E2_perp, E2_parl, E2_total, TransCoeff;
962  G4double E2_abs, C_parl, C_perp;
963  G4double alpha;
964 
965  do {
966 
967  if (Through) {
968  Swap = !Swap;
969  Through = false;
970  theGlobalNormal = -theGlobalNormal;
971  G4SwapPtr(Material1,Material2);
972  G4SwapObj(&Rindex1,&Rindex2);
973  }
974 
975  if ( theFinish == polished ) {
976  theFacetNormal = theGlobalNormal;
977  }
978  else {
979  theFacetNormal =
980  GetFacetNormal(OldMomentum,theGlobalNormal);
981  }
982 
983  PdotN = OldMomentum * theFacetNormal;
984  EdotN = OldPolarization * theFacetNormal;
985 
986  cost1 = - PdotN;
987  if (std::abs(cost1) < 1.0-kCarTolerance){
988  sint1 = std::sqrt(1.-cost1*cost1);
989  sint2 = sint1*Rindex1/Rindex2; // *** Snell's Law ***
990  }
991  else {
992  sint1 = 0.0;
993  sint2 = 0.0;
994  }
995 
996  if (sint2 >= 1.0) {
997 
998  // Simulate total internal reflection
999 
1000  if (Swap) Swap = !Swap;
1001 
1002  theStatus = TotalInternalReflection;
1003 
1004  if ( !SurfaceRoughnessCriterionPass ) theStatus =
1005  LambertianReflection;
1006 
1007  if ( theModel == unified && theFinish != polished )
1008  ChooseReflection();
1009 
1010  if ( theStatus == LambertianReflection ) {
1011  DoReflection();
1012  }
1013  else if ( theStatus == BackScattering ) {
1014  NewMomentum = -OldMomentum;
1015  NewPolarization = -OldPolarization;
1016  }
1017  else {
1018 
1019  PdotN = OldMomentum * theFacetNormal;
1020  NewMomentum = OldMomentum - (2.*PdotN)*theFacetNormal;
1021  EdotN = OldPolarization * theFacetNormal;
1022  NewPolarization = -OldPolarization + (2.*EdotN)*theFacetNormal;
1023 
1024  }
1025  }
1026  else if (sint2 < 1.0) {
1027 
1028  // Calculate amplitude for transmission (Q = P x N)
1029 
1030  if (cost1 > 0.0) {
1031  cost2 = std::sqrt(1.-sint2*sint2);
1032  }
1033  else {
1034  cost2 = -std::sqrt(1.-sint2*sint2);
1035  }
1036 
1037  if (sint1 > 0.0) {
1038  A_trans = OldMomentum.cross(theFacetNormal);
1039  A_trans = A_trans.unit();
1040  E1_perp = OldPolarization * A_trans;
1041  E1pp = E1_perp * A_trans;
1042  E1pl = OldPolarization - E1pp;
1043  E1_parl = E1pl.mag();
1044  }
1045  else {
1046  A_trans = OldPolarization;
1047  // Here we Follow Jackson's conventions and we set the
1048  // parallel component = 1 in case of a ray perpendicular
1049  // to the surface
1050  E1_perp = 0.0;
1051  E1_parl = 1.0;
1052  }
1053 
1054  s1 = Rindex1*cost1;
1055  E2_perp = 2.*s1*E1_perp/(Rindex1*cost1+Rindex2*cost2);
1056  E2_parl = 2.*s1*E1_parl/(Rindex2*cost1+Rindex1*cost2);
1057  E2_total = E2_perp*E2_perp + E2_parl*E2_parl;
1058  s2 = Rindex2*cost2*E2_total;
1059 
1060  if (theTransmittance > 0) TransCoeff = theTransmittance;
1061  else if (cost1 != 0.0) TransCoeff = s2/s1;
1062  else TransCoeff = 0.0;
1063 
1064  if ( !G4BooleanRand(TransCoeff) ) {
1065 
1066  // Simulate reflection
1067 
1068  if (Swap) Swap = !Swap;
1069 
1070  theStatus = FresnelReflection;
1071 
1072  if ( !SurfaceRoughnessCriterionPass ) theStatus =
1073  LambertianReflection;
1074 
1075  if ( theModel == unified && theFinish != polished )
1076  ChooseReflection();
1077 
1078  if ( theStatus == LambertianReflection ) {
1079  DoReflection();
1080  }
1081  else if ( theStatus == BackScattering ) {
1082  NewMomentum = -OldMomentum;
1083  NewPolarization = -OldPolarization;
1084  }
1085  else {
1086 
1087  PdotN = OldMomentum * theFacetNormal;
1088  NewMomentum = OldMomentum - (2.*PdotN)*theFacetNormal;
1089 
1090  if (sint1 > 0.0) { // incident ray oblique
1091 
1092  E2_parl = Rindex2*E2_parl/Rindex1 - E1_parl;
1093  E2_perp = E2_perp - E1_perp;
1094  E2_total = E2_perp*E2_perp + E2_parl*E2_parl;
1095  A_paral = NewMomentum.cross(A_trans);
1096  A_paral = A_paral.unit();
1097  E2_abs = std::sqrt(E2_total);
1098  C_parl = E2_parl/E2_abs;
1099  C_perp = E2_perp/E2_abs;
1100 
1101  NewPolarization = C_parl*A_paral + C_perp*A_trans;
1102 
1103  }
1104 
1105  else { // incident ray perpendicular
1106 
1107  if (Rindex2 > Rindex1) {
1108  NewPolarization = - OldPolarization;
1109  }
1110  else {
1111  NewPolarization = OldPolarization;
1112  }
1113 
1114  }
1115  }
1116  }
1117  else { // photon gets transmitted
1118 
1119  // Simulate transmission/refraction
1120 
1121  Inside = !Inside;
1122  Through = true;
1123  theStatus = FresnelRefraction;
1124 
1125  if (sint1 > 0.0) { // incident ray oblique
1126 
1127  alpha = cost1 - cost2*(Rindex2/Rindex1);
1128  NewMomentum = OldMomentum + alpha*theFacetNormal;
1129  NewMomentum = NewMomentum.unit();
1130 // PdotN = -cost2;
1131  A_paral = NewMomentum.cross(A_trans);
1132  A_paral = A_paral.unit();
1133  E2_abs = std::sqrt(E2_total);
1134  C_parl = E2_parl/E2_abs;
1135  C_perp = E2_perp/E2_abs;
1136 
1137  NewPolarization = C_parl*A_paral + C_perp*A_trans;
1138 
1139  }
1140  else { // incident ray perpendicular
1141 
1142  NewMomentum = OldMomentum;
1143  NewPolarization = OldPolarization;
1144 
1145  }
1146  }
1147  }
1148 
1149  OldMomentum = NewMomentum.unit();
1150  OldPolarization = NewPolarization.unit();
1151 
1152  if (theStatus == FresnelRefraction) {
1153  Done = (NewMomentum * theGlobalNormal <= 0.0);
1154  }
1155  else {
1156  Done = (NewMomentum * theGlobalNormal >= 0.0);
1157  }
1158 
1159  // Loop checking, 13-Aug-2015, Peter Gumplinger
1160  } while (!Done);
1161 
1162  if (Inside && !Swap) {
1163  if( theFinish == polishedbackpainted ||
1164  theFinish == groundbackpainted ) {
1165 
1166  G4double rand = G4UniformRand();
1167  if ( rand > theReflectivity ) {
1168  if (rand > theReflectivity + theTransmittance) {
1169  DoAbsorption();
1170  } else {
1171  theStatus = Transmission;
1172  NewMomentum = OldMomentum;
1173  NewPolarization = OldPolarization;
1174  }
1175  }
1176  else {
1177  if (theStatus != FresnelRefraction ) {
1178  theGlobalNormal = -theGlobalNormal;
1179  }
1180  else {
1181  Swap = !Swap;
1182  G4SwapPtr(Material1,Material2);
1183  G4SwapObj(&Rindex1,&Rindex2);
1184  }
1185  if ( theFinish == groundbackpainted )
1186  theStatus = LambertianReflection;
1187 
1188  DoReflection();
1189 
1190  theGlobalNormal = -theGlobalNormal;
1191  OldMomentum = NewMomentum;
1192 
1193  goto leap;
1194  }
1195  }
1196  }
1197 }
1198 
1199 // GetMeanFreePath
1200 // ---------------
1201 //
1202 G4double G4OpBoundaryProcess::GetMeanFreePath(const G4Track& ,
1203  G4double ,
1204  G4ForceCondition* condition)
1205 {
1206  *condition = Forced;
1207 
1208  return DBL_MAX;
1209 }
1210 
1211 G4double G4OpBoundaryProcess::GetIncidentAngle()
1212 {
1213  G4double PdotN = OldMomentum * theFacetNormal;
1214  G4double magP= OldMomentum.mag();
1215  G4double magN= theFacetNormal.mag();
1216  G4double incidentangle = pi - std::acos(PdotN/(magP*magN));
1217 
1218  return incidentangle;
1219 }
1220 
1221 G4double G4OpBoundaryProcess::GetReflectivity(G4double E1_perp,
1222  G4double E1_parl,
1223  G4double incidentangle,
1224  G4double RealRindex,
1225  G4double ImaginaryRindex)
1226 {
1227  G4complex Reflectivity, Reflectivity_TE, Reflectivity_TM;
1228  G4complex N1(Rindex1, 0), N2(RealRindex, ImaginaryRindex);
1229  G4complex CosPhi;
1230 
1231  G4complex u(1,0); //unit number 1
1232 
1233  G4complex numeratorTE; // E1_perp=1 E1_parl=0 -> TE polarization
1234  G4complex numeratorTM; // E1_parl=1 E1_perp=0 -> TM polarization
1235  G4complex denominatorTE, denominatorTM;
1236  G4complex rTM, rTE;
1237 
1238  G4MaterialPropertiesTable* aMaterialPropertiesTable =
1239  Material1->GetMaterialPropertiesTable();
1240  G4MaterialPropertyVector* aPropertyPointerR =
1241  aMaterialPropertiesTable->GetProperty("REALRINDEX");
1242  G4MaterialPropertyVector* aPropertyPointerI =
1243  aMaterialPropertiesTable->GetProperty("IMAGINARYRINDEX");
1244  if (aPropertyPointerR && aPropertyPointerI) {
1245  G4double RRindex = aPropertyPointerR->Value(thePhotonMomentum);
1246  G4double IRindex = aPropertyPointerI->Value(thePhotonMomentum);
1247  N1 = G4complex(RRindex,IRindex);
1248  }
1249 
1250  // Following two equations, rTM and rTE, are from: "Introduction To Modern
1251  // Optics" written by Fowles
1252 
1253  CosPhi=std::sqrt(u-((std::sin(incidentangle)*std::sin(incidentangle))*(N1*N1)/(N2*N2)));
1254 
1255  numeratorTE = N1*std::cos(incidentangle) - N2*CosPhi;
1256  denominatorTE = N1*std::cos(incidentangle) + N2*CosPhi;
1257  rTE = numeratorTE/denominatorTE;
1258 
1259  numeratorTM = N2*std::cos(incidentangle) - N1*CosPhi;
1260  denominatorTM = N2*std::cos(incidentangle) + N1*CosPhi;
1261  rTM = numeratorTM/denominatorTM;
1262 
1263  // This is my calculaton for reflectivity on a metalic surface
1264  // depending on the fraction of TE and TM polarization
1265  // when TE polarization, E1_parl=0 and E1_perp=1, R=abs(rTE)^2 and
1266  // when TM polarization, E1_parl=1 and E1_perp=0, R=abs(rTM)^2
1267 
1268  Reflectivity_TE = (rTE*conj(rTE))*(E1_perp*E1_perp)
1269  / (E1_perp*E1_perp + E1_parl*E1_parl);
1270  Reflectivity_TM = (rTM*conj(rTM))*(E1_parl*E1_parl)
1271  / (E1_perp*E1_perp + E1_parl*E1_parl);
1272  Reflectivity = Reflectivity_TE + Reflectivity_TM;
1273 
1274  do {
1275  if(G4UniformRand()*real(Reflectivity) > real(Reflectivity_TE))
1276  {iTE = -1;}else{iTE = 1;}
1277  if(G4UniformRand()*real(Reflectivity) > real(Reflectivity_TM))
1278  {iTM = -1;}else{iTM = 1;}
1279  // Loop checking, 13-Aug-2015, Peter Gumplinger
1280  } while(iTE<0&&iTM<0);
1281 
1282  return real(Reflectivity);
1283 
1284 }
1285 
1286 void G4OpBoundaryProcess::CalculateReflectivity()
1287 {
1288  G4double RealRindex =
1289  PropertyPointer1->Value(thePhotonMomentum);
1290  G4double ImaginaryRindex =
1291  PropertyPointer2->Value(thePhotonMomentum);
1292 
1293  // calculate FacetNormal
1294  if ( theFinish == ground ) {
1295  theFacetNormal =
1296  GetFacetNormal(OldMomentum, theGlobalNormal);
1297  } else {
1298  theFacetNormal = theGlobalNormal;
1299  }
1300 
1301  G4double PdotN = OldMomentum * theFacetNormal;
1302  cost1 = -PdotN;
1303 
1304  if (std::abs(cost1) < 1.0 - kCarTolerance) {
1305  sint1 = std::sqrt(1. - cost1*cost1);
1306  } else {
1307  sint1 = 0.0;
1308  }
1309 
1310  G4ThreeVector A_trans, A_paral, E1pp, E1pl;
1311  G4double E1_perp, E1_parl;
1312 
1313  if (sint1 > 0.0 ) {
1314  A_trans = OldMomentum.cross(theFacetNormal);
1315  A_trans = A_trans.unit();
1316  E1_perp = OldPolarization * A_trans;
1317  E1pp = E1_perp * A_trans;
1318  E1pl = OldPolarization - E1pp;
1319  E1_parl = E1pl.mag();
1320  }
1321  else {
1322  A_trans = OldPolarization;
1323  // Here we Follow Jackson's conventions and we set the
1324  // parallel component = 1 in case of a ray perpendicular
1325  // to the surface
1326  E1_perp = 0.0;
1327  E1_parl = 1.0;
1328  }
1329 
1330  //calculate incident angle
1331  G4double incidentangle = GetIncidentAngle();
1332 
1333  //calculate the reflectivity depending on incident angle,
1334  //polarization and complex refractive
1335 
1336  theReflectivity =
1337  GetReflectivity(E1_perp, E1_parl, incidentangle,
1338  RealRindex, ImaginaryRindex);
1339 }
1340 
1341 G4bool G4OpBoundaryProcess::InvokeSD(const G4Step* pStep)
1342 {
1343  G4Step aStep = *pStep;
1344 
1345  aStep.AddTotalEnergyDeposit(thePhotonMomentum);
1346 
1347  G4VSensitiveDetector* sd = aStep.GetPostStepPoint()->GetSensitiveDetector();
1348  if (sd) return sd->Hit(&aStep);
1349  else return false;
1350 }
condition
G4double condition(const G4ErrorSymMatrix &m)
PolishedVM2000AirReflection
Definition: G4OpBoundaryProcess.hh:111
PolishedTeflonAirReflection
Definition: G4OpBoundaryProcess.hh:108
G4INCL::DeJongSpin::shoot
ThreeVector shoot(const G4int Ap, const G4int Af)
Definition: G4INCLDeJongSpin.cc:68
glisur
Definition: G4OpticalSurface.hh:101
GroundVM2000AirReflection
Definition: G4OpBoundaryProcess.hh:127
G4SwapObj
void G4SwapObj(T *a, T *b)
Definition: templates.hh:129
G4MaterialPropertiesTable::GetProperty
G4MaterialPropertyVector * GetProperty(const char *key)
halfpi
static const double halfpi
Definition: G4SIunits.hh:76
G4OpticalSurface::GetModel
G4OpticalSurfaceModel GetModel() const
Definition: G4OpticalSurface.hh:160
polishedfrontpainted
Definition: G4OpticalSurface.hh:64
EtchedTiOAirReflection
Definition: G4OpBoundaryProcess.hh:117
EtchedLumirrorAirReflection
Definition: G4OpBoundaryProcess.hh:113
G4VProcess::verboseLevel
G4int verboseLevel
Definition: G4VProcess.hh:368
G4OpBoundaryProcess::GetReflectivity
G4double GetReflectivity(G4double E1_perp, G4double E1_parl, G4double incidentangle, G4double RealRindex, G4double ImaginaryRindex)
Definition: G4OpBoundaryProcess.cc:1221
G4ExceptionDescription
std::ostringstream G4ExceptionDescription
Definition: globals.hh:76
G4ThreeVector
CLHEP::Hep3Vector G4ThreeVector
Definition: G4ThreeVector.hh:42
G4OpBoundaryProcess::DichroicVector
G4Physics2DVector * DichroicVector
Definition: G4OpBoundaryProcess.hh:257
G4Track::GetVelocity
G4double GetVelocity() const
G4Track::GetDynamicParticle
const G4DynamicParticle * GetDynamicParticle() const
PolishedVM2000GlueReflection
Definition: G4OpBoundaryProcess.hh:112
StepTooSmall
Definition: G4UCNBoundaryProcess.hh:74
GroundTyvekAirReflection
Definition: G4OpBoundaryProcess.hh:126
G4OpBoundaryProcess.hh
LambertianReflection
Definition: G4UCNBoundaryProcess.hh:79
EtchedTyvekAirReflection
Definition: G4OpBoundaryProcess.hh:118
dielectric_metal
Definition: G4SurfaceProperty.hh:67
GroundAirReflection
Definition: G4OpBoundaryProcess.hh:123
GroundLumirrorAirReflection
Definition: G4OpBoundaryProcess.hh:121
G4StepPoint::GetStepStatus
G4StepStatus GetStepStatus() const
G4StepPoint::GetMaterial
G4Material * GetMaterial() const
G4OpBoundaryProcess::OpticalSurface
G4OpticalSurface * OpticalSurface
Definition: G4OpBoundaryProcess.hh:227
G4GeometryTolerance::GetSurfaceTolerance
G4double GetSurfaceTolerance() const
Definition: G4GeometryTolerance.cc:87
G4OpBoundaryProcess::PostStepDoIt
G4VParticleChange * PostStepDoIt(const G4Track &aTrack, const G4Step &aStep)
Definition: G4OpBoundaryProcess.cc:166
G4ParticleChange::ProposePolarization
void ProposePolarization(G4double Px, G4double Py, G4double Pz)
unified
Definition: G4OpticalSurface.hh:102
groundbackpainted
Definition: G4OpticalSurface.hh:69
G4ParallelWorldProcess.hh
G4SurfaceProperty::GetType
const G4SurfaceType & GetType() const
Definition: G4SurfaceProperty.hh:118
G4OpBoundaryProcessStatus
G4OpBoundaryProcessStatus
Definition: G4OpBoundaryProcess.hh:98
Absorption
Definition: G4UCNBoundaryProcess.hh:77
Transmission
Definition: G4OpBoundaryProcess.hh:99
G4OpBoundaryProcess::G4OpBoundaryProcess
G4OpBoundaryProcess(const G4String &processName="OpBoundary", G4ProcessType type=fOptical)
Definition: G4OpBoundaryProcess.cc:103
G4SurfaceType
G4SurfaceType
Definition: G4SurfaceProperty.hh:65
EtchedAirReflection
Definition: G4OpBoundaryProcess.hh:115
Detection
Definition: G4OpBoundaryProcess.hh:103
G4OpBoundaryProcess::PropertyPointer1
G4MaterialPropertyVector * PropertyPointer1
Definition: G4OpBoundaryProcess.hh:230
Forced
Definition: G4ForceCondition.hh:54
PolishedLumirrorAirReflection
Definition: G4OpBoundaryProcess.hh:105
G4int
int G4int
Definition: G4Types.hh:78
G4OpBoundaryProcess::theFinish
G4OpticalSurfaceFinish theFinish
Definition: G4OpBoundaryProcess.hh:242
G4VParticleChange::ProposeLocalEnergyDeposit
void ProposeLocalEnergyDeposit(G4double anEnergyPart)
Undefined
Definition: G4UCNBoundaryProcess.hh:71
G4LogicalBorderSurface::GetSurface
static G4LogicalBorderSurface * GetSurface(const G4VPhysicalVolume *vol1, const G4VPhysicalVolume *vol2)
Definition: G4LogicalBorderSurface.cc:141
G4DynamicParticle::GetTotalMomentum
G4double GetTotalMomentum() const
G4Step::GetPreStepPoint
G4StepPoint * GetPreStepPoint() const
PolishedLumirrorGlueReflection
Definition: G4OpBoundaryProcess.hh:106
dielectric_LUT
Definition: G4SurfaceProperty.hh:69
G4OpBoundaryProcess::theStatus
G4OpBoundaryProcessStatus theStatus
Definition: G4OpBoundaryProcess.hh:238
G4VSensitiveDetector.hh
G4complex
std::complex< G4double > G4complex
Definition: G4Types.hh:81
GroundLumirrorGlueReflection
Definition: G4OpBoundaryProcess.hh:122
G4UniformRand
#define G4UniformRand()
Definition: Randomize.hh:97
G4cout
G4GLOB_DLL std::ostream G4cout
dielectric_dichroic
Definition: G4SurfaceProperty.hh:70
G4Physics2DVector::Value
G4double Value(G4double x, G4double y, size_t &lastidx, size_t &lastidy) const
Definition: G4Physics2DVector.cc:147
fOpBoundary
Definition: G4OpProcessSubType.hh:47
G4OpticalSurface::GetPolish
G4double GetPolish() const
Definition: G4OpticalSurface.hh:171
G4StepPoint::GetPhysicalVolume
G4VPhysicalVolume * GetPhysicalVolume() const
G4VPhysicalVolume::GetName
const G4String & GetName() const
G4StepPoint::GetPosition
const G4ThreeVector & GetPosition() const
G4OpticalSurface::GetPhiIndexMax
G4int GetPhiIndexMax(void) const
Definition: G4OpticalSurface.hh:194
G4OpBoundaryProcess::G4BooleanRand
G4bool G4BooleanRand(const G4double prob) const
Definition: G4OpBoundaryProcess.hh:265
G4bool
bool G4bool
Definition: G4Types.hh:79
NoRINDEX
Definition: G4OpBoundaryProcess.hh:104
GroundTeflonAirReflection
Definition: G4OpBoundaryProcess.hh:124
G4DynamicParticle::GetMomentumDirection
const G4ThreeVector & GetMomentumDirection() const
nm
static const double nm
Definition: G4SIunits.hh:111
SpikeReflection
Definition: G4OpBoundaryProcess.hh:102
twopi
static const double twopi
Definition: G4SIunits.hh:75
TotalInternalReflection
Definition: G4OpBoundaryProcess.hh:100
G4OpProcessSubType.hh
G4VSensitiveDetector::Hit
G4bool Hit(G4Step *aStep)
Definition: G4VSensitiveDetector.hh:114
G4VProcess::SetProcessSubType
void SetProcessSubType(G4int)
Definition: G4VProcess.hh:432
G4OpBoundaryProcess::GetMeanFreePath
G4double GetMeanFreePath(const G4Track &, G4double, G4ForceCondition *condition)
Definition: G4OpBoundaryProcess.cc:1202
BackScattering
Definition: G4OpBoundaryProcess.hh:102
perCent
static const double perCent
Definition: G4SIunits.hh:329
G4OpBoundaryProcess::BoundaryProcessVerbose
void BoundaryProcessVerbose(void) const
Definition: G4OpBoundaryProcess.cc:545
G4Step
Definition: G4Step.hh:76
n
const G4int n
Definition: G4UrQMD1_3Interface.hh:144
G4VPhysicalVolume::GetMotherLogical
G4LogicalVolume * GetMotherLogical() const
G4PhysicsVector::Value
G4double Value(G4double theEnergy, size_t &lastidx) const
Definition: G4PhysicsVector.cc:498
G4VProcess::GetProcessName
const G4String & GetProcessName() const
Definition: G4VProcess.hh:408
FresnelReflection
Definition: G4OpBoundaryProcess.hh:100
G4OpticalSurface::GetFinish
G4OpticalSurfaceFinish GetFinish() const
Definition: G4OpticalSurface.hh:155
G4Exception
void G4Exception(const char *originOfException, const char *exceptionCode, G4ExceptionSeverity severity, const char *comments)
Definition: G4Exception.cc:41
G4PhysicalConstants.hh
polished
Definition: G4OpticalSurface.hh:63
G4TransportationManager::GetTransportationManager
static G4TransportationManager * GetTransportationManager()
Definition: G4TransportationManager.cc:100
G4OpBoundaryProcess::theModel
G4OpticalSurfaceModel theModel
Definition: G4OpBoundaryProcess.hh:240
G4OpBoundaryProcess::InvokeSD
G4bool InvokeSD(const G4Step *step)
Definition: G4OpBoundaryProcess.cc:1341
LobeReflection
Definition: G4OpBoundaryProcess.hh:101
G4ParticleChange::Initialize
virtual void Initialize(const G4Track &)
Definition: G4ParticleChange.cc:228
fGeomBoundary
Definition: G4StepStatus.hh:54
SameMaterial
Definition: G4UCNBoundaryProcess.hh:73
PolishedTyvekAirReflection
Definition: G4OpBoundaryProcess.hh:110
G4VPhysicalVolume::GetLogicalVolume
G4LogicalVolume * GetLogicalVolume() const
G4OpBoundaryProcess::PropertyPointer
G4MaterialPropertyVector * PropertyPointer
Definition: G4OpBoundaryProcess.hh:229
groundfrontpainted
Definition: G4OpticalSurface.hh:68
pi
static const double pi
Definition: G4SIunits.hh:74
G4OpticalSurface::GetDichroicVector
G4Physics2DVector * GetDichroicVector()
Definition: G4OpticalSurface.hh:240
G4SwapPtr
void G4SwapPtr(T *&a, T *&b)
Definition: templates.hh:121
G4Material::GetMaterialPropertiesTable
G4MaterialPropertiesTable * GetMaterialPropertiesTable() const
Definition: G4Material.hh:252
EventMustBeAborted
Definition: G4ExceptionSeverity.hh:63
LUT
Definition: G4OpticalSurface.hh:103
G4Step::GetPostStepPoint
G4StepPoint * GetPostStepPoint() const
G4ios.hh
G4Step::AddTotalEnergyDeposit
void AddTotalEnergyDeposit(G4double value)
G4DynamicParticle::GetPolarization
const G4ThreeVector & GetPolarization() const
FatalException
Definition: G4ExceptionSeverity.hh:60
G4VProcess::aParticleChange
G4ParticleChange aParticleChange
Definition: G4VProcess.hh:289
G4INCL::Math::min
T min(const T t1, const T t2)
brief Return the smallest of the two arguments
Definition: G4INCLGlobals.hh:117
fStopAndKill
Definition: G4TrackStatus.hh:56
EtchedLumirrorGlueReflection
Definition: G4OpBoundaryProcess.hh:114
G4endl
#define G4endl
Definition: G4ios.hh:61
EtchedVM2000AirReflection
Definition: G4OpBoundaryProcess.hh:119
G4LogicalSurface::GetSurfaceProperty
G4SurfaceProperty * GetSurfaceProperty() const
G4StepPoint::GetSensitiveDetector
G4VSensitiveDetector * GetSensitiveDetector() const
ground
Definition: G4OpticalSurface.hh:67
G4ParticleChange::ProposeMomentumDirection
void ProposeMomentumDirection(G4double Px, G4double Py, G4double Pz)
G4OpBoundaryProcess::PropertyPointer2
G4MaterialPropertyVector * PropertyPointer2
Definition: G4OpBoundaryProcess.hh:231
G4double
double G4double
Definition: G4Types.hh:76
G4VParticleChange::ProposeTrackStatus
void ProposeTrackStatus(G4TrackStatus status)
PolishedTiOAirReflection
Definition: G4OpBoundaryProcess.hh:109
G4SystemOfUnits.hh
G4OpticalSurface::GetSigmaAlpha
G4double GetSigmaAlpha() const
Definition: G4OpticalSurface.hh:166
G4ForceCondition
G4ForceCondition
Definition: G4ForceCondition.hh:49
NotAtBoundary
Definition: G4UCNBoundaryProcess.hh:72
alpha
static const G4double alpha
Definition: G4LivermoreBremsstrahlungModel.cc:79
G4GeometryTolerance.hh
G4ParticleChange::ProposeVelocity
void ProposeVelocity(G4double finalVelocity)
DBL_MAX
#define DBL_MAX
Definition: templates.hh:83
G4OpticalSurface::GetThetaIndexMax
G4int GetThetaIndexMax(void) const
Definition: G4OpticalSurface.hh:193
G4VDiscreteProcess::PostStepDoIt
virtual G4VParticleChange * PostStepDoIt(const G4Track &, const G4Step &)
Definition: G4VDiscreteProcess.cc:112
EtchedVM2000GlueReflection
Definition: G4OpBoundaryProcess.hh:120
FresnelRefraction
Definition: G4OpBoundaryProcess.hh:99
polishedbackpainted
Definition: G4OpticalSurface.hh:65
GroundTiOAirReflection
Definition: G4OpBoundaryProcess.hh:125
EtchedTeflonAirReflection
Definition: G4OpBoundaryProcess.hh:116
Dichroic
Definition: G4OpBoundaryProcess.hh:129
G4Track::GetStepLength
G4double GetStepLength() const
G4GeometryTolerance::GetInstance
static G4GeometryTolerance * GetInstance()
Definition: G4GeometryTolerance.cc:73
G4ParallelWorldProcess::GetHyperStep
static const G4Step * GetHyperStep()
Definition: G4ParallelWorldProcess.cc:56
G4cerr
G4GLOB_DLL std::ostream G4cerr
dielectric_dielectric
Definition: G4SurfaceProperty.hh:68
G4OpBoundaryProcess::GetFacetNormal
G4ThreeVector GetFacetNormal(const G4ThreeVector &Momentum, const G4ThreeVector &Normal) const
Definition: G4OpBoundaryProcess.cc:630
G4ProcessType
G4ProcessType
Definition: G4ProcessType.hh:43
GroundVM2000GlueReflection
Definition: G4OpBoundaryProcess.hh:128
PolishedAirReflection
Definition: G4OpBoundaryProcess.hh:107
G4LogicalSkinSurface::GetSurface
static G4LogicalSkinSurface * GetSurface(const G4LogicalVolume *vol)
Definition: G4LogicalSkinSurface.cc:135