
		/**	XCombV **/

/*A:	Paul C Abbott	*/
/*S:	Universtiy of Western Australia	*/
/*D:	November 1985 */
/*U:	K McIsaac, April 1987 */

/* Generalise the Comb function to real arguments */

Loadonce[XPocV]

Comb[0,0]   : 1
Comb[0,$a]  : 0
Comb[$a,$b]:: Gamma[$a+1]/(Gamma[$b+1]Gamma[$a-$b+1])
Comb[$a,$n_=Natp[$n+1]]:: (-1)^$n Poc[-$a,$n]/$n!

_XComb[Loaded] : 1

