Элементы матрицы соответствуют стехиометрическим коэффициентам, причем коэффициент будет отрицательным, если вещество расходуется и положительным, если вещество образуется.
А | B | C | |
I | -2 | -1 | 2 |
Скорость по i-му компоненту будет представлять собой сумму компонентов i – го столбца.
vA= -2wI
vB= -wI
vC= 2wI
vD= wII
Математическое описание:
К этой системе необходимо добавить уравнение теплового баланса:
где λ1=q/Cp – коэффициенты адиабатического разогрева.
Модель вытеснения можно применять для технических реагентов при проектировании жидкофазных трубчатых реакторов с большим отношением, длины трубы к его диаметру. Такие реакторы широко применяются в производствах органических веществ. К режиму вытеснения относят по газовой фазе полочные контактные аппараты с фильтрующими слоями катализатора, шахтные печи и конверторы.
Значительная часть применяемых в промышленности насадочных башен для взаимодействия газов с жидкостями работает при небольших скоростях газового потока и малых плотностях орошения.
1.6 Синтез оптимальных систем теплообмена
В наиболее традиционной постановке задача синтеза тепловых систем (ТС) формулируется следующим образом: имеются m горячих и n холодных технологических потоков, которые называют основными технологическими потоками. Для каждого из этих потоков заданы начальные температуры
Необходимо определить структуру технологических связей между теплообменными аппаратами заданного типа, а также же площади поверхностей теплообмена каждого аппарата, которые обеспечивали бы заданные начальные и конечные температуры основных технологических потоков при минимально возможном значении приведенных технологических затрат 3пр, связанных с эксплуатацией синтезируемой ТС.
Для решения задачи синтезируемую ТС разделяют на две подсистемы: внутреннюю (рекуперативную), где в теплообмене участвуют только основные технологические потоки; и внешнюю, где при теплообмене используется вспомогательные теплоносители (вспомогательные технологические потоки) и вспомогательные теплообменники, осуществляющие теплообмен между основными и вспомогательными технологическими потоками.
При этом внешняя подсистема используется только тогда, когда во внутренней подсистеме не удается получить заданные конечные температуры.
Приведенные технологические затраты, связанные с эксплуатацией синтезируемой ТС, могут быть выражены следующим образом:
Если во внутренней подсистеме используются К1 теплообменных аппаратов, а во внешней –
При расчете стоимости i - го теплообменника любой подсистемы в данной работе используется зависимость
где F - площадь поверхности теплообмена соответствующего i- го теплообменника, м2
а - стоимостной коэффициент, зависящий от типа теплообменника. Затраты на вспомогательные теплоносители определяются по формуле:
Где
При синтезе ТС используются формулы:
где Q - тепловая нагрузка теплообменника; k- соответствующий коэффициент теплопередачи.
Средняя разность температур для теплообменника:
где
Тепловая нагрузка теплообменника, или количество тепла, переданное в одном аппарате, определяется на основе концепции передачи максимально возможного тепла при минимально допустимой разности температур на концах теплообменника
Если (
Задача синтеза решается путем формирования множества возможных комбинаций исходных горячих и холодных потоков для проведения физически реализуемых операций теплообмена в теплообменном аппарате. для этой цели строят таблицу пар взаимодействующих потоков исходя из условия Q
2.1 Расчет k0 и E в уравнении Аррениуса с использованием метода наименьших квадратов
Расчет проводился на основе данных из Приложения 1 в программе, написанной в Visual Basic.
Код программы:
Option Explicit
Dim z As Integer
Dim i As Integer
Dim s1 As Single
Dim s2 As Single
Dim s3 As Single
Dim s4 As Single
Dim a As Single
Dim b As Single
Dim k0 As Single
Dim e As Single
Dim t() As Single
Dim k() As Single
Dim kr() As Single
Dim eps() As Single
Dim x() As Single
Dim y() As Single
Private Sub Command1_Click()
z = InputBox("Введите количество опытов", "Ввод экспериментальных данных")
MSFlexGrid1.Rows = z + 1
ReDim t(z) As Single
ReDim k(z) As Single
ReDim kr(z) As Single
ReDim eps(z) As Single
For i = 1 To z
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
t(i) = Val(InputBox("Введите параметр T 'C", "Ввод экспериментальных данных"))
MSFlexGrid1.Text = CStr(t(i))
MSFlexGrid1.Col = 2
k(i) = Val(InputBox("Введите параметр K", "Ввод экспериментальных данных"))
MSFlexGrid1.Text = CStr(k(i))
Next i
Command2.Enabled = True
Command2.Visible = True
End Sub
Private Sub Command2_Click()
ReDim x(z) As Single
ReDim y(z) As Single
For i = 1 To z
x(i) = 1 / (t(i) + 273)
y(i) = Log(k(i))
Next i
s1 = 0
s2 = 0
s3 = 0
s4 = 0
For i = 1 To z
s1 = s1 + x(i)
s2 = s2 + x(i) * x(i)