#include <iostream>
using std::cout;
using std::cerr;
using std::cin;
using std::endl;

#include <valarray>
using std::valarray;

#include <fstream>
using std::fstream;

#include <string>
using std::string;

#include <list>
using std::list;

#include "TObject.h"
#include "TVector3.h"
#include "TRandom.h"

#include "PndDrcOptMatAbs.h"
#include "PndDrcOptMatLithotecQ0.h"


//----------------------------------------------------------------------
PndDrcOptMatLithotecQ0::PndDrcOptMatLithotecQ0()
{
  m_f1 = 28.17847;
  m_e1 = 10.28086;
  m_f2 = 207.5092;
  m_e2 = 15.77682;
}
//----------------------------------------------------------------------
PndDrcOptMatLithotecQ0* PndDrcOptMatLithotecQ0::clone() const
{
  return new PndDrcOptMatLithotecQ0(*this);
}
//----------------------------------------------------------------------
void PndDrcOptMatLithotecQ0::copy(const PndDrcOptMatLithotecQ0& mat)
{
  m_f1  = mat.m_f1;
  m_e1  = mat.m_e1;
  m_f2  = mat.m_f2;
  m_e2  = mat.m_e2;
  m_ran = mat.m_ran;
}//----------------------------------------------------------------------
PndDrcOptMatLithotecQ0::PndDrcOptMatLithotecQ0(const PndDrcOptMatLithotecQ0& mat)
  : PndDrcOptMatAbs(mat)
{
  if (mat.m_verbosity>=1) cout<<"  PndDrcOptMatLithotecQ0::PndDrcOptMatLithotecQ0"
			    <<"(const PndDrcOptMatLithotecQ0&) "  
			    <<mat.m_name<<endl;
  copy(mat);
} 
//----------------------------------------------------------------------
PndDrcOptMatLithotecQ0& PndDrcOptMatLithotecQ0::operator=(const PndDrcOptMatLithotecQ0& mat)
{
  if (mat.m_verbosity>=1) cout<<"  PndDrcOptMatLithotecQ0::operator="
			    <<"(const PndDrcOptMatLithotecQ0&) "  
			    <<mat.m_name<<endl;
  if (&mat != this)
    {
      static_cast<PndDrcOptMatAbs&>((*this)) = mat; // assignment of base class part.
      copy(mat);
    }
  return *this;
}
//----------------------------------------------------------------------
double PndDrcOptMatLithotecQ0::refIndex(const double lambda) const
{
  static const double pi    = 3.1415926535;
  static const double hbarc = 197.3269602;  // Mev fm

  if (lambda<0) return 1.47; // average value.

  //cout<<" PndDrcOptMatLithotecQ0::refIndex: lambda = "<<lambda<<endl;//###
  double e = 2*pi*hbarc/lambda; // energy [eV]
  
  if (e<m_e1)
    {
      // refraction index
      return sqrt(1.0L + m_f1/(m_e1*m_e1-e*e) + m_f2/(m_e2*m_e2-e*e));
    }     
  else
    {
      cerr<<" *** PndDrcOptMatLithotecQ0::refIndex: too short wavelength. "
	  <<" lambda = "<<lambda<<" ... abort"<<endl;
      exit(EXIT_FAILURE);
    }

  return 1.47; 
}  
//----------------------------------------------------------------------
double PndDrcOptMatLithotecQ0::refIndexDeriv(const double lambda) const
{
  static const double pi    = 3.1415926535;
  static const double hbarc = 197.3269602;  // Mev fm

  double e = 2*pi*hbarc/lambda; // energy [eV]
  
  if (e<m_e1)
    {
      // refraction index
      return e/refIndex(lambda) * ( m_f1/(m_e1*m_e1-e*e)/(m_e1*m_e1-e*e) + 
				    m_f2/(m_e2*m_e2-e*e)/(m_e2*m_e2-e*e)  ) 
	* (-2*pi*hbarc/lambda/lambda);
    }     
  else
    {
      cerr<<" *** PndDrcOptMatLithotecQ0::refIndexDeriv: too short wavelength. "
	  <<" lambda = "<<lambda<<" ... abort"<<endl;
      exit(EXIT_FAILURE);
    }

 return 0;
}
//----------------------------------------------------------------------
bool PndDrcOptMatLithotecQ0::absorptionFlag(double lambda, double length) const
{
  // Rayleigh scattering. 
  static const double clarity = 2100*1000; // @ 633 nm in mm (2100 m) (=278m at 400nm)

  double trans = exp(-(length)/(clarity*pow(lambda/663,4)));
  double cmp   = m_ran.Uniform(1.0);


  if (cmp>trans)
    {
      return true; // absorbed
    } 

  return false; // no absorption.
}