ес отримання аніліну з нітробензолу в трубчастих реакторі.
Програмний комплекс дозволяє наочно побачити зміну розподілу температури, ступеня перетворення нітробензолу по довжині реактора, результати програми реалізовані у вигляді графіків цих залежностей. p align="justify"> Порівняння з результатами моделювання в пакеті Mathcad, показало адекватність моделі і працездатність програмного комплексу.
Список використаної літератури
1. Математичне моделювання хіміко-технологічних процесів: текст лекцій/Л.В. Гольцева [та ін]. - СПб.: СПбГТІ (ТУ). - 2011. - 10 с.
2. Гартман Т.М. Основи комп'ютерного моделювання хіміко-технологічних процесів: навч. Посібник/Т.Н Гартман, Д.В. Клушин. - М.: Изд-во Академкнига, 2006. - 416 с.
3.Холоднов В.А. Математичне моделювання та оптимізація хіміко-технологічних процесів: практ. керівництво/В.А. Холоднов [та ін]. - СПб.: АНО НВО В«ПрофесіоналВ» <# "justify"> Додаток
Текст програми
System;
using
{Calc
{double d, e, F0, FA0, U, Hr, cp, Tx; paint = new Paint1 (); paint2 = new Paint2 (); GT = new GridTable (); bool Values ​​( Form1 f1)
{
{= Convert.ToDouble (f1.textBox1.Text); = Convert.ToDouble (f1.textBox2.Text); = Convert.ToDouble (f1.textBox3.Text); = Convert.ToDouble (f1.textBox4.Text ); = Convert.ToDouble (f1.textBox5.Text); = Convert.ToDouble (f1.textBox6.Text); = Convert.ToDouble (f1.textBox7.Text); = Convert.ToDouble (f1.textBox8.Text); true;
} {return false;}
} bool CALC (Calculation calc, GridForm GF)
{m, Tbx = 450, S, R = 82.06, c, P = 1, E = 2598, k0 = 57900; [] D = new double [2];
// Початкові умови [] x = new double [2];
// кількість ітераційn = 200;
// знайти рішення в точці
double x1 = 6;. Columns (); [,] y = new double [1000,3]; double pi = Math.PI;
{= FA0/F0; = pi * d * d * e/4; = F0 * cp; [0] = Tbx; [1] = 0; [0] = S * (-Hr/c) * k0 * Math.Exp (-E/x [0]) * Math.Pow ((1 - x [1]) * m * P/(R * x [0]), 0.578) - U * pi * (d /c) * (x [0] - Tx); [1] = (S/FA0) * k0 * Math.Exp (-E/x [0]) * Math.Pow ((1 - x [1]) * m * P/(R * x [0]), 0.578); (int i = 0; i <= n; i + +)
{(i == 0)
{[i, 0] = 0; [i, 1] = x [0]; [i, 2] = x [1];
}
{[i, 0] = y [i - 1, 0] + x1/n; [i, 1] = Rungekutta.solveoderungekutta (y [i-1, 0], y [i-1, 0] + y [i, 0], x [0], n, D [0]); [i, 2] = Rungekutta.solveoderungekutta (y [i-1, 0], y [i-1, 0] + y [i, 0], x [1], n, D [1]);
}. Row (Math.Round (y [i, 0], 2), Math.Round (y [i, 1], 4), Math.Round (y [i, 2], 4));
}. Show ();. PaintDiagram (calc, y, n);
paint2.PaintDiagram (calc, y, n);. Resurs (GF...
