Procedure rabbitrate() begin

*

* Скорость роста популяции кроликов

*

TEMPORARY BirthRate, DeathRate, TotRate;

* Граничные значения для переменной

IF (Rabbits < 0) THEN Rabbits = 0;

IF (Rabbits > 10e50) THEN Rabbits = 10e50;

BirthRate = С # Rabbits;

DeathRate = B_ # Foxes # Rabbits;

TotRate = BirthRate - DeathRate;

RETURN TotRate;

END;

На рис. 4.15 представлен отчет по результатам моделирования при условии, что начальное значение количества лис равно 80. На рис. 4.16 дан график изменения размеров популяций кроликов и лис для этого начального значения.

Команда REPORT. Выводит стандартный статистической отчет о работе модели.

Формат команды:

REPORT [A][,B]

Операнд А не используется (оставлен для совместимости с пре­дыдущими версиями).

Операнд В - признак немедленного создания стандартного от­чета. Может иметь значение NOW.