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

UptoLike

53
91DATA 5,50000000,0.032,0.001,0.64,0.0032,17,0.032,0.0032,70,7850,400E6
READ N, P, d, d1, L, H, FI, T, E1, W, RO, SIG
93 E = 200000000000#
ZX = (L / dX)
95 PI = 3.14
100 FI = FI * PI / 180
120 A = PI * d * H * (T – E) * COS(FI) ^ 2 / 2
130 B = H ^ 3 * (T – E) * SIN(2 * FI) / (24 * L)
140 GAM = PI ^ 2 * d ^ 2 * DL ^ 3 * TAN(FI) * SIN(FI) / (10 * E1 * L)
150 Q = A * K * N / (K + B + GAM)
160 PRINT "Q = "; Q; "[м^3/c]"
170 MKR = 9550 * N / W
'PRINT MKR
F = 3.14 * d ^ 2 / 4
'"РАСЧЕТ УСИЛИЯ ОТ ДАВЛЕНИЯ ФОРМОВАНИЯ"
180 P1 = F * P
'PRINT "УСИЛИЕ ОТ ДАВЛЕНИЯ ФОРМОВАНИЯ, P1 = "; P1; " [Н]"
' "РАСЧЕТ ГИБКОСТИ ШНЕКА"
AL = d1 / d
F1 = 3.14 * d ^ 2 / 4 * (1 – AL ^ 2)
J1 = 3.14 * d ^ 4 / 64 * (1 – AL ^ 4)
I = d * SQR(1 + AL ^ 2) / 4
MU = 2
LA = MU * L / I
'" РАСЧЕТ МОМЕНТА ВРЕМЕННОГО СОПРОТИВЛЕНИЯ КРУЧЕНИЯ"
WR = 3.14 * d ^ 3 * (1 – AL ^ 4) / 16
'PRINT "МОМЕНТ ВРЕМЕННОГО СОПРОТИВЛЕНИЯ КРУЧЕНИЯ,
WR = "; WR; " [м^3]"
'"РАСЧЕТ МАКСИМАЛЬНОГО НАПРЯЖЕНИЯ КРУЧЕНИЯ"
TAUmax = MKR / WR
q = RO * g * L
FOR A = 0 TO ZX
SCREEN 11
LOCATE 2, 1: PRINT "РАСЧЕТ НА ПРОЧНОСТЬ КОНСОЛЬНО
ЗАКРЕПЛЕННОГО ШНЕКА ЭКСТРУЗИОННЫХ МАШИН"
LOCATE 3, 1: PRINT "ГИБКОСТЬ ШНЕКА, LA = "; LA
LOCATE 5, 1: PRINT "ЭПЮРА ИЗГИБАЮЩИГО Mи(X), КРУТЯЩЕГО
Мкр(X) МОМЕНТОВ И ПРОГИБА ШНЕКА Y(X)"
X(A) = dX * A: MIZ(A) = RO * F1 * X(A) ^ 2 / 2 * 10
MK(A) = 9.55 * N / W