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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

end if:
end proc:
Ввод исходных данных
> R1:=0.6;P[rab]:=70; sigma[tau]:=780; n[pred]:=1.4; T:=0.4;E[pu]:=210000; E[u]:=5880;
A:=evalf(2/sqrt(3));
:=
R
1 0.6
:=
P
rab
70
:=
σ
τ
780
:= n
pred
1.4
:=
T
0.4
:=
E
pu
210000
:=
E
u
5880
:=
A
1.1547005
Расчет параметра упрочнения
> lambda:=1-E[u]/E[pu];
:= λ
243
250
Расчет предельного давления
> P[pred]:=A*n[pred]*P[rab];
:=
P
pred
113.16065
Расчет наружного радиуса
> R2:=solve(P[pred]=A*sigma[tau]/2 * (2*lambda*ln(R2/R1)+(1-lambda)*(R2^2/R1^2-1)),R2);
:=
R
2 0.6800001
4
Расчет давления опрессовки
> P[opres]:=A*sigma[tau]/2*(2*lambda*ln(R[t]/R1)-R[t]^2/R2^2+(1-lambda)*R[t]^2/R1^2+lambda);
:=
P
opres
108.20162
Толщина стенки аппарата
> Delta:=R2-R1;
:=
∆
0.0800001
Расчет радиуса пластических деформаций
> R[t]:=R1+Delta*T;
:= R
t
0.63200006
Расчет напряжений при рабочем и пробном давлении
> sigma[r_rab]:=Sigma("r",P[rab]):
sigma[k_rab]:=Sigma("k",P[rab]):
sigma[z_rab]:=Sigma("z",P[rab]):
> sigma[r_prob]:= Sigma("r"):
sigma[k_prob]:= Sigma("k"):
sigma[z_prob]:= Sigma("z"):
Расчет напряжений разгрузки и остаточных напряжений
> sigma[r_raz]:=Sigma("r",P[opres]):
sigma[k_raz]:=Sigma("k",P[opres]):
sigma[z_raz]:=Sigma("z",P[opres]):

Страницы