*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
if (x.info(info_flags::integer)) {
// lgamma(n) -> log((n-1)!) for postitive n
if (x.info(info_flags::posint))
if (x.info(info_flags::integer)) {
// lgamma(n) -> log((n-1)!) for postitive n
if (x.info(info_flags::posint))
REGISTER_FUNCTION(lgamma, eval_func(lgamma_eval).
evalf_func(lgamma_evalf).
derivative_func(lgamma_deriv).
REGISTER_FUNCTION(lgamma, eval_func(lgamma_eval).
evalf_func(lgamma_evalf).
derivative_func(lgamma_deriv).
REGISTER_FUNCTION(tgamma, eval_func(tgamma_eval).
evalf_func(tgamma_evalf).
derivative_func(tgamma_deriv).
REGISTER_FUNCTION(tgamma, eval_func(tgamma_eval).
evalf_func(tgamma_evalf).
derivative_func(tgamma_deriv).
REGISTER_FUNCTION(beta, eval_func(beta_eval).
evalf_func(beta_evalf).
derivative_func(beta_deriv).
REGISTER_FUNCTION(beta, eval_func(beta_eval).
evalf_func(beta_evalf).
derivative_func(beta_deriv).