Variable divergence corrections with an LPSD

Correction routine for the analysis of variable divergence data (constant illuminated length) when collected with a linear position sensitive detector.

Contributors: Macro: Matthew Rowles, data: Henry Spratt

'macro for doing variable divergence (fixed illumination length) with the inbuilt lpsd convolution '
' Inputs required: illumination length (mm), and detector size (degrees) '
' Corrects for both peak shape and intensity. '
 
'use this macro if you just want to give the values: '
macro Variable_Divergence_lpsd(lenv, detv) { Variable_Divergence_lpsd(, lenv, , detv) }
 
'use this macro if you want to refine something: '
macro Variable_Divergence_lpsd(lenc, lenv, detc, detv) {
   #m_argu lenc 'illuminated length in mm '
   #m_argu detc 'size of detector in degrees '
   If_Prm_Eqn_Rpt(lenc, lenv, min 0.0001 max 60)
   If_Prm_Eqn_Rpt(detc, detv, min 0.0001 max 179.9999)
 
   lpsd_th2_angular_range_degrees =CeV(detc, detv);
      lpsd_equitorial_divergence_degrees  =(-2 ArcTan((Rp-Sqrt(Rp^2+CeV(lenc,lenv)^2 Cos(Th)^2)) Sin(Th) / (CeV(lenc,lenv) Cos(Th)^2))) Rad;
      lpsd_equitorial_sample_length_mm  =Sin(Th);
         lpsd_beam_spill_correct_intensity 1
}