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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

51
740 A1 = A1 / E / J0 / 3 * 2 * DEL / 2 * PMAX * SIN(F1) / L ^ 2 / A *
(D2 – D1)
750 VZ = VZ + A1
755 PRINT "VZ="; VZ
760 MOX = SQR(MY ^ 2 + MZ ^ 2)
770 VOX = SQR(VY ^ 2 + VZ ^ 2)
772 AWD = J1 / J2
773 PRINT "J1/J2="; AWD
780 SE = ETA / L ^ 2 * E * J2
790 VX = VOX / (1 – S / SE)
800 FX = P1 / 4 * DX ^ 2
810 wox = P1 * DX ^ 3 / 32: PRINT "wox="; wox
820 GMAX = ABS(NX) / FX + MOX / wox + ABS(NX) / wox * VX
830 A1 = L ^ 3 / 12 * (D – D1) – L ^ 3 / 32 * (D2 – D1) – (D – D1) * L ^ 3 /
16 / P1 ^ 2 + (D2 – D1) / 16 / P1 ^ 2 * L ^ 3
840 A1 = A1 * B * COS(F1) / L
850 A1 = A1 + P1 / 8 * L * D ^ 2
860 A2 = L / 2 + B * L ^ 2 + 6 * B ^ 2 * (L ^ 3 / 6 – L ^ 3 / 4 / P1 ^ 2)
861 A3 = 4 * B ^ 3 * (L ^ 4 / 8 – 3 / 8 * L ^ 4 / P1 ^ 2)
862 A2 = A2 + A3
880 A3 = B ^ 4 * (L ^ 5 / 10 – L ^ 5 / 2 / P1 ^ 2 + 3 / 4 / P1 ^ 4 * L ^ 5)
890 A2 = A2 + A3
900 A2 = A2 * E * J1 / L ^ 2 * P1 ^ 2
910 PRINT A2; A1: PMAXP = A2 / A1
920 TMAX = ABS(MX / 2 / wox)
930 GR = SQR(GMAX ^ 2 + 4 * TMAX ^ 2)
940 NU = PMAXP / PMAX
945 CLS
PRINT "Максимальное давление смеси Pmax="; PMAX
PRINT "Диаметp сеpдечника D2="; D2
PRINT "Наpужний диаметp D ="; D
PRINT "Рабочая длина L="; L
PRINT "Модуль упpугости E="; E
PRINT "Шаг наpезки T="; T
PRINT "Коэффициент n="; ETA
PRINT "Допускаемое напpяжение [G]="; G
REM PRINT "Допускаемый коэф-т запаса устойчивости для чеpвяка
[Ny]="; NY
PRINT "-------------------------------------------------"

Страницы