lit
    JINRLIB

DSFSIN, DSFCOS - - -

C349

: .. :

popaa c pa:

c349_1
c349_2

aao ooc, A>=0, B>0 - c (.), a FCHTER(X) - aa aa a c oo o.

:

: - FUNCTION
: - DSFSIN, DSFCOS
: - DFUC, DFUS
: - DGAUSS(D103), DCAUCH(D104)
FCHTER - /-

:

B o apco pa
DSFSIN(A,B,C,EPS)
DSFCOS(A,B,C,EPS)
a aaoo paa, :

A - (REAL*8) A >= 0;
B - (REAL*8) B > 0;
C - (REAL*8) C :
c FCHTER(X) - aa, C=1.;
FCHTER(X) ocooc o Z (Z>0), C=-Z.
EPS - (REAL*8) aa ooc c (c. o D103).

coc popa DGAUSS(D103), DCAUCH(D104),
opopaa- FCHTER coca ooa.
a ocac paopo DOUBLE PRECISION.

:

1. Ec A>0, D=pi/A. oa

c349_3

2. Ec A=0, ao X1=X/(1+X) pa

c349_4 c349_5.

co ppoa oc c oo popa DGAUSS(D103) DCAUCH(D104).


:
       . . .
       IMPLICIT REAL*8 (A-H,O-Z)
       COMMON/C/C
       EPS=1.D-8
       A=2.D0
       B=4.D0
       C=1.D0
       A1Z=DSFSIN(A,B,C,EPS)
       R1Z=DSFCOS(A,B,C,EPS)
       C=-1.D0
       A2Z=DSFSIN(A,B,C,EPS)
       R2Z=DSFCOS(A,B,C,EPS)
       . . .
       DOUBLE PRECISION FUNCTION FCHTER(X)
       IMPLICIT REAL*8 (A-H,O-Z)
       COMMON/C/C
       FCHTER=1.D0/(X+C)
       RETURN
       END
:
       A1Z= 0.07351083261
       R1Z= 0.17476870640
       A2Z=-0.19199228810
       R2Z=-0.26473725684


home up e-mail