Лабораторная работа: Imitating modelling of a cattle-breeding complex on basis Cedar Bog

TNext^:= TNext +1[d];

Seno^:= 9 * Numb_young + 14 * Numb_old;

Silos^:= 8 * Numb_young + 12 * Numb_old;

Kombicorm^:= 5 * Numb_young + 7 * Numb_old;

Koncentrat^:= 2 * Numb_young + 3 * Numb_old;

Fosfat^:= 0.04 * Numb_young + 0.06 * Numb_old;

Sol^:= 0.03 * Numb_young + 0.05 * Numb_old;

END

DIFFERENTIAL EQUATIONS

p':= sun_bio - 4.03[1/a] * p;

BioMassa':= 0.48[1/a] * p - 17.87[1/a] * BioMassa;

END

END OF Forage

3. Herd, describing variable statuses and dynamics of behaviour of the herd as a whole. The important component which defines the structure of the herd, its internal interaction. It allows to watch a livestock of the herd, its reproduction.

# Changing of weight and age of heifers

WHENEVER (Stage = 1) AND (Index <= NUMBER(Heifers)) DO

Index^:= Index + 1;

Heifers:Animal[Index].Age^:= Heifers:Animal[Index].Age + 1;

Dung^:= Dung + 10;

IF Heifers:Animal[Index].Age < 180 DO

Heifers:Animal[Index].Weight^:= Heifers:Animal[Index].Weight + ves_2;

END

ELSE DO

Heifers:Animal[Index].Weight^:= Heifers:Animal[Index].Weight + ves_3;

END

END

WHENEVER (Stage = 1) AND (Index > NUMBER(Heifers)) DO

Stage^:=2;

Index^:=1;