ВУЗ:
Составители:
> sigma[r_ost]:=sigma[r_prob]-sigma[r_raz]:
sigma[k_ost]:=sigma[k_prob]-sigma[k_raz]:
sigma[z_ost]:=sigma[z_prob]-sigma[z_raz]:
Расчет напряжений при рабочем давлении после предварительного автофретирования
> sigma[r_auto]:=sigma[r_rab]+sigma[r_ost]:
sigma[k_auto]:=sigma[k_rab]+sigma[k_ost]:
sigma[z_auto]:=sigma[z_rab]+sigma[z_ost]:
Строим эпюры напряжений
> plot([sigma[k_rab],sigma[k_auto]],r=R1..R2, color=[black,black,black,blue,blue,blue], label-
font=[COURIER,12],labels=["м","МПа"], titlefont=[COURIER,12],title="Эпюра кольцевых напря-
жений\n при рабочем давлении\n до и после автофретирования", legend=["sigma_к","sigma_к
(auto)"], thickness=[1,3]);
> plot([sigma[z_rab],sigma[z_auto]],r=R1..R2, color=[black,black,black,blue,blue,blue],
labelfont=[COURIER,12],labels=["м","МПа"],titlefont=[COURIER,12],title="Эпюра осевых напря-
жений\n при рабочем давлении\n до и после автофретирования", legend=["sigma_z","sigma_z
(auto)"], thickness=[1,3]);
Эпюра радиальных напряжений не приведена, вследствие их несущественных изменений.
Обратите внимание как процесс автофретирования приводит к перераспределению кольцевых и
осевых напряжений.
