ВУЗ:
Составители:
77
'A = PI * d * h * (t1 - E1) * COS(FI) ^ 2 / 2
'B = h ^ 3 * (t1 - E1) * SIN(2 * FI) / (24 * L)
'GAM = PI ^ 2 * d ^ 2 * DL ^ 3 * TAN(FI) * SIN(FI) / (10 * E1 * L)
'Q = A * K * N / (K + B + GAM): 'PRINT "Q="; Q; "[М^3/c]"
MKR = 9.55 * R14 / W4: F = 3.14 * d ^ 2 / 4
'"РАСЧЕТ УСИЛИЯ ОТ ДАВЛЕНИЯ ФОРМОВАНИЯ"
P1 = F * dP
' "УСИЛИЕ ОТ ДАВЛЕНИЯ ФОРМОВАНИЯ, P1="; P1; " [н]"
' "РАСЧЕТ ГИБКОСТИ ШНЕКА"
AL1 = d11 / d
F1 = 3.14 * d ^ 2 / 4 * (1 - AL1 ^ 2)
J1 = 3.14 * d ^ 4 / 64 * (1 - AL1 ^ 4)
I = d * SQR(1 + AL1 ^ 2) / 4: MU1 = 2
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)
