[bump minor] Add new FVoigt script

bin/picca_compute_fvoigt_hcd.py

@@ -0,0 +1,144 @@
+#!/usr/bin/env python3
+import argparse
+
+import numpy as np
+from scipy.constants import speed_of_light
+from scipy.special import wofz
+
+from picca import constants
+
+
+def voigt_profile(x, sigma=1, gamma=1):
+    return np.real(wofz((x + 1j*gamma) / (sigma * np.sqrt(2))))
+
+
+def tau(wave, z, N_hi):
+    # wave = lambda in A and N_HI in log10 and 10**N_hi in cm^-2
+    wave_rf = wave / (1 + z)
+
+    e = 1.6021e-19  # C
+    epsilon0 = 8.8541e-12  # C^2.s^2.kg^-1.m^-3
+    f = 0.4164
+    mp = 1.6726e-27  # kg
+    me = 9.109e-31  # kg
+    c = speed_of_light  # m.s^-1
+    k = 1.3806e-23  # m^2.kg.s^-2.K-1
+    T = 1e4  # K
+    gamma = 6.265e8  # s^-1
+
+    wave_lya = constants.ABSORBER_IGM["LYA"]  # A
+    Deltat_wave = wave_lya / c * np.sqrt(2 * k * T / mp)  # A
+
+    a = gamma / (4 * np.pi * Deltat_wave) * wave_lya**2 / c * 1e-10
+    u = (wave_rf - wave_lya) / Deltat_wave
+    H = voigt_profile(u, np.sqrt(1/2), a)
+
+    absorbtion = np.sqrt(np.pi) * e**2 * f * wave_lya**2 * 1e-10 * H
+    absorbtion /= (4 * np.pi * epsilon0 * me * c**2 * Deltat_wave)
+
+    # 10^N_hi in cm^-2 and absorb in m^2
+    return 10**N_hi * 1e4 * absorbtion
+
+
+def get_voigt_profile_wave(x, z, N_hi):
+    t = tau(x, z, N_hi).astype(float)
+    return np.exp(-t)
+
+
+def profile_wave_to_comov_dist(wave, profile_wave, cosmo, differential=False):
+    z = wave / constants.ABSORBER_IGM["LYA"] - 1
+    comov_dist = cosmo.get_r_comov(z)
+    lin_spaced_comov_dist = np.linspace(comov_dist[0], comov_dist[-1], comov_dist.size)
+
+    profile_comov_dist = profile_wave
+    if differential:
+        # We are in the f(lambda)dlambda = f(r)dr case,
+        # so need to account for dlambda / dr = H(z) * Lambda_Lya / c
+        profile_comov_dist = cosmo.get_hubble(z) * constants.ABSORBER_IGM["LYA"] / speed_of_light
+
+    profile_comov_dist = np.interp(lin_spaced_comov_dist, comov_dist, profile_comov_dist)
+
+    return lin_spaced_comov_dist, profile_comov_dist
+
+
+def fft_profile(profile, dx):
+    # not normalized
+    size = profile.size
+    ft_profile = dx * np.fft.rfft(profile - 1)
+    k = np.fft.rfftfreq(size, dx) * (2 * np.pi)
+
+    return k, np.abs(ft_profile)
+
+
+def main():
+    parser = argparse.ArgumentParser(formatter_class=argparse.ArgumentDefaultsHelpFormatter,
+                                     description=('Compute FVoigt profile'))
+
+    parser.add_argument('-o', '--output', type=str, default=None,
+                        help=('Name and path of file to write FVoigt profile to'))
+
+    parser.add_argument('--weights', type=str, default=None,
+                        help=('File with total weight as a function of observed wavelength'))
+
+    parser.add_argument('--cddf', type=str, default=None,
+                        help=('File with column density distribution function (CDDF)'))
+
+    parser.add_argument('--dla-prob', type=str, default=None,
+                        help=('File with probability of finding DLAs in a forest '
+                              'as a function of observed wavelength'))
+
+    parser.add_argument('--z-dla', type=float, default=None,
+                        help=('Mean DLA redshift'))
+
+    parser.add_argument('--normalize', action='store_true', required=False,
+                        help=('Whether the output FVoigt function is normalized'))
+
+    parser.add_argument('--positive-fvoigt', action='store_true', required=False,
+                        help=('Whether the output FVoigt function should be positive'))
+
+    args = parser.parse_args()
+
+    cddf_NHI, dN_NHI = np.loadtxt(args.cddf)
+    weights_wave = np.loadtxt(args.weights)
+    dla_prob_wave = np.loadtxt(args.dla_prob)
+
+    fidcosmo = constants.Cosmo(Om=0.3147)
+
+    comov_dist_prob, dla_prob_comov_dist = profile_wave_to_comov_dist(
+        dla_prob_wave[0], dla_prob_wave[1], fidcosmo, differential=True)
+    comov_dist_weights, weights_comov_dist = profile_wave_to_comov_dist(
+        weights_wave[:, 0], weights_wave[:, 1], fidcosmo)
+
+    weight_interp = np.interp(
+        comov_dist_prob, comov_dist_weights, weights_comov_dist, left=0, right=0)
+    mean_density = np.average(dla_prob_comov_dist, weights=weight_interp)
+
+    wave = np.arange(2000, 8000, 1)  # TODO this grid may be too sparse
+    integrand = np.empty((dN_NHI.size, wave.size // 2 + 1))
+    for i, NHI in enumerate(dN_NHI):
+        profile_wave = get_voigt_profile_wave(wave, args.z_dla, NHI)
+        profile_wave /= np.mean(profile_wave)
+
+        # r is in Mpc h^-1 --> k (from tf) will be in (Mpc h^-1)^-1 = h Mpc^-1 :)
+        comov_dist, profile_comov_dist = profile_wave_to_comov_dist(wave, profile_wave, fidcosmo)
+        k, fourier_profile = fft_profile(profile_comov_dist, np.abs(comov_dist[1] - comov_dist[0]))
+
+        integrand[i] = fourier_profile * mean_density * cddf_NHI[i]
+
+    Fvoigt = np.zeros(k.size)
+    for i in range(k.size):
+        Fvoigt[i] = np.trapz(integrand[:, i], dN_NHI)
+
+    Fvoigt = Fvoigt[k > 0]
+    k = k[k > 0]
+
+    if args.normalize:
+        Fvoigt /= Fvoigt[0]
+    if not args.positive_fvoigt:
+        Fvoigt = -Fvoigt
+
+    np.savetxt(args.output, np.c_[k, Fvoigt])
+
+
+if __name__ == '__main__':
+    main()