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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

62
ПРОГРАММА 6
FLEXIPRESS (Метод скользящего допуска)
*************************************************************
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 "flexi press.res" FOR OUTPUT AS #1
PRINT #1, "Тестовый пример расчёта"
PRINT "-----------------------------------------------------------"
PRINT #1, " ------------------------------------------------------------"
FDIFER# = 1#
NX = 2
NC = 1
NIC = 3
SIZE# = .3#
CONVER# = .00001#
ALFA# = 1#
BETA# = .5#
GAMA# = 2#
10 STEP0# = SIZE#
X#(1) = 1#
X#(2) = 1#
IF FDIFER# < CONVER# THEN GOTO 9999
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT "-----------------------------------------------------------"
PRINT #1, " ------------------------------------------------------------"
PRINT " OБЩEE ЧИCЛO ПEPEMEHHЫX: "; NX
PRINT #1, " OБЩEE ЧИCЛO ПEPEMEHHЫX: "; NX
PRINT " OБЩEE ЧИCЛO OГPAHИЧEHИЙ B BИДE: 1).PABEHCTB :
"; NC

Страницы