Моделирование "Хищник-жертва".Необходим совет

[Пони-плакса]

Всем привет!Мне нужна помощь в моделировании системы хищник-жертва.Программу за меня писать не надо,я ее уже сделала.Мне необходимо добавить условие отлова хищников.Подскажите, как мне это сделать?Мне нужно ввести новую переменную и обозначить ее за отлов хищников?Или есть для этого формула?Подскажите,пожалуйста,если не трудно.Код и скрин программы я предоставлю

Задание.Создать модель системы "хищник-жертва" с условием отлова хищников.

Код программы

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
Button2: TButton;
Chart1: TChart;
Series1: TLineSeries;
Series2: TLineSeries;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
N,C,r,q,a,f,dC,dN,dt,t:real;
//t:integer;
begin
N:=strtofloat(edit1.Text);
C:=strtofloat(edit2.Text);
r:=strtofloat(edit3.Text);
q:=strtofloat(edit4.Text);
a:=strtofloat(edit5.Text);
f:=strtofloat(edit6.Text);
t:=0;
dt:=0.01;
repeat
series1.AddXY(t,C,'',clred);
series2.AddXY(t,N,'',clblue);
t:=t+dt;
N:=N+(r*N-a*N*C)*dt;
C:=C+(f*a*C*N-q*C)*dt;
//C:=C+dC*dt;//100000;
//N:=N+dN*dt;//100000;
until t>1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
series1.Clear;
series2.Clear;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Utkin]

Может Вы все-таки снизойдете до простых смертных и объясните сирым и убогим, что же это за фигня - система хищник-жертва ? Или Вы думаете это обязан знать каждый?

[Serge_Bliznykov]

Utkin, я с Вами согласен, обязательно нужно формулировать исходное условие задачи.

Хотя, в данном случае, в принципе, из рисунка всё понятно - задаются условия популяции, программа строит график зависимости численности (?кого? - жертв? хищников?) от времени...

[Пони-плакса]

Сообщение от Serge_Bliznykov

Utkin, я с Вами согласен, обязательно нужно формулировать исходное условие задачи.

Я написала условие.
Создать модель системы "Хищник-жертва" с условием отлова хищников.

Да, программа строит график зависимости численности хищников и жертв от времени

[Serge_Bliznykov]

1) имена Edit'ам лучше давать ОСМЫСЛЕННЫЕ!
2) у Вас же уже есть в Edit4 (переменная q) скорость убывания хищников? Это не оно?
3) если не оно - тогда добавляйте ещё один Edit и вычитайте на каждом шаге времени от количества хищников число отлова.
4) правильно писать "Скорость роста" (у Вас на форме "Скорость раста)
5) а если не секрет, откуда получены формулы для вычисления N и C ?

[Пони-плакса]

Сообщение от Serge_Bliznykov

1) имена Edit'ам лучше давать ОСМЫСЛЕННЫЕ!
2) у Вас же уже есть в Edit4 (переменная q) скорость убывания хищников? Это не оно?
3) если не оно - тогда добавляйте ещё один Edit и вычитайте на каждом шаге времени от количества хищников число отлова.
4) правильно писать "Скорость роста" (у Вас на форме "Скорость раста)
5) а если не секрет, откуда получены формулы для вычисления N и C ?

1.Имена осмысленные.Понимаете,нам так говорят подписывать
2.q это скорость убывания хищников в следствие естественных причин(например болезней)
3.Я знаю,что пишется рОста,не было времени исправлять
4.Все формулы взяты из учебника "Практикум по информатике" авторы Могилев,Пак,Хеннер (2 из-е) и из методички преподавателя

[Скарам]

В общем и целом отлов-та же убыль численности,как и болезни,поэтому думаю,что возможно ввести такую формулу:

N:=N+(r*N-a*N*C)*dt;
C:=C+(f*a*C*N-(ОТЛОВ+q)*C)*dt;

Хотя когда я проходил эту модель нам необходимо решать диф-ное уравнение или использовать Рунге-Кутта... НО раз в учебнике написано...
P.S. Мне кажется в корне неверным такое решение, ибо это система диф. уравнений,а не просто уравнений и брать малое приращение,мягко говоря, неправильно... Возможно я ошибаюсь. Даю ссылку на учебник Самарского "Мат. моделирование", ПДФ, 2,7 Мб. Модель хищник-жертва на 171 стр.

[Serge_Bliznykov]

Скарам, отличный ответ!

Сообщение от Пони-плакса

Имена осмысленные.Понимаете,нам так говорят подписывать

Вы, похоже, не понимаете, о чём я говорю...
edit1 лучше назвать не edit1, а, например, edCountOfBeast или edKolichestvoHishnikov
edit2 лучше переименовать в edCountOfFoodAnimal или edKolichestvoGertv
edit3 -> edSpeedOfRaiseFoodAnimal
ну и т.д.

согласитесь, что так немного понятнее?... и ошибится, в каком поле что находится, намного меньше, и понимать/сопровождать проще....