source: trunk/source/processes/electromagnetic/xrays/test/testCerenkovCrystalPWO.cc

//
// ********************************************************************
// * License and Disclaimer                                           *
// *                                                                  *
// * The  Geant4 software  is  copyright of the Copyright Holders  of *
// * the Geant4 Collaboration.  It is provided  under  the terms  and *
// * conditions of the Geant4 Software License,  included in the file *
// * LICENSE and available at  http://cern.ch/geant4/license .  These *
// * include a list of copyright holders.                             *
// *                                                                  *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work  make  any representation or  warranty, express or implied, *
// * regarding  this  software system or assume any liability for its *
// * use.  Please see the license in the file  LICENSE  and URL above *
// * for the full disclaimer and the limitation of liability.         *
// *                                                                  *
// * This  code  implementation is the result of  the  scientific and *
// * technical work of the GEANT4 collaboration.                      *
// * By using,  copying,  modifying or  distributing the software (or *
// * any work based  on the software)  you  agree  to acknowledge its *
// * use  in  resulting  scientific  publications,  and indicate your *
// * acceptance of all terms of the Geant4 Software license.          *
// ********************************************************************
//
//
// 
//
//  
//
//  Test routine for cerenkov proximity geometry taking into account reflection
//
// History:
//
// 07.11.07, V. Grichine 

#include "G4ios.hh"
#include <fstream>
#include <cmath>
#include "globals.hh"
#include "Randomize.hh"
#include "G4RandomDirection.hh"
#include "G4UnitsTable.hh"
#include "G4Timer.hh"


#include <iomanip>

#include "G4Isotope.hh"
#include "G4Element.hh"
#include "G4Material.hh"
#include "G4MaterialCutsCouple.hh"
#include "G4Region.hh"
#include "G4ProductionCuts.hh"
#include "G4RegionStore.hh"
#include "G4MaterialTable.hh"

#include "G4Box.hh"
#include "G4LogicalVolume.hh"

#include "G4Cerenkov.hh"

#include "G4ParticleDefinition.hh"
#include "G4Proton.hh"


