inel_flat_plate_v2
Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revision | |||
inel_flat_plate_v2 [2009/09/25 08:01] – johnsoevans | inel_flat_plate_v2 [2022/11/03 15:08] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ====== Inel Flat Plate Correction ====== | ||
+ | |||
+ | <code topas> | ||
+ | macro Inel_Flat_Plate_V2(alpha, | ||
+ | ' Version by Matthew Rowles CSIRO Minerals | ||
+ | ' Equations for correction of intensity and sample displacement for flat plate samples | ||
+ | ' in fixed incident beam geometry e.g. when using the Inel CPS120 position sensitive detector | ||
+ | ' Intensity correction derived from Toraya et al. (1993) | ||
+ | ' Sample displacement model derived by Ian Madsen | ||
+ | ' 2Theta = (alpha + beta) | ||
+ | ' | ||
+ | ' Rs = 250mm for the Inel CPS120 detector - Rs must be defined in the input file | ||
+ | { | ||
+ | # | ||
+ | # | ||
+ | If_Prm_Eqn_Rpt(alpha, | ||
+ | | ||
+ | |||
+ | scale_pks = | ||
+ | IF (2 Th) < CeV(alpha, alpha_v) Deg THEN | ||
+ | 0 | ||
+ | ELSE | ||
+ | 2 / (1 + (Sin(CeV(alpha, | ||
+ | ENDIF; | ||
+ | |||
+ | th2_offset = | ||
+ | IF CeV(sd, sd_v) == 0 THEN | ||
+ | 0 | ||
+ | ELSE | ||
+ | - Rad (CeV(sd, sd_v) Sin(2 Th)) / (Rs Sin(CeV(alpha, | ||
+ | ENDIF; | ||
+ | } | ||
+ | </ |