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;
END
# Fecundation of heifers
WHENEVER (Stage = 3) AND (Index <= NUMBER(Heifers)) DO
Index^:= Index + 1;
IF Heifers: Animal [Index].Age > (450 + Norm_raspr(10,3)) DO
IF Rand < 0.85 DO
Heifers^: TO MilkCows SEND Animal[Index]
CHANGING
Age^:=Heifers:Animal[Index].Age;
Weight^:= Heifers:Animal[Index].Weight;
Status^:= TRUE;
Stelnost^:= 1;
END
END
ELSE DO
Heifers^: TO Cows SEND Animal[Index]
CHANGING
Age^:= Heifers:Animal[Index].Age;
Weight^:= Heifers:Animal[Index].Weight;
END
END
END
END
WHENEVER (Stage = 3) AND (Index > NUMBER(Heifers)) DO
Stage^:=4;
Index^:=1;
END