lit
    JINRLIB

MIKOR -

D121

: .., .. :

MIKOR c pa pa c ocov pa ppoa A1,B1,...,AK,BK oo opooa.

:

: - SUBROUTINE
: - MIKOR
: - DATKOR,INKOR,PERIOD
: - TIMED(Z007)
FUNCT - /
COMMON: - /MIKINK/KDIM,KDAB,P
/INDAT/PT(30),AT(30),LT
/TIMEMI/TIME

:

CALL MIKOR(KR,KOL,V,FUN,R,T,L,H,EPS,FLAG,FUNCT,AX,BX), :

KR - paoc paa;
KOL - co apao c pao;
V - acc p ppoa;
FUN - acc a opa ;
R - acc pao;
T - acc,copa aao oo co o oopo ppoa.
c T(1),T(2) o 0, o aao (o) co o pac opopao;
L - apap, op opo poa.
oc L=1,2,3.
p opa L popaa caa pa opo poa;
H - apap, op ooc p opaoo co.
Poc H pa o 0.1 o 10.0.
p opa H op oo apapa a caa popaa;
EPS - apap, op ooc c pao:
EPS=0.0 - ppoa o cpoao c,
EPS>0.0 - ppoa c acoo ooc EPS,
EPS<0.0 - ppoa c ooco ooc ABS(EPS);
FLAG - oo apap, op co pocca ppoa:
FLAG>0.0 - oca aaa ooc o c N paa,
FLAG=0.0 - co o c po acao oco a o cpa aaoo a p (c. [4] - opoo oa),
FLAG<0.0 - o poa ooa (c. opoo oca);
FUNCT - opopa, cocao ooa
c aca FUN(KOL).
FUNCT oa ocaa opaopo EXTERNAL a popa.
  SUBROUTINE FUNCT(KR,KOL,V,FUN,R,EPS,FLAG)
AX,BX - acc po ppoa.

:

  1. .. - .
    , .,1963.
  2. .. . , .3, N1,1 963.
  3. .. .
    , .8, N3, 1968.
  4. .. ., , .IV,
    , 1983 ( ).
:
       INTEGER TIME
       COMMON /TIMENI/TIME
       DOUBLE PRECISION V, FUN, R, AX,BX
       DIMENSION V(10),FUN(10),AX(20),BX(20),T(2),R(20),EPS(10
       EXTERNAL FUNCT
       DO 1 I=1,20
       CALL DATKOR(I,1)
    1  CONTINUE
       KOL=10
       T(2)=1000.D0
       EPS(1)=0.D0
       KR=3
       H=0.D0
       DO 99 I=1,20
       AX(I)=0.D0
    99 BX(I)=1.D0
 
       DO 2 M=1,2
       T(1)=-1.D0
       L=-1
       TIME=0
       DO 10 J=1,11
       CALL MIKOR(KR,KOL,V,FUN,R,T,L,H,EPS,FLAG,FUNCT,AX,BX)
       . . .
       L=L+1
       IF(FLAG)10,10,300
   300 CONTINUE
       DO 20 I=1,10
       R(I)=R(I)-1.D0
       IF(EPS(1)) 20,19,20
    19 CONTINUE
       R(I+10)=R(I+10)-1.D0
    20 CONTINUE
       KP=FLAG
       . . .
    10 CONTINUE
       EPS(1)=-1.0D-2
    2  CONTINUE
:
             THE PARAMETERS OF THE KOROBOV'S NETS FOR K=1
       P=      5.       8.      13.       21.       34.     55.
       A=      3.       5.       8.       13.       21.     34.
       P=    610.     987.    1597.     2584.     4181.   6765.
       A=    377.     610.     987.     1597.     2584.   4181.
       P=  75025.  121393.  196418.   317811.   514229.
       A=  46368.   75025.  121393.   196418.   317811.
 
       P=     89.     144.     233.      377.
       A=     55.      89.     144.      233.
       P=  10946.   17711.   28657.    46368.
       A=   6765.   10946.   17711.    28657.
 
                THE PARAMETERS OF THE KOROBOV'S NETS FOR K=2
       P=      5.       8.      13.       21.       34.     55.
       A=      3.       5.       8.       13.       21.     34.
       P=    610.     987.    1597.     2584.     4181.   6765.
       A=    377.     610.     987.     1597.     2584.   4181.
       P=  75025.  121393.  196418.   317811.   514229.
       A=  46368.   75025.  121393.   196418.   317811.
 
       P=     89.     144.     233.      377.
       A=     55.      89.     144.      233.
       P=  10946.   17711.   28657.    46368.
       A=   6765.   10946.   17711.    28657.
       . . .
 
            L= 0   K= 3  KP= 53  H= -1.00
    
       R1= -0.35D-01 -0.24D-01 -0.38D-01 -0.26D-01 -0.36D-01
       R1= -0.17D-01 -0.65D-01 -0.31D-01 -0.21D-01 -0.25D-01
 
       R2= -0.12D-01 -0.18D-01 -0.25D-01 -0.19D-01 -0.24D-01
       R2= -0.94D-01 -0.61D-01 -0.15D-01 -0.55D-01 -0.33D-01
 
            L= 1   K= 3  KP= 53  H= -1.00
 
       R1= -0.23D-01 -0.23D-01 -0.54D-01 -0.19D-01 -0.45D-01
 
       R1= -0.10D-01 -0.13D-01 -0.58D-01 -0.12D-01 -0.13D-01
   
       R2= -0.11D-01 -0.15D-01 -0.13D-01 -0.17D-01 -0.17D-01
       R2= -0.51D-01 -0.26D-01 -0.70D-01 -0.24D-01 -0.34D-01
       . . .


home up e-mail