ВУЗ:
Составители:
78
Fmax = (Fmax01 - Fmax02 - Fmax03)/(E*J1)
IF Fmax1 < .0000001 THEN Fmax1 = 0
IF Fmax2 < .0000001 THEN Fmax2 = 0
PRINT "SIGekv="; SIGekv; SIG
99 IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
‘ Ограничение в виде равенства
R#(1) = (1 - Q# / Q) * 1
R#(2) = (1 - (TD# - T0) / delT)
PRINT "Q#="; Q#; "dT="; (TD# - T0)
PRINT "N="; R#(15); "JB="; JB GOTO 300
100 ‘Интервалы изменения варьируемых параметров (ограничения в ви-
де неравенств)
R#(3) = 1 - JB / JB1# ‘Левая граница
R#(4) = X#(1) - 16 ‘Левая граница
R#(5) = 21# - X#(1) ‘Правая граница
R#(6) = (X#(2) - .003#) * 10 ‘Левая граница
R#(7) = (7.000000000000001D-02 - X#(2)) * 100 ‘Правая граница
R#(8) = (X#(3) - 2.000000000000001D-02) * 10 ‘Левая граница
R#(9) = (9.000000000000001D-02 - X#(3)) * 10 ‘Правая граница
R#(10) = X#(4) - .1# ‘Левая граница
R#(11) = 1.5# - X#(4) ‘Правая граница
R#(12) = X#(5) - .2# ‘Левая граница
R#(13) = 1# - X#(5) ‘Правая граница
'PRINT "SIGekv="; SIGekv; SIG
R#(14) = 1 - SIGekv / SIG
GOTO 300
200 ‘Расчёт технологической мощности (целевой функции)
CS = COS(X#(1) * 3.1416 / 180)
SN = SIN(X#(1) * 3.1416 / 180)
NN1 = MU * W1 * (3.14 * X#(3) * X#(4)) ^ (1 + pm) / X#(2) ^ pm * (4 * SN ^
2 + CS ^ 2) * X#(5) * FZ / SN
NN2 = 3.14 * X#(3) * X#(4) * CS / 2 * W1 * X#(2) * dP
NN3 = (3.14 * X#(3) * X#(4)) ^ (pm + 1) * MU * E1 * X#(5) / TAN(X#(1) *
3.1416 / 180) / d1 ^ pm * FZ
R#(15) = NN1 + NN2 + NN3
300 END SUB
