ВУЗ:
Составители:
Рубрика:
73
NEXT J
IF ICONT < (2 * K1) THEN GOTO 500
ICONT = 0
FOR J = 1 TO NX
24 X#(J) = X1#(K2, J)
NEXT J
IN = K2
CALL SUMR
DIFER# = 0#
I = 1
FOR I = 1 TO K1
57 DIFER# = DIFER# + (SUM#(I) – SUM#(K2)) ^ 2
NEXT I
DIFER# = 1# / (K7 * XNX) * SQR(DIFER#)
IF DIFER# > 1E-14 THEN GOTO 500
51 IN = K1
STEP0# = 20# * FDIFER#
CALL SUMR
SR#(INF) = SQR(SEQL#)
FOR J = 1 TO NX
52 X1#(K1, J) = X#(J)
NEXT J
FOR J = 1 TO NX
FACTOR# = 1#
X#(J) = X1#(K1, J) + FACTOR# * STEP0#
X1#(L9, J) = X#(J)
IN = L9
CALL SUMR
X#(J) = X1#(K1, J) – FACTOR# * STEP0#
X1#(L5, J) = X#(J)
IN = L5
CALL SUMR
56 IF SUM#(L9) < SUM#(K1) THEN GOTO 54
IF SUM#(L5) < SUM#(K1) THEN GOTO 55
GOTO 97
54 X1#(L5, J) = X1#(K1, J)
SUM#(L5) = SUM#(K1)
X1#(K1, J) = X1#(L9, J)
SUM#(K1) = SUM#(L9)
FACTOR# = FACTOR# + 1#
Страницы
- « первая
- ‹ предыдущая
- …
- 71
- 72
- 73
- 74
- 75
- …
- следующая ›
- последняя »
