Trailing-Edge
-
PDP-10 Archives
-
decus_20tap2_198111
-
decus/20-0026/inue.doc
There are 2 other files named inue.doc in the archive. Click here to see a list.
SUBROUTINE INUE
PURPOSE
COMPUTE THE MODIFIED BESSEL FUNCTIONS I FOR ORDERS 1 TO N
USAGE
CALL INUE(X,N,ZI,RI)
DESCRIPTION OF PARAMETERS
X -GIVEN ARGUMENT OF THE BESSEL FUNCTIONS I
N -GIVEN MAXIMUM ORDER OF BESSEL FUNCTIONS I
ZI -GIVEN VALUE OF BESSEL FUNCTION I OF ORDER ZERO
FOR ARGUMENT X
RI -RESULTANT VECTOR OF DIMENSION N, CONTAINING THE
VALUES OF THE FUNCTIONS I FOR ORDERS 1 TO N
REMARKS
THE VALUE OF ZI MAY BE CALCULATED USING SUBROUTINE I0.
USING A DIFFERENT VALUE HAS THE EFFECT THAT ALL VALUES OF
BESSEL FUNCTIONS I ARE MULTIPLIED BY THE FACTOR ZI/I(0,X)
WHERE I(0,X) IS THE VALUE OF I FOR ORDER 0 AND ARGUMENT X.
THIS MAY BE USED DISADVANTAGEOUSLY IF ONLY THE RATIOS OF I
FOR DIFFERENT ORDERS ARE REQUIRED.
SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
NONE
METHOD
THE VALUES ARE OBTAINED USING BACKWARD RECURRENCE RELATION
TECHNIQUE. THE RATIO I(N+1,X)/I(N,X) IS OBTAINED FROM A
CONTINUED FRACTION.
FOR REFERENCE SEE
G. BLANCH,'NUMERICAL EVALUATION OF CONTINUED FRACTIONS',
SIAM REVIEW, VOL.6,NO.4,1964,PP.383-421.