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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

55
LOCATE 16, 71: PRINT "40": LOCATE 14, 71: PRINT "60"
LOCATE 12, 71: PRINT "80": LOCATE 18, 71: PRINT "20"
LOCATE 10, 71: PRINT "100": LOCATE 8, 71: PRINT "120"
LINE (40 + X(A) * 375 * 2, 300 – MIZ(A) * 10)-(40 + (X(A) – hx1) * 375 * 2,
300 – MIZ1 * 10)
LINE (40 + X(A) * 375 * 2, 300 – MK(A) * 50)-(40 + (X(A) – hx1) * 375 * 2,
300 – MK1 * 50)
LINE (40 + X(A) * 375 * 2, 300 – Fmax1(A) * 1000000)-(40 + (X(A) – hx1) *
375 * 2, 300 – Fmax1 * 1000000)
LINE (40 + X(A) * 375 * 2, 300 – Fmax2(A) * 1000000)-(40 + (X(A) – hx1) *
375 * 2, 300 – Fmax2 * 1000000)
MIZ1 = MIZ(A): MK1 = MK(A): Fmax1 = Fmax1(A): Fmax2 = Fmax2(A)
LOCATE 22, 1: PRINT"КРУТЯЩИЙ МОМЕНТ Mкр = ";MK(A); " [Н*м]"
LOCATE 23, 1: PRINT "МАКСИМАЛЬНЫЙ ИЗГИБАЮЩИЙ МОМЕНТ
Mиз = "; MIZ(A); "[Н*м] "
NEXT A
'MIZmax = RO * F1 * L ^ 2 / 2 * 10
'"РАСЧЕТ МОМЕНТА ВРЕМЕННОГО СОПРОТИВЛЕНИЯ ИЗГИБА"
Wh0 = 3.14 * d ^ 3 * (1 – AL ^ 4) / 32
'"РАСЧЕТ МАКСИМАЛЬНОГО НАПРЯЖЕНИЯ ИЗГИБА"
SIGRmax = P1 / F1
SIGmax = SIGRmax + MIZmax / Wh0
'"РАСЧЕТ ЭКВИВАЛЕНТНОГО НАПРЯЖЕНИЯ "
SIGekv = SQR(SIGmax ^ 2 + 4 * TAUmax ^ 2)
LOCATE 25, 1: PRINT "НАПРЯЖЕНИЕ КРУЧЕНИЯ, TAUmax = ";
TAUmax / 1000000; " [MПа]"
LOCATE 26, 1: PRINT "НАПРЯЖЕНИЕ РАСТЯЖЕНИЯ, SIGRmax = ";
SIGRmax / 1000000; " [MПа]"
LOCATE 27, 1: PRINT "ЭКВИВАЛЕНТНОЕ НАПРЯЖЕНИЕ, SIGekv = ";
SIGekv / 1000000; " [MПа]"
IF SIGekv < SIG THEN 198 ELSE 200
198 LOCATE 28, 1: PRINT "УСЛОВИЕ ПРОЧНОСТИ ВЫПОЛНЯЕТСЯ,
ТАК КАК SIGekv < SIG": GOTO 500
200 LOCATE 28, 1: PRINT "УСЛОВИЕ ПРОЧНОСТИ НЕ
ВЫПОЛНЯЕТСЯ, ТАК КАК SIGekv > SIG"
500 END

Страницы