Инженерная оптимизация оборудования для переработки полимерных материалов. Клинков А.С - 310 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

310
ПРОГРАММА 11
Расчёт оптимальных технологических и
конструктивных параметров процесса и
оборудования экструзии резиновых смесей
' OPTISCRE.BAS
'Минимизация целевой функции методом скользящего допуска
'Расчет оптимальных технологических и конструктивных параметров
' процесса экструзии резиновых смесей с учётом минимизации техно-
логической мощности и получения качественного экструдата
DECLARE SUB FEAS ()
DECLARE SUB STAR ()
DECLARE SUB WRIT ()
DECLARE SUB SUMR ()
DECLARE SUB PROB (INQ)
DIM SHARED X#(50), X1#(50, 50), X2#(50, 50), R#(100), R1#(100),
R2#(100), R3#(100), SUM#(50), F#(50), SR#(50), ROLD#(100), H#(50),
FLG#(10), A#(50, 50)
COMMON SHARED NX, NC, NIC, STEP0#, ALFA#, BETA#,
GAMA#, IN, INF, FDIFER#, SEQL#, K1, K2, K3, K4, K5, K6, K7, K8,
K9, FOLD#, L5, L6, L7, L8, L9, R1A#, R2A#, R3A#
OPEN "flexbt5.res" FOR OUTPUT AS #1
PRINT #1, " N , Q"
PRINT "-----------------------------------------------------------"
PRINT #1, " ------------------------------------------------------------"
FDIFER# = 1#
NX = 5 'общее число переменных
NC = 2 'общее число ограничений в виде равенств
NIC = 13 'общее число ограничений в виде неравенств
SIZE# = .003# 'опред. размер деформ. многогранника
CONVER# = .01# 'используется для окончания поиска
ALFA# = 1#
BETA# = .5#
GAMA# = 2#
10 STEP0# = SIZE#
X#(1) = 17# ' FI, [град] координаты
X#(2) = .01# ' h, [м] стартовой
X#(3) = 3.200000000000001D-02' D, [м] точки
X#(4) = 50 / 60# ‘W, [c^-1]
X#(5) = .32# ‘L, [м]
IF FDIFER# < CONVER# THEN GOTO 9999

Страницы