code: def _make_hlog_numeric(b, r, d):
      
      hlog_obj = lambda y, x, b, r, d: hlog_inv(y, b, r, d) - x
      find_inv = vectorize(lambda x: brentq(hlog_obj, -2 * r, 2 * r,
                                            args=(x, b, r, d)))
      return find_inv
docs: Return a function that numerically computes the hlog transformation for given parameter values.