Public Function RJ( _ ByVal vX As Variant _ , ByVal vY As Variant _ , ByVal vZ As Variant _ , ByVal vP As Variant _ ) As Variant
RJ(1, 1, 3, 4) = 0.286898213878455 RJ(1, 2, 3, 4) = 0.239848099749568 RJ(2, 1, 3, 4) = 0.239848099749568 RJ(2, 2, 3, 4) = 0.202320259296164See also:
RC Function RD Function RF Function DRJ FunctionvX: Function returns Null if vX is Null or cannot be fixed up to a Double precision floating point number.
For X, Y, and Z non-negative, at most one of them zero, and P positive, RJ(X,Y,Z,P) = Integral from zero to infinity of (3/2)(t+X)^(-1/2)(t+Y)^(-1/2)(t+Z)^(-1/2)(t+P)^(-1) dt.
The routine calculates an approximation result to RJ(X,Y,Z,P) = Integral from zero to infinity of
-1/2 -1/2 -1/2 -1 (3/2)(t+X) (t+Y) (t+Z) (t+P) dt,where X, Y, and Z are nonnegative, at most one of them is zero, and P is positive. If X or Y or Z is zero, the integral is COMPLETE. The duplication theorem is iterated until the variables are nearly equal, and the function is then expanded in Taylor series to fifth order.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.