wifd_mic
Differences
This shows you the differences between two versions of the page.
Next revision | Previous revision | ||
wifd_mic [2009/08/06 11:12] – created clare | wifd_mic [2022/11/03 15:08] (current) – external edit 127.0.0.1 | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ====== Wifd_mic ====== | ||
+ | |||
+ | Description: | ||
+ | |||
+ | Contributed by: Originally by Bill David at Denver topas meeting, updated by John Evans January 2012 | ||
+ | |||
+ | Original wifd_mic macro is included at the bottom of the page for legacy reasons. | ||
+ | |||
+ | <code topas> | ||
+ | macro wifd_mic_new(two_theta, | ||
+ | | ||
+ | prm tspow | ||
+ | prm tauf_0 | ||
+ | prm tauf_1 | ||
+ | prm taus_0 | ||
+ | prm taus_1 | ||
+ | prm t_eff t_effv min 90.0 | ||
+ | prm hhh hhhv min .001 | ||
+ | prm double_pulse | ||
+ | local | ||
+ | |||
+ | | ||
+ | min 0 max = 10 (tauf_0 + tauf_1 lam ); | ||
+ | |||
+ | local !storage = Exp( -950 /(t_eff lam^2)) hhh; | ||
+ | push_peak | ||
+ | hat = double_pulse ; | ||
+ | scale_top_peak = (1-storage); | ||
+ | bring_2nd_peak_to_top | ||
+ | exp_conv_const = -Ln(0.001) / (taus_0 + taus_1 / lam^2); | ||
+ | scale_top_peak = storage; | ||
+ | add_pop_1st_2nd_peak | ||
+ | } | ||
+ | </ | ||
+ | |||
+ | <code topas> | ||
+ | macro wifd_mic(two_theta, | ||
+ | | ||
+ | prm tspow | ||
+ | prm tauf_0 | ||
+ | prm tauf_1 | ||
+ | prm taus_0 | ||
+ | prm taus_1 | ||
+ | prm t_eff t_effv min 90.0 | ||
+ | prm hhh hhhv min .001 | ||
+ | prm double_pulse | ||
+ | local | ||
+ | |||
+ | | ||
+ | min 0 max = 10 (tauf_0 + tauf_1 lam ); | ||
+ | |||
+ | local !storage = Exp( -950 /(t_eff lam^2)) hhh; | ||
+ | push_peak | ||
+ | hat = double_pulse ; | ||
+ | scale_top_peak = (1-storage)/ | ||
+ | bring_2nd_peak_to_top | ||
+ | exp_conv_const = -Ln(0.001) / (taus_0 + taus_1 / lam^2); | ||
+ | scale_top_peak = storage/ | ||
+ | add_pop_1st_2nd_peak | ||
+ | } | ||
+ | </ | ||
+ | |||
+ | Some untested/ | ||
+ | |||
+ | <code topas> | ||
+ | local !bank_two_theta 91.3 | ||
+ | wifd_mic_new(two_theta, | ||
+ | </ | ||