2. Програма розрахунку товщини обичайки

CLS

'Минимальные значения границы текучести и прочности

sigt = 240: sigv = 385

'Коэффициенты запаса текучести и прочности

nt = 1.5: nv = 2.4

'Расчетное давление в аппарате

P = 30

'Коэффициент прочности сварного шва

fi = .9

'Надбавки на толщину

C1 = .002: C2 = .0012: C3 = 0

'Диаметр аппарата

d = 1

sig1 = sigt / nt: sig2 = sigv / nv

IF sig1 > sig2 THEN sig = sig1 ELSE sig = sig2

btr = EXP(P / (sig * fi)): SS = .5 * d * (btr - 1) + C1

'PRINT "SS="; SS

'INPUT "принимаем SS,м"; SS

A = (C2 + C3) / SS

IF A > .05 THEN C = C1 + C2 + C3 ELSE C = C1

S = .5 * d * (btr - 1) + C

PRINT "Величина допустимых напряжений [sig]="; sig; "МПа"

PRINT "Величина надбавки на толщину обечайки С="; C; "м"

PRINT "толщина обечайки S="; S; "м"

INPUT "принимаем S,м"; S

bt = 1 + 2 * (S - C) / d

PRINT "Коэффициент толстостенности bt="; bt

Pd = sig * fi * LOG(bt)

'PRINT "толщина обечайки м, S="; S

'INPUT "принимаем S"; S

PRINT "допустимое давление МПа,[P]="; Pd

END

Результати програми

Величина допустимых напряжений [sig]= 160.4167 МПа

Величина надбавки на толщину обечайки С= .002 м

толщина обечайки S= .1369645 м

принимаем S,м? .14

Коэффициент толстостенности bt= 1.276

допустимое давление МПа,[P]= 35.18855

3. Програма розрахунку геометричних параметрів фланцю

CLS

'Расчетное давление в аппарате

P = 30

'Диаметр аппарата

D = 1.6

'Диаметр шпильки аппарата

ds = .1

'Количество отверстий под шпильки

z = 24

'Допустимые напряжения

sig = 160

'Величина надбавок на толщину

C = .002

'коэффициент прочности сварного шва

fi = 1

'Толщина обечайки в месте соединения с фланцем

S = .14

'Длина отверстия под шпильку

lb = .12

A = D + 2 * ds: B = 2.2 * ds / SIN(3.14 / z)

IF A > B THEN Db = A ELSE Db = B

PRINT "Db>="; Db; "м"

INPUT "Диаметр окружности шпилек Db,м"; Db

PRINT "D2>="; Db + 2 * ds; "м"

INPUT "Внешний диаметр фланца корпуса D2,м"; D2

btr = EXP(P / (sig * fi))

PRINT "Расчетный коэффициент толстостенности btr="; btr

Sfr = .5 * D * (btr - 1)

PRINT "Расчетная толщина стенки фланца которая стыкуется с обечайкой Sfr="; Sfr; "м"

PRINT "rn>="; Sfr; "м"

INPUT "Радиус перехода от конической части фланца к цилиндрической rn,м"; rn

'INPUT "Sfr"; sfr

IF Sfr + C > S THEN Sf = S ELSE Sf = S

PRINT "Sf="; Sf; "м"

INPUT "Исполнительная толщина стенки фланца которая стыкуется с обечайкой Sf,м"; Sf

bt = (D + 2 * (Sf - C)) / D

PRINT "Коэффициент толтостенности bt="; bt

Pd = sig * fi * LOG(bt)

PRINT "Допустимое давление [p]="; Pd; "МПА"

h3 = lb + .25 * ds

PRINT "h3>="; h3; "м"

INPUT "Высота цилиндрической части фланца корпусаh3,м"; h3

h4 = .7 * Sfr

PRINT "h4>="; h4; "м"

INPUT "Высота цилиндрической части фланца, которая стыкуется с обечайкой h4,м"; h4

END

Результати програми

Db>= 1.686335 м

Диаметр окружности шпилек Db,м? 1.7

D2>= 1.9 м

Внешний диаметр фланца корпуса D2,м? 1.9

Расчетный коэффициент толстостенности btr= 1.240637

Расчетная толщина стенки фланца которая стыкуется с обечайкой Sfr= .1203185 м

rn>= .1203185 м

Радиус перехода от конической части фланца к цилиндрической rn,м? .12

Sf= .14 м

Исполнительная толщина стенки фланца которая стыкуется с обечайкой Sf,м? .14

Коэффициент толтостенности bt= 1.276

Допустимое давление [p]= 38.99683 МПА

h3>= .145 м

Высота цилиндрической части фланца корпусаh3,м? .145

h4>= 8.422297E-02 м

Высота цилиндрической части фланца, которая стыкуется с обечайкой h4,м? .085