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

MilkCows:Animal[Index].Stelnost^:= 1;

END

ELSE DO

MilkCows^: TO Cows SEND Animal[Index]

CHANGING

Age^:= MilkCows:Animal[Index].Age;

Weight^:= MilkCows:Animal[Index].Weight;

END

END

END

END

END OF Herd

4. Effluent (Drains) in which it is provided annual downcast drains on fields (for fertilizer of pastures). Also sale of drains for the manufacture of mineral fertilizers is possible.

DYNAMIC BEHAVIOUR

WHENEVER T >= TNext DO

TNext^:= TNext + 1[d];

IF ((sun > 100[kJ/m^2]) AND (sun < 110[kJ/m^2])) AND (FLAG = TRUE)

AND (Dung >= 10000) DO

A^:= 0;

FLAG^:= FALSE;

END

END

WHENEVER (T >= TNext) AND (FLAG = FALSE) DO

IF (sun > 50[kJ/m^2]) AND (sun < 60[kJ/m^2]) DO

FLAG^:= TRUE;

END

END

END OF Effluent

5. Profit, expenses (profit, expenses), including an economic part of the model. Unfortunately, because of insufficient amount of the information it is designed only in the theory. But further, at the profound studying of the model, it will be created and, I hope, it will work on a level with other components of the model.