STARLIGHT code and interface

[u/mrichter/AliRoot.git] / STARLIGHT / starlight / src / .svn / text-base / incoherentVMCrossSection.cpp.svn-base

///////////////////////////////////////////////////////////////////////////
//
//    Copyright 2010
//
//    This file is part of starlight.
//
//    starlight is free software: you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation, either version 3 of the License, or
//    (at your option) any later version.
//
//    starlight is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
//    GNU General Public License for more details.
//
//    You should have received a copy of the GNU General Public License
//    along with starlight. If not, see <http://www.gnu.org/licenses/>.
//
///////////////////////////////////////////////////////////////////////////
//
// File and Version Information:
// $Rev:: 45                          $: revision of last commit
// $Author:: bgrube                   $: author of last commit
// $Date:: 2011-02-27 20:52:35 +0100 #$: date of last commit
//
// Description:
//
//
//
///////////////////////////////////////////////////////////////////////////


#include <iostream>
#include <fstream>
#include <cmath>

#include "starlightconstants.h"
#include "incoherentVMCrossSection.h"


using namespace std;
using namespace starlightConstants;


//______________________________________________________________________________
incoherentVMCrossSection::incoherentVMCrossSection(const beamBeamSystem&  bbsystem)
	:photonNucleusCrossSection(bbsystem)
{
	_narrowYmax = inputParametersInstance.maxRapidity();
	_narrowYmin = -1.0*_narrowYmax;
	_narrowNumY = inputParametersInstance.nmbRapidityBins();
	_Ep         = inputParametersInstance.protonEnergy();	
}


//______________________________________________________________________________
incoherentVMCrossSection::~incoherentVMCrossSection()
{ }


//______________________________________________________________________________
void
incoherentVMCrossSection::crossSectionCalculation(const double)  // _bwnormsave (unused)
{
	// This subroutine calculates the vector meson cross section assuming
	// a narrow resonance.  For reference, see STAR Note 386.
  
	// double Av,Wgp,cs,cvma;
	double W,dY;
	double y1,y2,y12,ega1,ega2,ega12;
	// double t,tmin,tmax;
	double csgA1,csgA2,csgA12,int_r,dR,rate;
        double Wgp,csVN,csVA; 
	double tmp;
	// double ax,bx;
	double Eth;
	int    J,NY;
	// int    K,NGAUSS;
  
	NY   =  _narrowNumY;
	dY   = (_narrowYmax-_narrowYmin)/double(NY);
  
	cout<<" Using Narrow Resonance ..."<<endl;
  
	W = getChannelMass();
	Eth=0.5*(((W+protonMass)*(W+protonMass)-
	          protonMass*protonMass)/(_Ep+sqrt(_Ep*_Ep-protonMass*protonMass)));
  
	cout<<" gamma+nucleon  Threshold: "<<Eth<<endl;
	int_r=0.;
  
	tmp = 0.0;
  
	for(J=0;J<=(NY-1);J++){
    
		y1  = _narrowYmin + double(J)*dY;
		y2  = _narrowYmin + double(J+1)*dY;
		y12 = 0.5*(y1+y2);
    
		ega1  = 0.5*W*exp(y1);
		ega2  = 0.5*W*exp(y2);
		ega12 = 0.5*W*exp(y12);
    
		if(ega1 < Eth)   
			continue;
		if(ega2 > maxPhotonEnergy()) 
			continue;

		// First point 
                Wgp = sqrt(2.*ega1*(_Ep+sqrt(_Ep*_Ep-starlightConstants::protonMass*starlightConstants::protonMass))
			          +starlightConstants::protonMass*starlightConstants::protonMass);
                csVN = sigma_N(Wgp);            
                csVA = sigma_A(csVN); 
                csgA1 = (csVA/csVN)*sigmagp(Wgp); 
                if( getbbs().beam1().A() == 1 || getbbs().beam2().A()==1 ){
                  csgA1 = sigmagp(Wgp);
                }

		// Middle point 
                Wgp = sqrt(2.*ega12*(_Ep+sqrt(_Ep*_Ep-starlightConstants::protonMass*starlightConstants::protonMass))
			          +starlightConstants::protonMass*starlightConstants::protonMass);
                csVN = sigma_N(Wgp);            
                csVA = sigma_A(csVN); 
                csgA12 = (csVA/csVN)*sigmagp(Wgp); 
                if( getbbs().beam1().A() == 1 || getbbs().beam2().A()==1 ){
                  csgA12 = sigmagp(Wgp);
                }

		// Last point 
                Wgp = sqrt(2.*ega2*(_Ep+sqrt(_Ep*_Ep-starlightConstants::protonMass*starlightConstants::protonMass))
			          +starlightConstants::protonMass*starlightConstants::protonMass);
                csVN = sigma_N(Wgp);            
                csVA = sigma_A(csVN); 
                csgA2 = (csVA/csVN)*sigmagp(Wgp); 
                if( getbbs().beam1().A() == 1 || getbbs().beam2().A()==1 ){
                  csgA2 = sigmagp(Wgp);
                }

                dR = ega1*photonFlux(ega1)*csgA1;  
                dR = dR + 4*ega12*photonFlux(ega12)*csgA12;
                dR = dR + ega2*photonFlux(ega2)*csgA2; 
                dR = dR*(dY/6.); 

		// cout<<" y: "<<y12<<" egamma: "<<ega12<<" flux: "<<photonFlux(ega12)<<" sigma_gA: "<<10000000.*csgA12<<" dsig/dy (microb): "<<10000.*dR/dY<<endl;

		// The 2 accounts for the 2 beams    
	        if(getbbs().beam1().A()==getbbs().beam2().A()){
	        	dR  = 2.*dR;
		}

		int_r = int_r+dR;

	}
	rate=luminosity()*int_r;
	cout<<" Cross section (mb): " <<10.*int_r<<endl;
}