Решение систем дифференциальных уравнений методом Рунге-Куты 4 порядка
| Категория реферата: Рефераты по математике
| Теги реферата: конспект, реферат методы
| Добавил(а) на сайт: Juferev.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
После того, как программа отработает, Вы сможете познакомится с результатами, которые были вычислены и помещены в файл результатов out.rez. Просмотрев его любой программой просмотра текстовых файлов или вывев его на печать, вы получите таблицу c результатами.
10. Заключение.
В результате выполнения расчета получена зависимость изменения концентрации вещества во времени. Из расчета следует, что на протяжении всего процесса вещество А расходовалось на образование В и С. Процесс не достиг конечного состояния (не достиг равновесия) Максимум концентрации вещества наблюдался при следующих значениях времени:
при начальном значении времени max соответствовал веществу А;
при значении времени, равном 10 часам, max соответствовал веществам B и
С, однако, это не является максимумом концентрации веществ в процессе вообще, так как вещества B и С продолжают образовываться;
В ходе выполнения работы был произведен расчет системы дифференциальных уравнений методом Рунге-Кутты четвертого порядка, произведен расчет кинетической схемы процесса при изотермических условиях при данных значениях концентраций и констант скоростей. Расчет произведен с малой величиной погрешности.
Литература.
1. Мудров А.Е.Численные методы для ПЭВМ на языках Паскаль,
Фортран и Бейсик. МП “Раско”, Томск, 1991 г.
--------------------
[pic]
[pic]
[pic]
[pic]
[pic]
НАЧАЛО
INIT
RUN
КОНЕЦ
[pic]
[pic]
[pic]
[pic]
[pic]
[pic]
PROCEDURE INIT;
BEGIN
ClrScr;
WRITE('Step 1: Read data from file : in.dat');
ASSIGN(f1,'in.dat');
RESET(f1);
READLN(f1,C[1],C[2],C[3]);
READLN(f1,k1,k2,k3,k4);
READLN(f1,Xn,Xk,dp,n,eps,p);
WRITELN(' - done.');
ASSIGN(f2,'out.rez');
REWRITE(f2);
WRITE('Step 2: Write header to file : out.rez');
WRITELN(f2,’_____________________________________');
WRITELN(f2,'¦t,c ¦ Ca,% ¦ Cb,% ¦ Cc,% ¦SUM¦ dCa ¦ dCb ¦ dCc ¦');
WRITELN(f2,'_____________________________________');
WRITELN(' - done.');
END;
PROCEDURE RUN;
BEGIN
X:=Xn; dX:=0.05;
REPEAT
Рекомендуем скачать другие рефераты по теме: сочинение описание, отечественная война реферат.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Главная