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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

315
190 LA1 = MU1 * L / I
'PRINT "РАСЧЕТ ПО ПЕРВОМУ ВАРИАНТУ – НА ПРОЧНОСТЬ"
'"РАСЧЕТ МОМЕНТА ВРЕМЕННОГО СОПРОТИВЛЕНИЯ КРУЧЕ-
НИЯ"
WR = 3.14 * d ^ 3 * (1 – AL1 ^ 4) / 16
'"РАСЧЕТ МАКСИМАЛЬНОГО НАПРЯЖЕНИЯ КРУЧЕНИЯ"
TAUmax = MKR / WR
'"РАСЧЕТ МАКСИМАЛЬНОГО ИЗГИБАЮЩЕГО МОМЕНТА В
ОПАСНОМ СЕЧЕНИИ"
FOR A = 0 TO ZX
X(A) = dX * A: MIZ(A) = RO1 * F1 * X(A) ^ 2 / 2 * 10
MK(A) = 9.55 * R14 / W4 / 1000: FP1(A) = RO1 * F1 * X(A) ^ 4 /
(8*E*J1): NEXT A
'MIZmax = RO1 * F1 * L ^ 2 / 2 * 10
'PRINT MIZmax
'"РАСЧЕТ МОМЕНТА ВРЕМЕННОГО СОПРОТИВЛЕНИЯ ИЗГИБА"
Wh0 = 3.14 * d ^ 3 * (1 – AL1 ^ 4) / 32
'"РАСЧЕТ МАКСИМАЛЬНОГО НАПРЯЖЕНИЯ ИЗГИБА"
SIGRmax = P1 / F1
SIGmax = SIGRmax + MIZmax / Wh0
'"РАСЧЕТ ЭКВИВАЛЕНТНОГО НАПРЯЖЕНИЯ "
SIGekv = SQR(SIGmax ^ 2 + 4 * TAUmax ^ 2)
Fmax1 = RO1 * F1 * L ^ 4 / (8 * E * J1)
K1 = SQR(P1 / (E * J1))
A1 = RO1 * F1 * (L – (SIN(K1 * L)) / K1) / (K1 * COS(K1 * L))
Fmax01 = RO * F1 / K1 ^ 2 * (1 / K1 ^ 2 + L ^ 2 / 2)
Fmax02 = 1 / K1 * (RO1 * F1 / K1 ^ 3 + A1 * L) * COS(K1 * L)
Fmax03 = 1 / K1 ^ 2 * (RO1 * F1 * L / K1 – A1) * SIN(K1 * L)
Fmax = (Fmax01 – Fmax02 – Fmax03)/(E*J1)
IF Fmax1 < .0000001 THEN Fmax1 = 0
IF Fmax2 < .0000001 THEN Fmax2 = 0
PRINT "SIGekv="; SIGekv; SIG
99 IF INQ = 2 THEN GOTO 100
IF INQ = 3 THEN GOTO 200
‘ Ограничение в виде равенства
R#(1) = (1 – Q# / Q) * 1
R#(2) = (1 – (TD# – T0) / delT)
PRINT "Q#="; Q#; "dT="; (TD# – T0)
PRINT "N="; R#(15); "JB="; JB GOTO 300
100 ‘Интервалы изменения варьируемых параметров (ограничения в
виде неравенств)
R#(3) = 1 – JB / JB1# ‘Левая граница
R#(4) = X#(1) – 16 ‘Левая граница

Страницы