г сухої воздухаТемпература повітря після калорифера t 1 , Вє C160135162, 5138165141
Приймаємо на виході повітря з калорифера:
? t = t гр.п - t 1 = 10 град
Тоді
t гр.п = 138 +10 = 148 Вє З
чому відповідає необхідний тиск пари, що гріє p абс ? 4,7 атм
Таблиця 2 - Залежність тиску пари, що гріє від температури
Температура, Вє САбсолютное тиск, атм1454, 2381484,71504,855
Витрата пари, що гріє:
D = Q р /r * x ' = 142 500/2124 * 10 3 * 0,94 = 0, 0715 кг/сек = 257 кг/год
де x ' - паровміст;
r - теплота конденсації пари при 148 Вє C.
Питома витрата пари:
d = D/W = 257/122 = 2,1 кг/кг вологи, що випаровується
Лістинг - програми
Sub Polina ()
'Опис змінних'
Dim Gn As Integer, un As Integer, uk As Integer, R1 As Integer, R2 As Integer, t0 As Integer, _As Integer, t2 As Integer, j2 As Integer, ck As Integer, Gtr As Integer, x0 As Single, x2 As Single, _As Long, I2 As Long, t1 As Integer, dt As Integer, tgrp As Integer, x11 As Integer, _As Long, W As Long, L As Long, Qt As Long, Qr As Long, D As Single, dm As Single, _As Single, cv As Integer, r As Single, p As Single, I As Long, Qp As Double, Qtr As Single, Qw As Double
'Введення даних' = InputBox ("Введіть Gn =В», В«350В») = InputBox ("Введіть un =В», В«42В») = InputBox ("Введіть uk =В», В«11В» ) = InputBox ("Введіть R1 =В», В«18В») = InputBox ("Введіть R2 =В», В«47В») = InputBox ("Введіть t0 =В», В«15В») = InputBox ("Введіть j0 =В», В« 70 В») = InputBox (" Введіть t0 = В»,В« 45 В») = InputBox (" Введіть j2 = В»,В« 60 В») = InputBox (" Введіть ck = В»,В« 2350 В») = InputBox (" Введіть Gtr = В» , В«600В») = InputBox ("Введіть x0 =В», В«0,0077В») = InputBox ("Введіть I0 =В», В«35000В...
