Maple в инженерных расчетах. Коптев А.А - 58 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

9.2 РАСЧЕТ АППАРАТА ВЫСОКОГО ДАВЛЕНИЯ
Необходимо определить наружный радиус аппарата, толщину стенки, значение предельного давле-
ния, давление опрессовки, а также построить эпюры напряжений при рабочем давлении до и после
автофретирования.
Исходные данные для расчета
внутренний радиус аппарата 0,6 м
рабочее давление 70 МПа
предел текучести материала 780 МПа
коэффициент запаса прочности по предельному
состоянию
1,4
глубина пластических деформаций при автофре-
тировании 40 %
условие пластичности Губера-
Мизеса
материал при деформации упрочняется
модуль продольной упругости
2,1 ⋅ 10
5
МПа
модуль упрочнения 5880 МПа
> restart:Digits:=8;
:= Digits 8
> Sigma:=proc(x::string,P)
local L,Zn:
option operator,arrow:
description " Поцедура расчета напряжений ":
if (x="z" and nargs=1) then return ((Sigma("r")+Sigma("k"))/2):
end if:
if (x="z" and nargs=2) then return
(P*R1^2/(R2^2-R1^2))
:end if:
if x="r" then Zn:=-1: end if:
if x="k" then Zn:=+1: end if:
if nargs=1
then
L:=`if`(r>R[t],0,lambda): A*sigma[tau]/2 * (2*L*ln(r/R[t])+R[t]^2/R2^2+Zn*(1-L) *
R[t]^2/r^2+Zn*L):
else
P*R1^2/(R2^2-R1^2)*(1+Zn*R2^2/r^2):

Страницы