Порядок выполнения работы. 1. Выписать свой вариант задания.
1. Выписать свой вариант задания. 2. Для выполнения работы используется файл Diffur.xls. 3. Загрузить указанный файл. 4. Вызвать макрос (Сервис > Макрос > Макросы > Выбрать макрос Systema > Изменить) и в подпрограмму Systema ввести правые части своих уравнений. 5. Вернуться в Excel и заполнить таблицы начальных значений, времени протекания процесса и интервал расчетов. 6. С помощью кнопки «Расчет» выполнить расчеты.
Пример Пусть в качестве задания дана система (из варианта 12):
В файле Diffur.xls в макросе “Systema” уже прописано дифференциальное уравнение следующего вида: Private Sub Systema() F(1) = k1 * N(1) - k2 * N(1) * N(2) F(2) = -k3 * N(2) + k4 * N(1) * N(2) F(3) = 0 End Sub
В данный макрос вместо имеющихся уравнений вписать уравнения, соответствующие заданию: Private Sub Systema() F(1) = - k1 * N(1) * N(2) F(2) = k1 *N(1)* N(2) – k2 * N(2) F(3) = k2*N(2) End Sub В Excel: – в поля «Начальные значения» вписать:
– в поля «Время» и «Интервал» вписать:
– в поля «Параметры уравнения» вписать:
|
