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

UptoLike

63
PRINT #1, " OБЩEE ЧИCЛO OГPAHИЧEHИЙ B BИДE:
1).PABEHCTB : "; NC
PRINT " 2).HEPABEHCTB: "; NIC
PRINT #1, " 2).HEPABEHCTB: "; NIC
PRINT " BEЛИЧ.OПPEД.PAЗMEP ДEФOPM.MHOГOГPAHHИKA: ";
SIZE#
PRINT #1, " BEЛИЧ.OПPEД.PAЗMEP ДEФOPM.MHOГOГPAHHИKA:
"; SIZE#
PRINT " ЧИCЛO OПPEД.OKOHЧAHИE ПOИCKA: "; CONVER#
PRINT #1, " ЧИCЛO OПPEД.OKOHЧAHИE ПOИCKA: "; CONVER#
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