6.8.3. Пример

Пусть в качестве задания дана система (из варианта 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:

– в поля «Начальные значения» вписать:

– в поля «Время» и «Интервал» вписать:

– в поля «Параметры уравнения» вписать:

Примечания.

а) Подбор параметров расчетов дело очень творческое.

Здесь требуется «почувствовать» моделируемый процесс и представить, как он должен протекать. Исходя из своих представлений процесса и подбираются указанные выше параметры.

б) Особую роль играет параметр «Интервал». Его значение зависит от вида уравнений, их коэффициентов и времени. Чем меньше значение интервала, тем точнее производятся расчеты. Его минимальная величина определяется балансом между временем расчетов и их точностью.

Щелкнуть по кнопке «Расчет». В результате выполнения макроса таблица расчетов заполнится данными и на их основе будет построен график вида (рис. 6.4):

Рис. 6.4. Графическое представление результатов расчетов задачи о коньюнктуре

Главное требование к результатам расчетов: