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.