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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

71
X#(4) = 50 / 60# ‘W, [c^-1]
X#(5) = .32# ‘L, [м]
IF FDIFER# < CONVER# THEN GOTO 9999
PRINT " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT #1, " <<<<< *HAЧAЛO BЫЧИCЛEHИЙ* >>>>>"
PRINT "-----------------------------------------------------------"
‘Далее с помощью кнопки “F2” войти в подпрограмму SUB PROB (INQ) и
ввести с клавиатуры в тексте программы соответствующие параметры.
Затем запустить программу на счёт (F5)
K1 = NX + 1
K2 = NX + 2
K3 = NX + 3
K4 = NX + 4
K5 = NX + 5
K6 = NC + NIC
K7 = NC + 1
K8 = NC + NIC
K9 = K8 + 1
N = NX - NC
N1 = N + 1
IF N1 >= 3 THEN GOTO 50
N1 = 3
N = 2
50 N2 = N + 2
N3 = N + 3
N4 = N + 4
N5 = N + 5
N6 = N + 6
N7 = N + 7
N8 = N + 8
XN = N
XNX = NX
XN1 = N1
R1A# = .5# * (SQR(5#) - 1#)
R2A# = R1A# * R1A#
R3A# = R2A# * R1A#
L5 = NX + 5
L6 = NX + 6
L7 = NX + 7
L8 = NX + 8
L9 = NX + 9
ICONT = 1
NCONT = 1

Страницы