int main()
{
  G4int i, iMax = 20;  // , k, kMax;

  // G4double energy, refA, refB, gamma, numberBC, numberABC, beta, protonMass, protonMom;

  std::ofstream writef("PbWO4.dat", std::ios::out ) ;
  writef.setf( std::ios::scientific, std::ios::floatfield );

  /*
  

  // Arrays of CMS crystal dimensions, table 3.2 from ECAL TDR

  G4double cmsAF[17] = { 21.83, 21.83, 21.83, 21.83, 21.83, 
                         21.83, 21.83, 21.83, 21.83, 
                         21.83, 21.83, 21.83, 21.83,
                         21.83, 21.83, 21.83, 21.83         };

  G4double cmsBF[17] = { 23.59, 22.22, 22.34, 22.47, 22.61, 
                         22.60, 22.55, 22.67, 22.82,
                         23.08, 23.14, 23.29, 23.47, 
                         23.71, 23.88, 24.06, 24.29         };

  G4double cmsCF[17] = { 21.85, 21.87, 21.91, 21.94, 21.97, 
                         22.00, 22.03, 22.05, 22.08, 
                         22.10, 22.12, 22.14, 22.15, 
                         22.17, 22.18, 22.20, 22.21         };


  G4double cmsAR[17] = { 25.84, 25.81, 25.75, 25.67, 25.56,
                         25.43, 25.29, 25.14, 24.98, 
                         24.82, 24.65, 24.49, 24.33, 
                         24.17, 24.02, 23.88, 23.74         };

  G4double cmsBR[17] = { 25.48, 26.22, 26.28, 26.32, 26.34, 
                         26.18, 25.96, 25.92, 25.90, 
                         26.00, 25.89, 25.86, 25.87, 
                         25.95, 25.96, 25.99, 26.07         };

  G4double cmsCR[17] = { 25.86, 25.86, 25.84, 25.80, 25.72, 
                         25.63, 25.52, 25.39, 25.26, 
                         25.12, 24.97, 24.83, 24.68, 
                         24.54, 24.40, 24.27, 24.15         };

  iMax = 17;

  G4double meanAF = 0.,  meanBF = 0.,  meanCF = 0.,  
           meanAR = 0.,  meanBR = 0.,  meanCR = 0.;
  
  for(i=0;i<iMax;i++)
  {
    meanAF += cmsAF[i];
    meanBF += cmsBF[i];
    meanCF += cmsCF[i];
    meanAR += cmsAR[i];
    meanBR += cmsBR[i];
    meanCR += cmsCR[i];
  }
  meanAF /= iMax;
  meanCF /= iMax;
  meanBF /= iMax;
  meanAR /= iMax;
  meanBR /= iMax;
  meanCR /= iMax;

  G4double meanBFR  = 0.5*(meanBF + meanBR);
  G4double meanAFR  = 0.5*(meanAF + meanAR);
  G4double meanCFR  = 0.5*(meanCF + meanCR);
  G4double meanACFR = 0.5*(meanCFR + meanAFR);

  G4cout <<"meanAF = " << meanAF << "; meanBF = "<<meanBF << "; meanCF = " << meanCF << G4endl;

  G4cout << "meanAR = " << meanAR << "; meanBR = "<<meanBR << "; meanCR = "<<meanCR << G4endl;

  G4cout << "meanACFR = " << meanACFR << "; meanBFR = "<<meanBFR << G4endl;

  */

  G4double lambda[14] = { 375., 400., 425., 450., 475., 
                          500., 525., 550., 575., 600., 
                          625., 650., 675., 700.               };

  G4double omega, photonEnergy[14], meanRefInd[14], isoRefInd[14], ratio, ratio2, cofInd, pmsqrt, 
           isoratio, isolog;

  iMax = 14;

  for( i = 0; i < iMax; i++ ) lambda[i] *= nanometer;

  for( i = 0; i < iMax; i++ )
  {
    omega = 2*pi*hbarc/lambda[i];
    photonEnergy[i] = omega;
    G4cout<<lambda[i]/nanometer<<" nm;      "<<omega/eV<<" eV"<<G4endl;
  }


  G4double ordinaryRefInd[14] =  { 2.452, 2.393, 2.353, 2.323, 2.301,
                                   2.284, 2.270, 2.259, 2.250, 2.242, 
                                   2.236, 2.230, 2.226, 2.221              };


  G4double extraordinaryRefInd[14] =  { 2.297, 2.260, 2.236, 2.218, 2.205, 
                                        2.194, 2.186, 2.178, 2.173, 2.169,
                                        2.164, 2.161, 2.158, 2.156            };

  G4double fastSpectrum[14] =  { 37., 84., 117., 121., 102., 
                                        72., 46., 23., 9., 0.,
                                        0., 0., 0., 0.        };

  // in mm from plot

  G4double alphaCof[14] =  { 42, 34, 34, 27, 20, 
                             15, 13, 11, 10, 10, 
                             10, 10, 10, 10           };


  G4cout<<G4endl;

  for( i = 0; i < iMax; i++ )
  {
    ratio  = ordinaryRefInd[i]/extraordinaryRefInd[i];
    pmsqrt = std::sqrt( (ordinaryRefInd[i]-extraordinaryRefInd[i])* 
                        (ordinaryRefInd[i]+extraordinaryRefInd[i]) );
    ratio2 = ratio*ratio;
    cofInd = std::sqrt( ratio2 - 1. );
    meanRefInd[i] = std::asin(cofInd/ratio)*ordinaryRefInd[i]/cofInd;

    isolog = std::log( ratio + pmsqrt/extraordinaryRefInd[i] ); 
    isoratio = ordinaryRefInd[i]*pmsqrt/isolog;
    isoRefInd[i] = std::sqrt(isoratio);
    G4cout << lambda[i]/nanometer<<" nm; " << photonEnergy[i]/eV << " eV"
           << "\t"<< ordinaryRefInd[i]<< "\t"<< meanRefInd[i]<<"\t" 
           << isoRefInd[i]<<"\t" << extraordinaryRefInd[i] << G4endl;

    writef
      // <<lambda[i]/nanometer<<" * nanometer      "<<photonEnergy[i]/eV<<" * eV"
          <<"\t"<<ordinaryRefInd[i]<< "\t"<< meanRefInd[i]<<"\t"
          << isoRefInd[i]<<"\t" <<extraordinaryRefInd[i]<<G4endl;
  }
  G4cout<<G4endl;

  for( i = iMax - 1; i >= 0; i-- )
  {
    G4cout << photonEnergy[i]/eV << "*eV, " ; // << G4endl;
  }

  G4cout<<G4endl;

  for( i = iMax - 1; i >= 0; i-- )
  {
    G4cout << isoRefInd[i]  << ", " ; // << G4endl;
  }
  G4cout<<G4endl;

  for( i = iMax - 1; i >= 0; i-- )
  {
    G4cout << fastSpectrum[i]  << ", " ; // << G4endl;
  }
  G4cout<<G4endl;

  G4double aCof, absLength;

  for( i = iMax - 1; i >= 0; i-- )
  {
    aCof = alphaCof[i]*0.025/166.5;

    absLength = 1/aCof;

    G4cout << absLength  << "*cm, " ; // << G4endl;
  }
  G4cout<<G4endl;

  /*

  G4double aE, bE, delta, sinT, cosT, sinP, BA, B, D, theta, phi, beta2;
  G4double  det2, det, y1, y2, y3, y4, b2pm, b2re;
    
  iMax = 10;
  kMax = 12;

  // ref. index values for 

  aE    = 2.323*2.323;
  bE    = 2.218*2.218;
  delta = bE - aE;
  beta2 = 0.195;   // 0.194; // 1.;
  G4cout<<"1/aE ="<<1/aE<<"\t"<<"1/bE ="<<1/bE<<G4endl<<G4endl;
  writef<<"1/aE ="<<1/aE<<"\t"<<"1/bE ="<<1/bE<<G4endl<<G4endl;
  G4cout<<"beta = "<<std::sqrt(beta2)<<"\t"<<"beta2 = "<<beta2<<G4endl<<G4endl;
  writef<<"beta = "<<std::sqrt(beta2)<<"\t"<<"beta2 = "<<beta2<<G4endl<<G4endl;

  for( i = 0; i <= iMax; i++) 
  {
    theta = i*90*degree/iMax;
    cosT  = std::cos(theta);
    sinT  = std::sin(theta);

    b2pm  = cosT*cosT/aE + sinT*sinT/bE; 

    G4cout<<"theta = "<<theta/degree<<" degrees"<<";    b2pm = "<<b2pm<<G4endl<<G4endl;
    writef<<"theta = "<<theta/degree<<" degrees"<<";    b2pm = "<<b2pm<<G4endl<<G4endl;

G4cout<<"phi "<<"\t"<<"y1    "<<"\t"<<"y2    "<<"\t"<<"b2re   "<<"\t"<<"b2pm-b2re  "<<G4endl<<G4endl;
writef<<"phi "<<"\t"<<"y1    "<<"\t"<<"y2    "<<"\t"<<"b2re   "<<"\t"<<"b2pm-b2re  "<<G4endl<<G4endl;


    for( k = 0; k <= kMax; k++) 
    {
      phi = k*360*degree/kMax;
      sinP = std::sin(phi);
      
      B    =  delta*sinT*sinT*sinP*sinP + aE;
      BA   =  delta*cosT*cosT + aE*(1 - bE*beta2);
      D    = -delta*cosT*sinT*sinP;
      det2 =  D*D - B*BA;
      b2re =  ( 1 + delta*cosT*cosT/B )/bE;

      if( det2 < 0.)
      {
        G4cout<<phi/degree<<"\t"<<"no y1   "<<"\t"<<"no y2   "<<"\t"<<b2re<<"\t"<<b2pm-b2re<<G4endl;
        writef<<phi/degree<<"\t"<<"no y1   "<<"\t"<<"no y2   "<<"\t"<<b2re<<"\t"<<b2pm-b2re<<G4endl;
      }
      else
      {
        det = std::sqrt(det2);
        y1  = (-D + det)/B;
        y2  = (-D - det)/B;
        // y3  = (D + det)/B;
        // y4  = (D - det)/B;
        G4cout<<phi/degree<<"\t"<<y1<<"\t"<<y2<<"\t"<<b2re<<"\t"<<b2pm-b2re<<G4endl;
        writef<<phi/degree<<"\t"<<y1<<"\t"<<y2<<"\t"<<b2re<<"\t"<<b2pm-b2re<<G4endl;
      }
    }    
    G4cout<<"aE/bE = "<<aE/bE<<G4endl;
    writef<<G4endl;
  }

  */




  return 1 ;
}