(gamma-lanczos6) ( x -- log[gamma[x+1]] )


Vocabulary
math.analysis.private

Inputs
xan object


Outputs
log[gamma[x+1]]an object


Definition
USING: kernel math math.functions math.vectors ;

IN: math.analysis.private

: (gamma-lanczos6) ( x -- log[gamma[x+1]] )
[ 0.5 + dup gamma-g6 + [ log * ] keep - ]
[ 6 gamma-z gamma-p6 vdot log ] bi + ;