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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

53
ПРОГРАММА 2
Программа минимизации массы конструкции шнека. Язык BASIK
' minMSCRE
'Минимизация целевой функции методом скользящего допуска
' Расчёт минимальной массы шнека с разрывными витками
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 kik, 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 "minMSCRE.res" FOR OUTPUT AS #1
PRINT #1, "Расчёт минимальной массы шнека с разрывными витками "
PRINT " Расчёт минимальной массы шнека с разрывными витками "
FDIFER# = 1#
NX = 3 'общее число переменных
NC = 0 'общее число ограничений в виде равенств
NIC = 8 'общее число ограничений в виде неравенств
SIZE# = 5# 'опред. размер деформ. многогранника
CONVER# = .001# 'используется для окончания поиска
ALFA# = 1#
BETA# = .5#
GAMA# = 1#
10 STEP0# = SIZE#
X#(1) = .003# 'координаты
X#(2) = .003# 'стартовой
X#(3) = .005# 'точки
' CALL prob(3)
'PRINT "ДЛЯ ВВОДА ИСХОДНЫХ ДАННЫХ НАЖМИТЕ F2 И ВЫ-
БЕРИТЕ ПОДПРОГРАММУ PROB"
IF FDIFER# < CONVER# THEN GOTO 9999
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
Далее с помощью кнопки "F2" войти в подпрограмму SUB PROB
(INQ) и ввести с клавиатуры в тексте программы соответствующие
параметры.

Страницы