Message: OpBoundary Properties of scintillator coated by titanium dioxide Not Logged In (login)
 Next-in-Thread Next-in-Thread
 Next-in-Forum Next-in-Forum

Question OpBoundary Properties of scintillator coated by titanium dioxide 

Forum: Processes Involving Optical Photons
Date: 17 Jun, 2014
From: Evgeny Ch <Evgeny Ch>

What parametrizes need to code for optical boundary between the scintillator with polished brink coated by titanium dioxide and that coat? Here is the code with arbitrary parameters.

G4VPhysicalVolume* volume1; // scintillator
G4VPhysicalVolume* volume2; // titanium dioxide coat

G4OpticalSurface* OpSurface2 = new G4OpticalSurface("OpSurface2");
OpSurface2 -> SetType(dielectric_dielectric);
OpSurface2 -> SetModel(unified);
OpSurface2 -> SetFinish(groundbackpainted);
OpSurface2 -> SetSigmaAlpha(0.1);
G4LogicalBorderSurface* Surface2 = new G4LogicalBorderSurface("OpSurface2",volume1,volume2,OpSurface2);
const G4int NUM = 2; 
G4double pp[NUM] = {2.038*eV, 4.144*eV};
G4double specularlobe[NUM] = {0.9, 0.9};
G4double specularspike[NUM] = {0.9, 0.9};
G4double backscatter[NUM] = {0.1, 0.1};
G4double rindex[NUM] = {1.35, 1.40};
G4double reflectivity[NUM] = {0.9, 0.9};
G4double efficiency[NUM] = {0.8, 0.8};
G4MaterialPropertiesTable* SMPT = new G4MaterialPropertiesTable();
SMPT -> AddProperty("RINDEX",pp,rindex,NUM);
SMPT -> AddProperty("SPECULARLOBECONSTANT",pp,specularlobe,NUM);
SMPT -> AddProperty("SPECULARSPIKECONSTANT",pp,specularspike,NUM);
SMPT -> AddProperty("BACKSCATTERCONSTANT",pp,backscatter,NUM);
SMPT -> AddProperty("REFLECTIVITY",pp,reflectivity,NUM);
SMPT -> AddProperty("EFFICIENCY",pp,efficiency,NUM);
 OpSurface2 -> SetMaterialPropertiesTable(SMPT);

 Add Message Add Message
to: "OpBoundary Properties of scintillator coated by titanium dioxide"

 Subscribe Subscribe

This site runs SLAC HyperNews version 1.11-slac-98, derived from the original HyperNews