Методика расчета пластинчато-ребристых конденсаторов-испарителей, страница 13

(93.24-58.*(x1-x3)+27.*(x1-x3)**2)+x2*x1*(54.92-26.1*(x1-x2)+8.*(x1-x2)**2)+5.*x1*x2*x3

G=2.4024*x3+2.5086*x2+2.8919*x1+x3*x2*(.084-.0215*(x2-x3)+.0103*(x2-x3)**2)+x3*x1* &

(.2864-.157*(x1-x3)+.061*(x1-x3)**2)+x2*x1*(.194-.086*(x1-x2)+.041*(x1-x2)**2)+.004*x1*x2*x3

T=tmp(p,B,B,G,0.)

if(T<90.19)then

B1=B-9.3*x3; DG=.1028*x3

T=tmp(p,B,B1,G,DG)

if(T<87.29)then

B1=B1-7.3*x2; DG=DG+.0839*x2

T=tmp(p,B,B1,G,DG)

if(T>120)print*,'PROBLEM: T>120 !!!'; pause ''

endif; endif

end subroutine

!================================================================

!Подпрограмма функция для вычисления температуры

function tmp(p,B,B1,G,DG)

tmp=B1/(log10(98.07*pp)-G-DG+.01*B)

end function

ПриложениЕ 2

Геометрические параметры пластинчато-ребристых поверхностей

и размеры типовых пакетов аппаратов

Таблица 1

Геометрические параметрыпластинчато-ребристых поверхностей,

применяемых в аппаратах криогенных установок, мм

   ^* Степень стеснения равна доли площади сечения канала, занятой пластинами и ребрами.

   ^** Высота насадки l = 2…15 мм; шаг расположения ребер s = 1,5…5 мм; толщина ребер δ = 0,05…0,5 мм; толщина разделительных пластин δ_ст = 0,1…1,0 мм (индексы «и» и «к» опущены).

Таблица 2

Размеры типовых пакетов пластинчато-ребристых аппаратов, мм

СОДЕРЖАНИЕ