ВУЗ:
Составители:
68
R#(4) = 1# - X#(1) / .032
R#(5) = X#(2) / .03 - 1#
R#(6) = 1# - X#(2) / .037
R#(7) = X#(3) / .042 - 1#
R#(8) = 1# - X#(3) / .052
R#(9) = X#(4) / .008 - 1#
R#(10) = 1# - X#(4) / .015
GOTO 300
'целевая функция
200 R#(11) = 3.14 * RO * (2 * (dd ^ 2 - aa ^ 2) + (cc1 ^ 2 - dd ^ 2) + 2 * (bb ^
2 - cc1 ^ 2)) / 1000
300 X#(1) = dd: X#(3) = bb: X#(2) = cc1: X#(4) = LL
END SUB
SUB STAR
VN = NX
STEP1# = STEP0# / (VN * SQR(2#)) * (SQR(VN + 1#) + VN - 1#)
STEP2# = STEP0# / (VN * SQR(2#)) * (SQR(VN + 1#) - 1#)
FOR J = 1 TO NX
A#(1, J) = 0#
NEXT J
FOR I = 2 TO K1
FOR J = 1 TO NX
A#(I, J) = STEP2#
NEXT J
L = I - 1
A#(I, L) = STEP1#
NEXT I
FOR I = 1 TO K1
FOR J = 1 TO NX
X1#(I, J) = X#(J) + A#(I, J)
NEXT J
NEXT I
END SUB
SUB SUMR
SUM#(IN) = 0#
CALL PROB(2)
SEQL# = 0#
IF NIC = 0 THEN GOTO 444
FOR J = K7 TO K8
Страницы
- « первая
- ‹ предыдущая
- …
- 66
- 67
- 68
- 69
- 70
- …
- следующая ›
- последняя »
