fmin.hpp

Go to the documentation of this file.

#ifndef STAN_MATH_REV_FUN_FMIN_HPP
#define STAN_MATH_REV_FUN_FMIN_HPP
 
#include <stan/math/rev/meta.hpp>
#include <stan/math/rev/core.hpp>
#include <stan/math/rev/fun/is_nan.hpp>
#include <stan/math/prim/fun/constants.hpp>
#include <stan/math/prim/fun/is_nan.hpp>
 
namespace stan {
namespace math {
 
inline var fmin(const var& a, const var& b) {
  if (unlikely(is_nan(a))) {
    if (unlikely(is_nan(b))) {
      return var(new precomp_vv_vari(NOT_A_NUMBER, a.vi_, b.vi_, NOT_A_NUMBER,
                                     NOT_A_NUMBER));
    }
    return b;
  }
  if (unlikely(is_nan(b))) {
    return a;
  }
  return a < b ? a : b;
}
 
inline var fmin(const var& a, double b) {
  if (unlikely(is_nan(a))) {
    if (unlikely(is_nan(b))) {
      return make_callback_var(
          NOT_A_NUMBER, [a](auto& vi) mutable { a.adj() = NOT_A_NUMBER; });
    }
    return var(b);
  }
  if (unlikely(is_nan(b))) {
    return a;
  }
  return a <= b ? a : var(b);
}
 
inline var fmin(double a, const var& b) {
  if (unlikely(is_nan(b))) {
    if (unlikely(is_nan(a))) {
      return make_callback_var(
          NOT_A_NUMBER, [b](auto& vi) mutable { b.adj() = NOT_A_NUMBER; });
    }
    return var(a);
  }
  if (unlikely(is_nan(a))) {
    return b;
  }
  return b <= a ? b : var(a);
}
 
}  // namespace math
}  // namespace stan
#endif