Function: calcFunc-beta

calcFunc-beta is an autoloaded and byte-compiled function defined in calc-funcs.el.gz.

Signature

(calcFunc-beta A B)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-funcs.el.gz
;;; Beta function.

(defun calcFunc-beta (a b)
  (if (math-num-integerp a)
      (let ((am (math-add a -1)))
	(or (math-numberp b) (math-reject-arg b 'numberp))
	(math-div 1 (math-mul b (calcFunc-choose (math-add b am) am))))
    (if (math-num-integerp b)
	(calcFunc-beta b a)
      (math-div (math-mul (calcFunc-gamma a) (calcFunc-gamma b))
		(calcFunc-gamma (math-add a b))))))