Differences

This shows you the differences between two versions of the page.

--- variable_divergence_lpsd [2015/08/18 04:53] – created rowlesmr3
+++ variable_divergence_lpsd [2025/09/19 15:18] (current) – external edit 127.0.0.1
@@ Line 1: / Line 1: @@
+====== 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
+<code topas>
+'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
+}
+</code>