1(* 2 Copyright (C) 2017 M.A.L. Marques 3 4 This Source Code Form is subject to the terms of the Mozilla Public 5 License, v. 2.0. If a copy of the MPL was not distributed with this 6 file, You can obtain one at http://mozilla.org/MPL/2.0/. 7*) 8 9(* type: lda_exc *) 10 11$include "lda_x_erf.mpl" 12$define lda_c_pw_params 13$define lda_c_pw_modified_params 14$include "lda_c_pw.mpl" 15 16p_a_cam_omega := 1: 17bn05_A := 3.4602: 18bn05_C0 := 3.2: 19bn05_C1 := -0.9: 20 21f := (rs, z) -> 22 f_lda_x_erf(rs, z) + f_pw(rs, z)*bn05_A/(bn05_C0 + bn05_C1*rs + rs^2): 23