Farm Class Reference

The base class for all farm types. More...

#include <farm.h>

Inheritance diagram for Farm:

Public Member Functions
virtual void	Management (void)
	Starts the main management loop for the farm and performs some error checking. More...
virtual void	InitiateManagement (void)
	Kicks off the farm's management. More...
void	AddField (LE *a_newfield)
	Adds a field to a farm. More...
void	RemoveField (LE *a_field)
	Removes a field from a farm. More...
	Farm (FarmManager *a_manager)
	Farm constructor - creates an instance of each possible crop type. More...
virtual	~Farm (void)
	Farm destructor - deletes all crop instances and empties event queues. More...
void	SetFarmNumber (int a_farm_num)
int	GetFarmNumber (void)
virtual bool	Spraying_herbicides (TTypesOfVegetation)
virtual bool	Spraying_fungins (TTypesOfVegetation)
virtual double	Prob_multiplier ()
void	Assign_rotation (vector< TTypesOfVegetation >a_new_rotation)
polylist *	ListOpenFields (int a_openness)
	Returns a list of fields with openness above a_openness. More...
void	Centroids ()
	Finds farm's centroids - x and y. More...
int	GetNoFields ()
	Returns the number of the fields owned. More...
int	GetNoOpenFields (int a_openness)
	Returns the number of the fields above an openness of a_openness. More...
int	GetAreaOpenFields (int a_openness)
	Returns the area of the fields above an openness of a_openness. More...
APoint	GetValidCoords ()
	Returns the valid coordinates of the first field owned by a farm. More...
int	GetMaxOpenness ()
	Returns the maximum openness score of the fields. More...
virtual bool	SleepAllDay (LE *a_field, double a_user, int a_days)
	Nothing to to today on a_field. More...
virtual bool	AutumnPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the autumn on a_field. More...
virtual bool	AutumnHarrow (LE *a_field, double a_user, int a_days)
	Carry out a harrow event in the autumn on a_field. More...
virtual bool	AutumnRoll (LE *a_field, double a_user, int a_days)
	Carry out a roll event in the autumn on a_field. More...
virtual bool	AutumnSow (LE *a_field, double a_user, int a_days)
	Carry out a sowing event in the autumn on a_field. More...
virtual bool	WinterPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the winter on a_field. More...
virtual bool	DeepPlough (LE *a_field, double a_user, int a_days)
	Carry out a deep ploughing event on a_field. More...
virtual bool	SpringPlough (LE *a_field, double a_user, int a_days)
	Carry out a ploughing event in the spring on a_field. More...
virtual bool	SpringHarrow (LE *a_field, double a_user, int a_days)
	Carry out a harrow event in the spring on a_field. More...
virtual bool	SpringRoll (LE *a_field, double a_user, int a_days)
	Carry out a roll event in the spring on a_field. More...
virtual bool	SpringSow (LE *a_field, double a_user, int a_days)
	Carry out a sowing event in the spring on a_field. More...
virtual bool	HerbicideTreat (LE *a_field, double a_user, int a_days)
	Apply herbicide to a_field. More...
virtual bool	GrowthRegulator (LE *a_field, double a_user, int a_days)
	Apply growth regulator to a_field. More...
virtual bool	FungicideTreat (LE *a_field, double a_user, int a_days)
	Apply fungicide to a_field. More...
virtual bool	InsecticideTreat (LE *a_field, double a_user, int a_days)
	Apply insecticide to a_field. More...
virtual bool	SynInsecticideTreat (LE *a_field, double a_user, int a_days)
	Apply special insecticide to a_field. More...
virtual bool	ProductApplication0 (LE *a_field, double a_user, int a_days)
	Apply test pesticide to a_field. More...
virtual bool	ProductApplication1 (LE *a_field, double a_user, int a_days)
	Apply test pesticide to a_field. More...
virtual bool	Molluscicide (LE *a_field, double a_user, int a_days)
	Apply molluscidie to a_field. More...
virtual bool	RowCultivation (LE *a_field, double a_user, int a_days)
	Carry out a harrowing between crop rows on a_field. More...
virtual bool	Strigling (LE *a_field, double a_user, int a_days)
	Carry out a mechanical weeding on a_field. More...
virtual bool	StriglingSow (LE *a_field, double a_user, int a_days)
	Carry out a mechanical weeding followed by sowing on a_field. More...
virtual bool	HillingUp (LE *a_field, double a_user, int a_days)
	Do hilling up on a_field, probably of potatoes. More...
virtual bool	Water (LE *a_field, double a_user, int a_days)
	Carry out a watering on a_field. More...
virtual bool	Swathing (LE *a_field, double a_user, int a_days)
	Cut the crop on a_field and leave it lying (probably rape) More...
virtual bool	Harvest (LE *a_field, double a_user, int a_days)
	Carry out a harvest on a_field. More...
virtual bool	HarvestLong (LE *a_field, double a_user, int a_days)
	Carry out a harvest on a_field. More...
virtual bool	CattleOut (LE *a_field, double a_user, int a_days)
	Start a grazing event on a_field today. More...
virtual bool	CattleOutLowGrazing (LE *a_field, double a_user, int a_days)
	Start a extensive grazing event on a_field today. More...
virtual bool	CattleIsOut (LE *a_field, double a_user, int a_days, int a_max)
	Generate a 'cattle_out' event for every day the cattle are on a_field. More...
virtual bool	CattleIsOutLow (LE *a_field, double a_user, int a_days, int a_max)
	Generate a 'cattle_out_low' event for every day the cattle are on a_field. More...
virtual bool	PigsOut (LE *a_field, double a_user, int a_days)
	Generate a 'pigs_out' event for every day the cattle are on a_field. More...
virtual bool	PigsAreOut (LE *a_field, double a_user, int a_days)
	Start a pig grazing event on a_field today or soon. More...
virtual bool	PigsAreOutForced (LE *a_field, double a_user, int a_days)
	Start a pig grazing event on a_field today - no exceptions. More...
virtual bool	CutToHay (LE *a_field, double a_user, int a_days)
	Carry out hay cutting on a_field. More...
virtual bool	CutWeeds (LE *a_field, double a_user, int a_days)
	Carry out weed topping on a_field. More...
virtual bool	CutToSilage (LE *a_field, double a_user, int a_days)
	Cut vegetation for silage on a_field. More...
virtual bool	CutOrch (LE *a_field, double a_user, int a_days)
	Cut vegetation on orchard crop. //based on cut to silage - values from cutting function of orchard. More...
virtual bool	StrawChopping (LE *a_field, double a_user, int a_days)
	Carry out straw chopping on a_field. More...
virtual bool	HayTurning (LE *a_field, double a_user, int a_days)
	Carry out hay turning on a_field. More...
virtual bool	HayBailing (LE *a_field, double a_user, int a_days)
	Carry out hay bailing on a_field. More...
virtual bool	BurnStrawStubble (LE *a_field, double a_user, int a_days)
	Burn stubble on a_field. More...
virtual bool	StubbleHarrowing (LE *a_field, double a_user, int a_days)
	Carry out stubble harrowing on a_field. More...
virtual bool	FP_NPKS (LE *a_field, double a_user, int a_days)
	Apply NPKS fertilizer, on a_field owned by an arable farmer. More...
virtual bool	FP_NPK (LE *a_field, double a_user, int a_days)
	Apply NPK fertilizer, on a_field owned by an arable farmer. More...
virtual bool	FP_PK (LE *a_field, double a_user, int a_days)
	Apply PK fertilizer, on a_field owned by an arable farmer. More...
virtual bool	FP_LiquidNH3 (LE *a_field, double a_user, int a_days)
	Apply liquid ammonia fertilizer to a_field owned by an arable farmer. More...
virtual bool	FP_Slurry (LE *a_field, double a_user, int a_days)
	Apply slurry to a_field owned by an arable farmer. More...
virtual bool	FP_ManganeseSulphate (LE *a_field, double a_user, int a_days)
	Apply Manganse Sulphate to a_field owned by an arable farmer. More...
virtual bool	FP_Manure (LE *a_field, double a_user, int a_days)
	Spread manure on a_field owned by an arable farmer. More...
virtual bool	FP_GreenManure (LE *a_field, double a_user, int a_days)
	Spread green manure on a_field owned by an arable farmer. More...
virtual bool	FP_Sludge (LE *a_field, double a_user, int a_days)
	Spread sewege on a_field owned by an arable farmer. More...
virtual bool	FA_NPK (LE *a_field, double a_user, int a_days)
	Apply NPK fertilizer to a_field owned by an stock farmer. More...
virtual bool	FA_PK (LE *a_field, double a_user, int a_days)
	Apply PK fertilizer to a_field owned by an stock farmer. More...
virtual bool	FA_Slurry (LE *a_field, double a_user, int a_days)
	Spready slurry on a_field owned by an stock farmer. More...
virtual bool	FA_AmmoniumSulphate (LE *a_field, double a_user, int a_days)
	Apply ammonium supahte to a_field owned by an stock farmer. More...
virtual bool	FA_Manure (LE *a_field, double a_user, int a_days)
	Spread manure on a_field owned by an stock farmer. More...
virtual bool	FA_GreenManure (LE *a_field, double a_user, int a_days)
	Spread green manure on a_field owned by an stock farmer. More...
virtual bool	FA_Sludge (LE *a_field, double a_user, int a_days)
	Spread sewege sludge on a_field owned by an stock farmer. More...
virtual bool	Trial_PesticideTreat (LE *a_field, double a_user, int a_days)
	Special pesticide trial functionality. More...
virtual bool	Trial_PesticideTreat_DateLimited (LE *a_field, double, int)
	Special pesticide trial functionality. More...
virtual bool	Trial_PesticideTreat_GS (LE *a_field, double a_user, int a_days)
	Special pesticide trial functionality. More...
virtual bool	Trial_ToxicControl (LE *a_field, double a_user, int a_days)
	Special pesticide trial functionality. More...
virtual bool	Trial_Control (LE *a_field, double a_user, int a_days)
	Special pesticide trial functionality. More...
virtual bool	Glyphosate (LE *a_field, double a_user, int a_days)
void	AddNewEvent (TTypesOfVegetation a_event, long a_date, LE *a_field, int a_todo, long a_num, bool a_lock, int a_start, bool a_first_year, TTypesOfVegetation a_crop)
	Adds an event to the event queue for a farm. More...
bool	DoIt (int a_probability)
	Return chance out of 100. More...
TTypesOfFarm	GetType (void)
int	GetArea (void)
	Returns the area of arable fields owned by that farm. More...
int	GetTotalArea (void)
	Returns the area of all fields owned by that farm. More...
double	GetAreaDouble (void)
	Returns the area of arable fields owned by that farm. More...
bool	IsStockFarmer (void)
virtual void	MakeStockFarmer (void)
int	GetIntensity (void)
APoint	GetCentroids ()
TTypesOfVegetation	GetPreviousCrop (int a_index)
TTypesOfVegetation	GetCrop (int a_index)
TTypesOfVegetation	GetNextCrop (int a_index)
void	AddHunter (Hunter *a_hunter)
bool	RemoveHunter (Hunter *a_hunter)

Protected Member Functions
int	GetFirstDate (TTypesOfVegetation a_tov)
	Gets the start date for a crop type. More...
int	GetNextCropStartDate (LE *a_field, TTypesOfVegetation &a_curr_veg)
	Returns the start date of the next crop in the rotation. More...
virtual int	GetFirstCropIndex (TTypesOfLandscapeElement a_type)
	Gets the first crop for the farm. More...
virtual int	GetNextCropIndex (int a_rot_index)
	Returns the next crop in the rotation. More...
virtual void	HandleEvents (void)
	If there are events to carry out do this, and perhaps start a new crop. More...
bool	LeSwitch (FarmEvent *ev)
	Call do function for any crop with an outstanding event. Signal if the crop has terminated. More...
void	CheckRotationManagementLoop (FarmEvent *ev)
void	ReadRotation (std::string fname)
	Reads a rotation file into the rotation. More...
void	AssignPermanentCrop (TTypesOfVegetation tov, int pct)
	Used to assign a permanent crop to an otherwise rotational field polygon. More...
int	InvIntPartition (vector< tpct > *items, int target)
	Finds all possible sums of the integers in the items array. More...

Protected Attributes
FarmManager *	m_OurManager
	Pointer to the FarmManager. More...
LowPriority< FarmEvent * >	m_queue
vector< LE * >	m_fields
vector< TTypesOfVegetation >	m_rotation
vector< PermCropData >	m_PermCrops
TTypesOfFarm	m_farmtype
HunterList	m_HuntersList
	A list of hunters allocated to this farm. More...
bool	m_stockfarmer
int	m_farm_num
int	m_rotation_sync_index
int	m_intensity
int	m_farm_centroidx
	Farm's centroid, value x. Equal to the average of the x centroid values of all farm's fields. More...
int	m_farm_centroidy
	Farm's centroid, value y. Equal to the average of the y centroid values of all farm's fields. More...
Carrots *	m_carrots
BroadBeans *	m_broadbeans
FodderGrass *	m_foddergrass
CloverGrassGrazed1 *	m_CGG1
CloverGrassGrazed2 *	m_CGG2
FieldPeas *	m_fieldpeas
FieldPeasSilage *	m_fieldpeassilage
Fodderbeet *	m_fodderbeet
Sugarbeet *	m_sugarbeet
OFodderbeet *	m_ofodderbeet
Maize *	m_maize
MaizeSilage *	m_maizesilage
OMaizeSilage *	m_omaizesilage
OBarleyPeaCloverGrass *	m_OBarleyPCG
OCarrots *	m_ocarrots
OCloverGrassGrazed1 *	m_OCGG1
OCloverGrassGrazed2 *	m_OCGG2
OCloverGrassSilage1 *	m_OCGS1
OFieldPeas *	m_ofieldpeas
OFieldPeasSilage *	m_ofieldpeassilage
OFirstYearDanger *	m_ofirstyeardanger
OGrazingPigs *	m_ograzingpigs
OrchardCrop *	m_orchardcrop
Oats *	m_oats
OOats *	m_ooats
OPermanentGrassGrazed *	m_opermgrassgrazed
OPotatoes *	m_opotatoes
OSeedGrass1 *	m_oseedgrass1
OSeedGrass2 *	m_oseedgrass2
OSpringBarley *	m_ospringbarley
OSpringBarleyExt *	m_ospringbarleyext
OSpringBarleyPigs *	m_ospringbarleypigs
OSBarleySilage *	m_osbarleysilage
OTriticale *	m_otriticale
OWinterBarley *	m_owinterbarley
OWinterBarleyExt *	m_owinterbarleyext
OWinterRape *	m_owinterrape
OWinterRye *	m_owinterrye
OWinterWheatUndersown *	m_owinterwheatundersown
OWinterWheat *	m_owinterwheat
OWinterWheatUndersownExt *	m_owinterwheatundersownext
PermanentGrassGrazed *	m_permgrassgrazed
PermanentGrassLowYield *	m_permgrasslowyield
PermanentGrassTussocky *	m_permgrasstussocky
PermanentSetAside *	m_permanentsetaside
Potatoes *	m_potatoes
PotatoesIndustry *	m_potatoesindustry
SeedGrass1 *	m_seedgrass1
SeedGrass2 *	m_seedgrass2
SetAside *	m_setaside
SpringBarley *	m_springbarley
SpringBarleySpr *	m_springbarleyspr
SpringBarleySKManagement *	m_springbarleyskmanagement
SpringBarleyPTreatment *	m_springbarleyptreatment
SpringBarleyCloverGrass *	m_sbarleyclovergrass
SpringBarleySeed *	m_springbarleyseed
SpringBarleySilage *	m_springbarleysilage
SpringRape *	m_springrape
Triticale *	m_triticale
WinterBarley *	m_winterbarley
WinterRape *	m_winterrape
WinterRye *	m_winterrye
WinterWheat *	m_winterwheat
WWheatPControl *	m_wwheatpcontrol
WWheatPToxicControl *	m_wwheatptoxiccontrol
WWheatPTreatment *	m_wwheatptreatment
AgroChemIndustryCereal *	m_agrochemindustrycereal
WinterWheatStrigling *	m_winterwheatstrigling
WinterWheatStriglingCulm *	m_winterwheatstriglingculm
WinterWheatStriglingSingle *	m_winterwheatstriglingsingle
SpringBarleyCloverGrassStrigling *	m_springbarleyclovergrassstrigling
SpringBarleyStrigling *	m_springbarleystrigling
SpringBarleyStriglingCulm *	m_springbarleystriglingculm
SpringBarleyStriglingSingle *	m_springbarleystriglingsingle
MaizeStrigling *	m_maizestrigling
WinterRapeStrigling *	m_winterrapestrigling
WinterRyeStrigling *	m_winterryestrigling
WinterBarleyStrigling *	m_winterbarleystrigling
FieldPeasStrigling *	m_fieldpeasstrigling
SpringBarleyPeaCloverGrassStrigling *	m_springbarleypeaclovergrassstrigling
YoungForestCrop *	m_youngforest

Detailed Description

The base class for all farm types.

Definition at line 683 of file farm.h.

Constructor & Destructor Documentation

Farm::Farm

(

FarmManager *

a_manager

)

Farm constructor - creates an instance of each possible crop type.

Definition at line 862 of file farm.cpp.

{
    m_OurManager = a_manager;
    m_carrots = new Carrots;
    m_broadbeans = new BroadBeans;
    m_CGG1 = new CloverGrassGrazed1;
    m_CGG2 = new CloverGrassGrazed2;
    m_fieldpeas = new FieldPeas;
    m_fieldpeassilage = new FieldPeasSilage;
    m_fodderbeet = new Fodderbeet;
    m_sugarbeet = new Sugarbeet;
    m_ofodderbeet = new OFodderbeet;
    m_foddergrass = new FodderGrass;
    m_maize = new Maize;
    m_maizesilage = new MaizeSilage;
    m_omaizesilage = new OMaizeSilage;
    m_OBarleyPCG = new OBarleyPeaCloverGrass;
    m_ocarrots = new OCarrots;
    m_OCGG1 = new OCloverGrassGrazed1;
    m_OCGG2 = new OCloverGrassGrazed2;
    m_OCGS1 = new OCloverGrassSilage1;
    m_ofieldpeas = new OFieldPeas;
    m_ofieldpeassilage = new OFieldPeasSilage;
    m_ofirstyeardanger = new OFirstYearDanger;
    m_ograzingpigs = new OGrazingPigs;
    m_orchardcrop = new OrchardCrop;
    m_oats = new Oats;
    m_ooats = new OOats;
    m_opermgrassgrazed = new OPermanentGrassGrazed;
    m_opotatoes = new OPotatoes;
    m_oseedgrass1 = new OSeedGrass1;
    m_oseedgrass2 = new OSeedGrass2;
    m_ospringbarley = new OSpringBarley;
    m_osbarleysilage = new OSBarleySilage;
    m_ospringbarleyext = new OSpringBarleyExt;
    m_ospringbarleypigs = new OSpringBarleyPigs;
    m_owinterbarley = new OWinterBarley;
    m_owinterbarleyext = new OWinterBarleyExt;
    m_owinterrape = new OWinterRape;
    m_owinterrye = new OWinterRye;
    m_owinterwheat = new OWinterWheat;
    m_owinterwheatundersown = new OWinterWheatUndersown;
    m_owinterwheatundersownext = new OWinterWheatUndersownExt;
    m_permanentsetaside = new PermanentSetAside;
    m_permgrassgrazed = new PermanentGrassGrazed;
    m_permgrasslowyield = new PermanentGrassLowYield;
    m_permgrasstussocky = new PermanentGrassTussocky;
    m_potatoes = new Potatoes;
    m_potatoesindustry = new PotatoesIndustry;
    m_sbarleyclovergrass = new SpringBarleyCloverGrass;
    m_seedgrass1 = new SeedGrass1;
    m_seedgrass2 = new SeedGrass2;
    m_setaside = new SetAside;
    m_springbarley = new SpringBarley;
    m_springbarleyspr = new SpringBarleySpr;
    m_springbarleyptreatment = new SpringBarleyPTreatment;
    m_springbarleyskmanagement = new SpringBarleySKManagement;
    m_springbarleyseed = new SpringBarleySeed;
    m_springbarleysilage = new SpringBarleySilage;
    m_springrape = new SpringRape;
    m_triticale = new Triticale;
    m_otriticale = new OTriticale;
    m_winterbarley = new WinterBarley;
    m_winterrape = new WinterRape;
    m_winterrye = new WinterRye;
    m_winterwheat = new WinterWheat;
    m_wwheatpcontrol = new WWheatPControl;
    m_wwheatptoxiccontrol = new WWheatPToxicControl;
    m_wwheatptreatment = new WWheatPTreatment;
    m_agrochemindustrycereal = new AgroChemIndustryCereal;
    m_winterwheatstrigling = new WinterWheatStrigling;
    m_winterwheatstriglingsingle = new WinterWheatStriglingSingle;
    m_winterwheatstriglingculm = new WinterWheatStriglingCulm;
    m_springbarleyclovergrassstrigling = new SpringBarleyCloverGrassStrigling;
    m_springbarleystrigling = new SpringBarleyStrigling;
    m_springbarleystriglingsingle = new SpringBarleyStriglingSingle;
    m_springbarleystriglingculm = new SpringBarleyStriglingCulm;
    m_maizestrigling = new MaizeStrigling;
    m_winterrapestrigling = new WinterRapeStrigling;
    m_winterryestrigling = new WinterRyeStrigling;
    m_winterbarleystrigling = new WinterBarleyStrigling;
    m_fieldpeasstrigling = new FieldPeasStrigling;
    m_springbarleypeaclovergrassstrigling = new SpringBarleyPeaCloverGrassStrigling;
    m_youngforest = new YoungForestCrop;
    m_rotation_sync_index = -1;
    // Defaults that need to be overridden when necessary
    m_stockfarmer = false;
    m_intensity = 0;
    m_HuntersList.resize(0); // Set the number of hunters to zero at the start.
}

Farm::~Farm ( void  )

virtual

Farm destructor - deletes all crop instances and empties event queues.

Definition at line 958 of file farm.cpp.

References LowPriPair< ELEMTYPE >::m_element.

                  {
  delete m_carrots;
  delete m_broadbeans;
  delete m_CGG2;
  delete m_CGG1;
  delete m_fieldpeas;
  delete m_fieldpeassilage;
  delete m_fodderbeet;
  delete m_sugarbeet;
  delete m_ofodderbeet;
  delete m_foddergrass;
  delete m_maizesilage;
  delete m_omaizesilage;
  delete m_maize;
  delete m_ocarrots;
  delete m_OCGG1;
  delete m_OCGG2;
  delete m_OCGS1;
  delete m_ofieldpeas;
  delete m_ofieldpeassilage;
  delete m_ofirstyeardanger;
  delete m_ograzingpigs;
  delete m_orchardcrop;
  delete m_ooats;
  delete m_oats;
  delete m_opermgrassgrazed;
  delete m_opotatoes;
  delete m_ospringbarley;
  delete m_ospringbarleyext;
  delete m_osbarleysilage;
  delete m_ospringbarleypigs;
  delete m_owinterbarley;
  delete m_owinterbarleyext;
  delete m_owinterrape;
  delete m_owinterrye;
  delete m_owinterwheatundersown;
  delete m_owinterwheatundersownext;
  delete m_OBarleyPCG;
  delete m_permanentsetaside;
  delete m_permgrassgrazed;
  delete m_permgrasstussocky;
  delete m_permgrasslowyield;
  delete m_potatoes;
  delete m_potatoesindustry;
  delete m_sbarleyclovergrass;
  delete m_seedgrass2;
  delete m_seedgrass1;
  delete m_setaside;
  delete m_springbarley;
  delete m_springbarleyptreatment;
  delete m_springbarleyskmanagement;
  delete m_springbarleyseed;
  delete m_springrape;
  delete m_springbarleysilage;
  delete m_agrochemindustrycereal;
  delete m_triticale;
  delete m_winterbarley;
  delete m_winterrape;
  delete m_winterrye;
  delete m_winterwheat;
  delete m_wwheatpcontrol;
  delete m_wwheatptoxiccontrol;
  delete m_wwheatptreatment;
  delete  m_winterwheatstrigling;
  delete  m_winterwheatstriglingsingle;
  delete  m_winterwheatstriglingculm;
  delete  m_springbarleyclovergrassstrigling;
  delete  m_springbarleystrigling;
  delete  m_springbarleystriglingsingle;
  delete  m_springbarleystriglingculm;
  delete  m_maizestrigling;
  delete  m_winterrapestrigling;
  delete  m_winterryestrigling;
  delete  m_winterbarleystrigling;
  delete  m_fieldpeasstrigling;
  delete  m_springbarleypeaclovergrassstrigling;
  delete  m_youngforest;
  LowPriPair < FarmEvent * > pair;

  while ( !m_queue.Empty() ) {
    pair = m_queue.Bottom();
    m_queue.Pop();
    delete pair.m_element;
  }
}

Member Function Documentation

void Farm::AddField

(

LE *

a_newfield

)

Adds a field to a farm.

Definition at line 1161 of file farm.cpp.

References LE::GetElementType(), tole_Orchard, tole_PermanentSetaside, tole_PermPasture, tole_PermPastureLowYield, tole_PermPastureTussocky, and tole_YoungForest.

                                     {
  int i = (int) m_fields.size();

  m_fields.resize( i + 1 );
  m_fields[ i ] = a_newfield;
  // Must set the rot index to something other than -1, but identify it as not usefully set as yet.
    TTypesOfLandscapeElement ele = a_newfield->GetElementType();
    switch (ele) {
        case tole_PermPastureLowYield:
        case tole_YoungForest:
        case tole_PermPasture:
        case tole_PermPastureTussocky:
        case tole_PermanentSetaside:
        case tole_Orchard:
            m_fields[ i ]->SetRotIndex(-2);
            break;
        default:
            m_fields[ i ]->SetRotIndex(-1);
    }
}

void Farm::AddHunter ( Hunter *  a_hunter )

inline

Definition at line 824 of file farm.h.

                                   {
      m_HuntersList.push_back( a_hunter );
  }

void Farm::AddNewEvent	(	TTypesOfVegetation	a_event,
		long	a_date,
		LE *	a_field,
		int	a_todo,
		long	a_num,
		bool	a_lock,
		int	a_start,
		bool	a_first_year,
		TTypesOfVegetation	a_crop
	)

Adds an event to the event queue for a farm.

Definition at line 599 of file farm.cpp.

                                                                 {
     FarmEvent * ev = new FarmEvent( a_event, a_field, a_todo, a_run, a_lock, a_start, a_first_year, a_crop );
       m_queue.Push( ev, a_date );
}

void Farm::Assign_rotation

(

vector< TTypesOfVegetation >

a_new_rotation

)

Definition at line 1201 of file farm.cpp.

Referenced by FarmManager::Switch_rotation().

                                                                   {

    m_rotation.clear();
    m_rotation = a_new_rotation;

}

void Farm::AssignPermanentCrop ( TTypesOfVegetation  tov, int  pct  )

protected

Used to assign a permanent crop to an otherwise rotational field polygon.

Definition at line 1973 of file farm.cpp.

References CompPcts(), GetArea(), tpct::index, InvIntPartition(), m_fields, tpct::pct, and tov_Undefined.

Referenced by OptimisingFarm::InitiateManagement().

                                                              {
    // Assumes that m_fields has all the fields already in it, and those that are occupied by permanent tole types
    // are denoted by -2 or -4 in rotindex, -1 is unassigned - can't use enum because positive values have other meanings
    // First get the areas of all fields and then convert these to percentages
    tpct a_tpct;
    vector<LE*> fields_cpy;
    fields_cpy.resize(m_fields.size());
    copy(m_fields.begin(), m_fields.end(), fields_cpy.begin());
    vector<tpct> pcts;
    double area = 0.0;
    int sz = (int) fields_cpy.size();
    for (int i=sz-1; i>=0; i--) {
        if ( fields_cpy[i]->GetRotIndex()<-1) {
            if (fields_cpy[i]->GetRotIndex()==-4) area += fields_cpy[i]->GetArea();
            fields_cpy.erase(fields_cpy.begin()+i);
        }
        else area += fields_cpy[i]->GetArea();
    }
    // Here we can take action if we only have a single field (could extend this if it was thought worth it)
    int fnos = (int) fields_cpy.size();
    if (fnos<1) return; // No fields to allocate, jump out
    else if (fnos<2) {
        // Use the pct as the chance that our single field is assigned
        if (random(100)>=pct) return;
        else {
            // Add field by default
            fields_cpy[0]->SetRotIndex(-4);
            // Assign the crop
            fields_cpy[0]->SetVegType(tov, tov_Undefined);
            return;
        }
    }
    for (int i=0; i<fnos; i++) {
        a_tpct.pct = (int) floor(0.5+((fields_cpy[i]->GetArea()/area)*100));
        a_tpct.index = i;
        pcts.push_back(a_tpct);
    }
    // We need to look for combinations of fields that are close to our target.
    // First we can sort the array and ignore any that are greater than pct
    sort (pcts.begin(), pcts.end(), CompPcts); // results in ordering on increasing pct
    // now remove all those with pct>target+10% to save loads of time in the inverse integer partition
    int index=-1;
    int ind=0;
    int apct=pct+10; // Lets assume we have a tolerance of 10%
    while ((index==-1) && (ind< (int)pcts.size())) {
        if (pcts[ind++].pct>apct) index=ind;
    }
    if (index!=-1) pcts.erase(pcts.begin()+index,pcts.end());
    // Now find the best combination of fields to get close to our target & set them
    int bits = InvIntPartition(&pcts,pct);
    int mask=1;
    ind = 0;
    int used=0;
    //double pctused = 0.0;
    double check = 0.0;
    for (int h=0; h< (int)pcts.size(); h++) check+=fields_cpy[pcts[h].index]->GetArea();
    while (bits>0) {
        if ((bits & mask) > 0) {
            // Set the field as non-rotating
            fields_cpy[pcts[ind].index]->SetRotIndex(-4);
            // Assign the crop
            fields_cpy[pcts[ind].index]->SetVegType(tov, tov_Undefined);
            used += (int) fields_cpy[pcts[ind].index]->GetArea();
            //pctused = used/area;
            bits -= mask;
        }
        mask = mask << 1;
        ind++;
    }
}

bool Farm::AutumnHarrow ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a harrow event in the autumn on a_field.

Definition at line 154 of file farmfuncs.cpp.

References autumn_harrow, DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( autumn_harrow );
    a_field->SetLastTreatment( autumn_harrow );
   // Apply 90% mortality to the insects
    a_field->InsectMortality( 0.1 );
   // Reduce the vegetation to zero
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( autumn_harrow );
      um->InsectMortality( 0.1 );
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

bool Farm::AutumnPlough ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a ploughing event in the autumn on a_field.

Definition at line 100 of file farmfuncs.cpp.

References autumn_plough, DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

    // LE is a pointer to the field element
    // a_user is a pointer to the farm
    // a_days is the end of the operation time - today
    // if a_days <0 then the time to do it is passed
    // the line below reads 'plough if last day possible OR if not raining and pass a probability test
    if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
        // this bit sets up the events to occur when ploughing occurs
        // The trace below is for debugging checks
        a_field->Trace( autumn_plough );
        // Record the event for this field, so other objects can find out it has happened
        a_field->SetLastTreatment( autumn_plough );
        // Apply mortality to the insects present, in this case 90%. This only affects the general insect model, any ALMaSS model species need to take their specific action.
        a_field->InsectMortality( 0.1 );
        // Reduce the vegetation, in this case to zero
        a_field->ZeroVeg();
        // If the field has a field margin, then do all this to the field margin too. In events that don't occur on an unsprayed margin, e.g. insecticide, then is part is skipped.
        int pref=a_field->GetUnsprayedMarginPolyRef();
        if (pref!=-1){
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um=g_landscape_p->SupplyLEPointer(pref);
            um->SetLastTreatment( autumn_plough );
            um->InsectMortality( 0.1 );
            um->ZeroVeg();
        }
        return true;      // completed
    }
    return false;       // not completed
}

bool Farm::AutumnRoll ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a roll event in the autumn on a_field.

Definition at line 181 of file farmfuncs.cpp.

References autumn_roll, DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( autumn_roll );
    a_field->SetLastTreatment( autumn_roll );
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( autumn_roll );
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

bool Farm::AutumnSow ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a sowing event in the autumn on a_field.

Definition at line 204 of file farmfuncs.cpp.

References autumn_sow, DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::GetVegType(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), LE::SetLastTreatment(), sow, Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( autumn_sow );
    a_field->SetLastTreatment( autumn_sow );
    a_field->SetGrowthPhase( sow );
    a_field->SetLastSownVeg(a_field->GetVegType());
    // Reduce the vegetation to zero
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( autumn_sow );
      um->SetGrowthPhase( sow );
      um->ZeroVeg();
      um->SetLastSownVeg(um->GetVegType());
    }
    return true;
  }
  return false;
}

bool Farm::BurnStrawStubble ( LE *  a_field, double  a_user, int  a_days  )

virtual

Burn stubble on a_field.

Definition at line 1864 of file farmfuncs.cpp.

References burn_straw_stubble, Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::ReduceVeg(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(),3)>0.1))
  {
    return true;
  }
  if ( (0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1)
          && DoIt(DO_IT_PROB)))
  {
    a_field->Trace( burn_straw_stubble );
    a_field->SetLastTreatment( burn_straw_stubble );
    a_field->InsectMortality( 0.4 );
    a_field->ReduceVeg( 0.2 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( burn_straw_stubble );
      um->ReduceVeg( 0.2 );
      um->InsectMortality( 0.4 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::CattleIsOut ( LE *  a_field, double  a_user, int  a_days, int  a_max  )

virtual

Generate a 'cattle_out' event for every day the cattle are on a_field.

This is the main grazing method and as such is called by all grazed field management plans each day the cattle are out.

Definition at line 1602 of file farmfuncs.cpp.

References cattle_out, Calendar::DayInYear(), g_date, LE::GetUnsprayedMarginPolyRef(), LE::GetVegBiomass(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), LE::Trace(), and CfgFloat::value().

{
    double biomass = a_field->GetVegBiomass();
    if (biomass > 100.0)
    {
        a_field->SetLastTreatment(cattle_out);
        a_field->Trace(cattle_out);
        // Reduce the vegetation because of grazing
        //double h=a_field->GetVegHeight();
        //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
        //a_field->ReduceVeg_Extended( reduc );
        a_field->GrazeVegetation( l_farm_cattle_veg_reduce.value( ), false );
        int pref = a_field->GetUnsprayedMarginPolyRef();
        if (pref != -1)
        {
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->SetLastTreatment(cattle_out);
            um->GrazeVegetation( l_farm_cattle_veg_reduce.value( ), false );
        }
    }
    int d1 = g_date->DayInYear(10, 9);
    if (d1 > a_max) d1 = a_max;
    if ((((g_date->DayInYear() > d1) && (10 >= a_days)) && DoIt(10)) || (0 >= a_days))
    {
        a_field->ToggleCattleGrazing();
        int pref = a_field->GetUnsprayedMarginPolyRef();
        if (pref != -1){
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->ToggleCattleGrazing();
        }
        return true;
    }
    return false;
}

bool Farm::CattleIsOutLow ( LE *  a_field, double  a_user, int  a_days, int  a_max  )

virtual

Generate a 'cattle_out_low' event for every day the cattle are on a_field.

Definition at line 1646 of file farmfuncs.cpp.

References cattle_out_low, Calendar::DayInYear(), g_date, LE::GetUnsprayedMarginPolyRef(), LE::GetVegBiomass(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce2, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), LE::Trace(), and CfgFloat::value().

{

    // Generate a 'cattle_in_out' event for every day the cattle is on the
    // field.
    double biomass = a_field->GetVegBiomass();
    if (biomass > 100.0)
    {
        a_field->SetLastTreatment(cattle_out_low);
        a_field->Trace(cattle_out_low);
        // Reduce the vegetation because of grazing
        //double h=a_field->GetVegHeight();
        //double reduc = 1-(l_farm_cattle_veg_reduce2.value()*((h-15)/15));
        //a_field->ReduceVeg_Extended( reduc );
        a_field->GrazeVegetation( l_farm_cattle_veg_reduce2.value( ), false );
        int pref = a_field->GetUnsprayedMarginPolyRef();
        if (pref != -1)
        {
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->SetLastTreatment(cattle_out_low);
            um->GrazeVegetation( l_farm_cattle_veg_reduce2.value( ), false );
        }
    }
    int d1 = g_date->DayInYear(10, 9);
    if (d1 > a_max) d1 = a_max;
    if ((((g_date->DayInYear() > d1) && (10 >= a_days)) && DoIt(10)) || (0 >= a_days))
    {
        a_field->ToggleCattleGrazing();
        int pref = a_field->GetUnsprayedMarginPolyRef();
        if (pref != -1){
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->ToggleCattleGrazing();
        }
        return true;
    }
    return false;
}

bool Farm::CattleOut ( LE *  a_field, double  a_user, int  a_days  )

virtual

Start a grazing event on a_field today.

This is the main initiate grazing method and as such is called by all grazed field management plans at the moment cattle are put out.

Definition at line 1538 of file farmfuncs.cpp.

References cattle_out, DO_IT_PROB, LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), LE::Trace(), and CfgFloat::value().

{
    if ((0 >= a_days) || DoIt( DO_IT_PROB ))
    {
        a_field->ToggleCattleGrazing();
        a_field->Trace( cattle_out );
        a_field->SetLastTreatment( cattle_out );
        // Reduce the vegetation because of grazing
        //double h=a_field->GetVegHeight();
        //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
        //a_field->ReduceVeg_Extended( reduc );
        a_field->GrazeVegetation( l_farm_cattle_veg_reduce.value(), false );
        int pref = a_field->GetUnsprayedMarginPolyRef();
        if (pref != -1)
        {
            // Must have an unsprayed margin so need to pass the information on to it
            // This happens if all arable fields are given unsprayed margins - they have no effect on grass unless it is sprayed with pesticides
            LE* um = g_landscape_p->SupplyLEPointer( pref );
            um->ToggleCattleGrazing();
            um->SetLastTreatment( cattle_out );
            um->GrazeVegetation( l_farm_cattle_veg_reduce.value( ), false );
        }
        return true;
    }
    return false;
}

bool Farm::CattleOutLowGrazing ( LE *  a_field, double  a_user, int  a_days  )

virtual

Start a extensive grazing event on a_field today.

Definition at line 1572 of file farmfuncs.cpp.

References cattle_out_low, DO_IT_PROB, LE::GetUnsprayedMarginPolyRef(), LE::GrazeVegetation(), l_farm_cattle_veg_reduce2, LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::ToggleCattleGrazing(), LE::Trace(), and CfgFloat::value().

{

  if ( (0 >= a_days)||  DoIt(DO_IT_PROB)) {
          a_field->ToggleCattleGrazing();
    a_field->Trace( cattle_out_low );
    a_field->SetLastTreatment( cattle_out_low );
    // Reduce the vegetation because of grazing
    //double h=a_field->GetVegHeight();
    //double reduc = 1-(l_farm_cattle_veg_reduce.value()*((h-15)/15));
    //a_field->ReduceVeg_Extended( reduc );
    a_field->GrazeVegetation( l_farm_cattle_veg_reduce2.value( ), false );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
         // This happens if all arable fields are given unsprayed margins - they have no effect on grass unless it is sprayed with pesticides
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->ToggleCattleGrazing();
      um->SetLastTreatment( cattle_out_low );
      um->GrazeVegetation( l_farm_cattle_veg_reduce2.value( ), false );
    }
    return true;
  }
  return false;
}

void Farm::Centroids

(

)

Finds farm's centroids - x and y.

Calculate a farm's centroid as an average of its fields' centroids.

Definition at line 4857 of file farm.cpp.

References m_farm_centroidx, m_farm_centroidy, and m_fields.

Referenced by FarmManager::FindNeighbours().

                    {
    int sum_centroidx = 0;
    int sum_centroidy = 0;
    int no_fields = (int)m_fields.size();
    for (int i=0; i<no_fields; i++){
        sum_centroidx += m_fields[i]->GetCentroidX();
        sum_centroidy += m_fields[i]->GetCentroidY();
    }
    m_farm_centroidx = sum_centroidx/no_fields;
    m_farm_centroidy = sum_centroidy/no_fields;
}

void Farm::CheckRotationManagementLoop ( FarmEvent *  ev )

protected

Rotation error check function

Definition at line 641 of file farm.cpp.

References Calendar::Date(), g_date, g_msg, LE::GetMgtLoopDetectCount(), LE::GetMgtLoopDetectDate(), FarmEvent::m_field, LE::SetMgtLoopDetectCount(), MapErrorMsg::Warn(), and WARN_BUG.

                                                       {
  if ( ev->m_field->GetMgtLoopDetectDate() == g_date->Date() ) {
    // The last crop managment plan stopped on the same day as
    // it was started.

    // Bump loop counter.
    ev->m_field->SetMgtLoopDetectCount( ev->m_field->GetMgtLoopDetectCount() + 1 );

    if ( ev->m_field->GetMgtLoopDetectCount() > ( long )( m_rotation.size() + 2 ) ) {
      // We have a loop.
      char errornum[ 20 ];
      sprintf( errornum, "%d", m_farmtype );
      g_msg->Warn( WARN_BUG, "Rotation management loop detected in farmtype ", errornum );
      exit( 1 );
    }
  } else {
    ev->m_field->SetMgtLoopDetectCount( 0 );
  }
}

bool Farm::CutOrch ( LE *  a_field, double  a_user, int  a_days  )

virtual

Cut vegetation on orchard crop. //based on cut to silage - values from cutting function of orchard.

Definition at line 1988 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), harvest1, LE::InsectMortality(), mow, Weather::Raining(), LE::ReduceVeg_Extended(), LE::SetGrowthPhase(), LE::SetLastTreatment(), LE::SetMownDecay(), LE::SetVegParameters(), Landscape::SupplyLEPointer(), LE::Trace(), and CfgFloat::value().

{

    if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( mow ); //? tried to do=mow...
    a_field->SetLastTreatment( mow );
    a_field->SetMownDecay( 12 ); // 12 days of not suitable
    //ReduceVeg_Extended( 0.2 );
    //a_field->InsectMortality( 0.4 );
    a_field->SetGrowthPhase( harvest1 );
    //m_DateCut = a_today; ?? what to substitute it with?

    a_field->SetVegParameters( l_el_o_cut_height.value(), l_el_o_cut_total.value(), l_el_o_cut_green.value(), 0 ); //is 0 ok for weed biomass
  
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( mow );
      um->ReduceVeg_Extended( 0.2 ); //are these values ok?
      um->InsectMortality( 0.4 );
      um->SetVegParameters( l_el_o_cut_height.value(), l_el_o_cut_total.value(), l_el_o_cut_green.value(), 0 );
    }
    return true;
  }
  return false;
}

bool Farm::CutToHay ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out hay cutting on a_field.

Definition at line 1897 of file farmfuncs.cpp.

References cut_to_hay, Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), harvest1, LE::InsectMortality(), LE::ReduceVeg_Extended(), LE::SetGrowthPhase(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::SetVegHeight(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1)
          && DoIt(DO_IT_PROB)))
  {
    a_field->Trace( cut_to_hay );
    a_field->SetLastTreatment( cut_to_hay );
    a_field->SetGrowthPhase(harvest1);
    a_field->InsectMortality(0.4);
    a_field->ReduceVeg_Extended( 0.2 );
    a_field->SetVegHeight(10);
    //a_field->ResetDigestability();
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( cut_to_hay );
      um->SetGrowthPhase(harvest1);
      um->InsectMortality(0.4);
      um->ReduceVeg_Extended( 0.2 );
      um->SetVegHeight( 10);
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::CutToSilage ( LE *  a_field, double  a_user, int  a_days  )

virtual

Cut vegetation for silage on a_field.

Definition at line 1957 of file farmfuncs.cpp.

References cut_to_silage, DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::ReduceVeg_Extended(), LE::ResetDigestability(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::SetVegHeight(), Landscape::SupplyLEPointer(), and LE::Trace().

{

    if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( cut_to_silage );
    a_field->SetLastTreatment( cut_to_silage );
    a_field->ReduceVeg_Extended( 0.2 );
    a_field->InsectMortality( 0.4 );
    a_field->SetVegHeight( 10 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    //a_field->ResetDigestability();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( cut_to_silage );
      um->ReduceVeg_Extended( 0.2 );
      um->InsectMortality( 0.4 );
      um->SetVegHeight( 10 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      um->ResetDigestability();
    }
    return true;
  }
  return false;
}

bool Farm::CutWeeds ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out weed topping on a_field.

Definition at line 1931 of file farmfuncs.cpp.

References cut_weeds, DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::ReduceVeg(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB)))
  {
    a_field->Trace( cut_weeds );
    a_field->SetLastTreatment( cut_weeds );
    a_field->ReduceVeg( 0.8 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( cut_weeds );
      um->ReduceVeg( 0.8 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::DeepPlough ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a deep ploughing event on a_field.

Definition at line 257 of file farmfuncs.cpp.

References deep_ploughing, DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( deep_ploughing );
    a_field->SetLastTreatment( deep_ploughing );
   // Apply 90% mortality to the insects
    a_field->InsectMortality( 0.1 );
   // Reduce the vegetation to zero
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( deep_ploughing );
      um->InsectMortality( 0.1 );
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

bool Farm::DoIt

(

int

a_probability

)

Return chance out of 100.

Definition at line 610 of file farm.cpp.

                                   {
  return ( a_probability > ( int )( rand() % 100 ) );
}

bool Farm::FA_AmmoniumSulphate ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply ammonium supahte to a_field owned by an stock farmer.

Definition at line 684 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_ammoniumsulphate, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fa_ammoniumsulphate );
    a_field->SetLastTreatment( fa_ammoniumsulphate );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_ammoniumsulphate );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_GreenManure ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread green manure on a_field owned by an stock farmer.

Definition at line 734 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_greenmanure, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fa_greenmanure );
    a_field->SetLastTreatment( fa_greenmanure );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_greenmanure );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_Manure ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread manure on a_field owned by an stock farmer.

Definition at line 708 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_manure, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                                 !g_weather->Raining() && DoIt(DO_IT_PROB)))
{
    a_field->Trace( fa_manure );
    a_field->SetLastTreatment( fa_manure );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_manure );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_NPK ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply NPK fertilizer to a_field owned by an stock farmer.

Definition at line 611 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_npk, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fa_npk );
    a_field->SetLastTreatment( fa_npk );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_npk );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_PK ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply PK fertilizer to a_field owned by an stock farmer.

Definition at line 635 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_pk, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fa_pk );
    a_field->SetLastTreatment( fa_pk );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_pk );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_Sludge ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread sewege sludge on a_field owned by an stock farmer.

Definition at line 758 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_sludge, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                                 !g_weather->Raining() && DoIt(DO_IT_PROB)))
{
    a_field->Trace( fa_sludge );
    a_field->SetLastTreatment( fa_sludge );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_sludge );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FA_Slurry ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spready slurry on a_field owned by an stock farmer.

Definition at line 659 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fa_slurry, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                        !g_weather->Raining() && DoIt(DO_IT_PROB)))
{
    a_field->Trace( fa_slurry );
    a_field->SetLastTreatment( fa_slurry );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fa_slurry );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_GreenManure ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread green manure on a_field owned by an arable farmer.

Definition at line 561 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_greenmanure, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_greenmanure );
    a_field->SetLastTreatment( fp_greenmanure );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fp_greenmanure );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_LiquidNH3 ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply liquid ammonia fertilizer to a_field owned by an arable farmer.

Definition at line 462 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_liquidNH3, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_liquidNH3 );
    a_field->SetLastTreatment( fp_liquidNH3 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment(fp_liquidNH3);
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_ManganeseSulphate ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply Manganse Sulphate to a_field owned by an arable farmer.

Definition at line 512 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_manganesesulphate, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_manganesesulphate );
    a_field->SetLastTreatment( fp_manganesesulphate );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fp_manganesesulphate );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_Manure ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread manure on a_field owned by an arable farmer.

Definition at line 536 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_manure, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                        !g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_manure );
    a_field->SetLastTreatment( fp_manure );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fp_manure );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_NPK ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply NPK fertilizer, on a_field owned by an arable farmer.

Definition at line 414 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_npk, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_npk );
    a_field->SetLastTreatment( fp_npk );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment(fp_npk);
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_NPKS ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply NPKS fertilizer, on a_field owned by an arable farmer.

Definition at line 387 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_npks, g_weather, LE::GetUnsprayedMarginPolyRef(), harvest1, LE::InsectMortality(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), sleep_all_day, Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_npks );
    a_field->SetLastTreatment( fp_npks );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
if (pref!=-1){
  // Must have an unsprayed margin so need to pass the information on to it
  LE* um=g_landscape_p->SupplyLEPointer(pref);
  um->SetLastTreatment(sleep_all_day);
  um->SetGrowthPhase( harvest1 );
  um->InsectMortality( 0.4 );
  um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
}

    return true;
  }
  return false;
}

bool Farm::FP_PK ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply PK fertilizer, on a_field owned by an arable farmer.

Definition at line 438 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_pk, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( fp_pk );
    a_field->SetLastTreatment( fp_pk );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment(fp_pk);
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_Sludge ( LE *  a_field, double  a_user, int  a_days  )

virtual

Spread sewege on a_field owned by an arable farmer.

Definition at line 585 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_sludge, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{
  //
  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                                 !g_weather->Raining() && DoIt(DO_IT_PROB)))
{
    a_field->Trace( fp_sludge );
    a_field->SetLastTreatment( fp_sludge );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( fp_sludge );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FP_Slurry ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply slurry to a_field owned by an arable farmer.

Definition at line 486 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fp_slurry, g_weather, Weather::GetTemp(), LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || ((g_weather->GetTemp()>0)&&
                                 !g_weather->Raining() && DoIt(DO_IT_PROB)))
{
    a_field->Trace( fp_slurry );
    a_field->SetLastTreatment( fp_slurry );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment(fp_slurry);
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::FungicideTreat ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply fungicide to a_field.

Reimplemented in OptimisingFarm.

Definition at line 902 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, fungicide_treat, g_weather, LE::GetSignal(), Weather::GetWind(), LE_SIG_NO_FUNGICIDE, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and LE::Trace().

{

  if (0 >= a_days)
  {
        if ( ( ! a_field->GetSignal() & LE_SIG_NO_FUNGICIDE )) 
        {
      a_field->Trace( fungicide_treat );
      a_field->SetLastTreatment( fungicide_treat );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  else if ( (g_weather->GetWind()<4.5) &&
            (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
    if ( ! (a_field->GetSignal() & LE_SIG_NO_FUNGICIDE) ) {
      a_field->Trace( fungicide_treat );
      a_field->SetLastTreatment( fungicide_treat );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

int Farm::GetArea

(

void

)

Returns the area of arable fields owned by that farm.

Definition at line 1045 of file farm.cpp.

References tole_Field.

Referenced by OptimisingFarm::ActualProfit(), AssignPermanentCrop(), FarmManager::DumpFarmAreas(), and OptimisingFarm::Match_crop_to_field().

                  {
    int area = 0;
    for (unsigned int i = 0; i < m_fields.size(); i++) {
        if (m_fields[i]->GetElementType() == tole_Field) area += (int)m_fields[i]->GetArea();
    }
    return area;
}

double Farm::GetAreaDouble

(

void

)

Returns the area of arable fields owned by that farm.

Definition at line 1064 of file farm.cpp.

References tole_Field.

Referenced by OptimisingFarm::findTotalArea(), and FarmManager::Save_diff_farm_types_areas().

                           {
    double area = 0;
    for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
        if (m_fields[i]->GetElementType()==tole_Field) area += m_fields[i]->GetArea();
    }
    return area;
}

int Farm::GetAreaOpenFields

(

int

a_openness

)

Returns the area of the fields above an openness of a_openness.

Returns the area of fields owned by that farm with an openness above a_openness

Definition at line 1083 of file farm.cpp.

{
    int area = 0;
    for (unsigned int i = 0; i < m_fields.size(); i++) {
        if (m_fields[i]->GetOpenness() > a_openness) area += int(m_fields[i]->GetArea());
    }
    return area;
}

APoint Farm::GetCentroids ( )

inline

Definition at line 810 of file farm.h.

{ APoint pt; pt.m_x = m_farm_centroidx; pt.m_y = m_farm_centroidy; return pt; }

TTypesOfVegetation Farm::GetCrop ( int  a_index )

inline

Definition at line 816 of file farm.h.

                                          {
      return m_rotation[a_index];
  }

int Farm::GetFarmNumber ( void  )

inline

Definition at line 698 of file farm.h.

Referenced by FarmManager::ConnectFarm(), FarmManager::FarmManagement(), FarmManager::FindFarmWithOpenness(), FarmManager::FindFarmWithRandom(), FarmManager::FindOpennessFarm(), and InvIntPartition().

{ return m_farm_num; }

int Farm::GetFirstCropIndex ( TTypesOfLandscapeElement  a_type )

protectedvirtual

Gets the first crop for the farm.

This method also synchronises farm rotations either within or between farms if needed. This is useful to try simple what if scenarios.

Definition at line 1099 of file farm.cpp.

References g_farm_fixed_rotation_enable, g_farm_fixed_rotation_farms_async, and CfgBool::value().

                                                        {
  // If g_farm_fixed_rotation, then determine the first
  // crop number in the rotation rotation number.
  if ( g_farm_fixed_rotation_enable.value() ) {

    if ( !g_farm_fixed_rotation_farms_async.value() ) {
      // We are running all the farms synchronized, so
      // simply set the first crop to run on all farm fields.
      return 0;
    }

    // Each farm runs its fields sync'ed but independently from
    // the other farmers.

    // Determine if this farm has selected its own start index
    // and set it if not. m_rotation_sync_index is initialized
    // to -1 by the Farm::Farm() constructor.
    if ( -1 == m_rotation_sync_index ) {
      m_rotation_sync_index = (int) (rand() % m_rotation.size());
    }
    // Return farm localized rotation index.
    return m_rotation_sync_index;
  }

  // Not synchronised, but we want to follow our rotation sequence, so check
  // if we have started this process, if not set the sync value.
  // afterwards just increment this.
  if ( -1 == m_rotation_sync_index ) {
      m_rotation_sync_index = (int) (rand() % m_rotation.size());
  }
  else m_rotation_sync_index = (int) ((m_rotation_sync_index+1) % m_rotation.size());
  return m_rotation_sync_index;
}

int Farm::GetFirstDate ( TTypesOfVegetation  a_tov )

protected

Gets the start date for a crop type.

Definition at line 1288 of file farm.cpp.

References tov_AgroChemIndustryCereal, tov_BroadBeans, tov_Carrots, tov_CloverGrassGrazed1, tov_CloverGrassGrazed2, tov_FieldPeas, tov_FieldPeasSilage, tov_FodderBeet, tov_FodderGrass, tov_Maize, tov_MaizeSilage, tov_Oats, tov_OBarleyPeaCloverGrass, tov_OCarrots, tov_OCloverGrassGrazed1, tov_OCloverGrassGrazed2, tov_OCloverGrassSilage1, tov_OFieldPeas, tov_OFirstYearDanger, tov_OFodderBeet, tov_OGrazingPigs, tov_OMaizeSilage, tov_OOats, tov_OPermanentGrassGrazed, tov_OPotatoes, tov_OrchardCrop, tov_OSBarleySilage, tov_OSpringBarley, tov_OSpringBarleyExt, tov_OSpringBarleyPigs, tov_OTriticale, tov_OWinterBarley, tov_OWinterBarleyExt, tov_OWinterRape, tov_OWinterRye, tov_OWinterWheat, tov_OWinterWheatUndersown, tov_OWinterWheatUndersownExt, tov_PermanentGrassGrazed, tov_PermanentGrassLowYield, tov_PermanentGrassTussocky, tov_PermanentSetaside, tov_Potatoes, tov_SeedGrass1, tov_SeedGrass2, tov_Setaside, tov_SpringBarley, tov_SpringBarleyCloverGrass, tov_SpringBarleyPTreatment, tov_SpringBarleySeed, tov_SpringBarleySilage, tov_SpringBarleySKManagement, tov_SpringBarleySpr, tov_SpringBarleyStrigling, tov_SpringBarleyStriglingCulm, tov_SpringBarleyStriglingSingle, tov_SpringRape, tov_SugarBeet, tov_Triticale, tov_WinterBarley, tov_WinterRape, tov_WinterRye, tov_WinterWheat, tov_WinterWheatStrigling, tov_WinterWheatStriglingCulm, tov_WinterWheatStriglingSingle, tov_WWheatPControl, tov_WWheatPToxicControl, tov_WWheatPTreatment, and tov_YoungForest.

                                                  {
  switch ( a_tov2 ) {
    case tov_Carrots:
      return m_carrots->GetFirstDate();
    case tov_BroadBeans:
        return m_broadbeans->GetFirstDate( );
    case tov_FodderGrass:
      return m_foddergrass->GetFirstDate();
    case tov_CloverGrassGrazed1:
      return m_CGG1->GetFirstDate();
    case tov_CloverGrassGrazed2:
      return m_CGG2->GetFirstDate();
    case tov_FieldPeas:
      return m_fieldpeas->GetFirstDate();
    case tov_FieldPeasSilage:
      return m_fieldpeassilage->GetFirstDate();
    case tov_FodderBeet:
        return m_fodderbeet->GetFirstDate();
    case tov_SugarBeet:
        return m_sugarbeet->GetFirstDate();
    case tov_OFodderBeet:
        return m_ofodderbeet->GetFirstDate();
    case tov_Maize:
      return m_maize->GetFirstDate();
    case tov_OMaizeSilage:
      return m_omaizesilage->GetFirstDate();
    case tov_MaizeSilage:
      return m_maizesilage->GetFirstDate();
    case tov_OBarleyPeaCloverGrass:
      return m_OBarleyPCG->GetFirstDate();
    case tov_OCarrots:
      return m_ocarrots->GetFirstDate();
    case tov_OCloverGrassGrazed1:
      return m_OCGG1->GetFirstDate();
    case tov_OCloverGrassGrazed2:
      return m_OCGG2->GetFirstDate();
    case tov_OCloverGrassSilage1:
      return m_OCGS1->GetFirstDate();
    case tov_OFieldPeas:
      return m_ofieldpeas->GetFirstDate();
    case tov_OFirstYearDanger:
      return m_ofirstyeardanger->GetFirstDate();
    case tov_OGrazingPigs:
      return m_ograzingpigs->GetFirstDate();
    case tov_OrchardCrop:
      return m_orchardcrop->GetFirstDate();
    case tov_OOats:
      return m_ooats->GetFirstDate();
    case tov_Oats:
      return m_oats->GetFirstDate();
    case tov_OPermanentGrassGrazed:
      return m_opermgrassgrazed->GetFirstDate();
    case tov_OPotatoes:
      return m_opotatoes->GetFirstDate();
    case tov_OSpringBarley:
      return m_ospringbarley->GetFirstDate();
    case tov_OSBarleySilage:
      return m_osbarleysilage->GetFirstDate();
    case tov_OSpringBarleyExt:
      return m_ospringbarleyext->GetFirstDate();
    case tov_OSpringBarleyPigs:
      return m_ospringbarleypigs->GetFirstDate();
    case tov_OWinterBarley:
      return m_owinterbarley->GetFirstDate();
    case tov_OWinterBarleyExt:
      return m_owinterbarleyext->GetFirstDate();
    case tov_OWinterRape:
      return m_owinterrape->GetFirstDate();
    case tov_OWinterRye:
      return m_owinterrye->GetFirstDate();
    case tov_OWinterWheatUndersown:
        return m_owinterwheatundersown->GetFirstDate();
    case tov_OWinterWheat:
        return m_owinterwheat->GetFirstDate();
    case tov_OWinterWheatUndersownExt:
      return m_owinterwheatundersownext->GetFirstDate();
    case tov_PermanentGrassGrazed:
      return m_permgrassgrazed->GetFirstDate();
    case tov_PermanentGrassLowYield:
      return m_permgrasslowyield->GetFirstDate();
    case tov_PermanentGrassTussocky:  // Only used for tole_PermPastureTussocky
      return m_permgrasstussocky->GetFirstDate();
    case tov_PermanentSetaside:
      return m_permanentsetaside->GetFirstDate();
    case tov_Potatoes:
      return m_potatoes->GetFirstDate();
    case tov_SeedGrass1:
      return m_seedgrass1->GetFirstDate();
    case tov_SeedGrass2:
      return m_seedgrass2->GetFirstDate();
    case tov_Setaside:
      return m_setaside->GetFirstDate();
    case tov_SpringBarley:
        return m_springbarley->GetFirstDate();
    case tov_SpringBarleySpr:
        return m_springbarleyspr->GetFirstDate();
    case tov_SpringBarleyPTreatment:
      return m_springbarleyptreatment->GetFirstDate();
    case tov_SpringBarleySKManagement:
      return m_springbarleyskmanagement->GetFirstDate();
    case tov_SpringBarleyCloverGrass:
      return m_sbarleyclovergrass->GetFirstDate();
    case tov_SpringBarleySeed:
      return m_springbarleyseed->GetFirstDate();
    case tov_SpringBarleySilage:
      return m_springbarleysilage->GetFirstDate();
    case tov_SpringBarleyStrigling:
      return m_springbarleystrigling->GetFirstDate();
    case tov_SpringBarleyStriglingSingle:
      return m_springbarleystriglingsingle->GetFirstDate();
    case tov_SpringBarleyStriglingCulm:
      return m_springbarleystriglingculm->GetFirstDate();
    case tov_SpringRape:
      return m_springrape->GetFirstDate();
    case tov_Triticale:
        return m_triticale->GetFirstDate();
    case tov_OTriticale:
        return m_otriticale->GetFirstDate();
    case tov_WinterBarley:
      return m_winterbarley->GetFirstDate();
    case tov_WinterRape:
      return m_winterrape->GetFirstDate();
    case tov_WinterRye:
      return m_winterrye->GetFirstDate();
    case tov_WinterWheat:
      return m_winterwheat->GetFirstDate();
    case tov_WinterWheatStrigling:
      return m_winterwheatstrigling->GetFirstDate();
    case tov_WinterWheatStriglingSingle:
      return m_winterwheatstriglingsingle->GetFirstDate();
    case tov_WinterWheatStriglingCulm:
      return m_winterwheatstriglingculm->GetFirstDate();
    case tov_WWheatPControl:
      return m_wwheatpcontrol->GetFirstDate();
    case tov_WWheatPToxicControl:
      return m_wwheatptoxiccontrol->GetFirstDate();
    case tov_WWheatPTreatment:
      return m_wwheatptreatment->GetFirstDate();
    case tov_AgroChemIndustryCereal:
      return m_agrochemindustrycereal->GetFirstDate();
    case tov_YoungForest:
      return m_youngforest->GetFirstDate();
    default:
      return 0;
  }
}

int Farm::GetIntensity ( void  )

inline

Definition at line 809 of file farm.h.

{ return m_intensity; }

int Farm::GetMaxOpenness ( )

inline

Returns the maximum openness score of the fields.

Definition at line 718 of file farm.h.

Referenced by FarmManager::CheckOpenness(), FarmManager::FindClosestFarmOpenness(), FarmManager::FindClosestFarmOpennessProb(), FarmManager::FindClosestFarmOpennessProbNearRoostIsBest(), FarmManager::FindClosestFarmOpennessProbSmallIsBest(), FarmManager::FindFarmWithOpenness(), and FarmManager::FindOpennessFarm().

    {
        int op = 0;
        for (int i = 0; i < m_fields.size(); i++)
        {
            int openness = m_fields[i]->GetOpenness();
            if (openness > op) op = openness;
        }
        return op;
    }

TTypesOfVegetation Farm::GetNextCrop ( int  a_index )

inline

Definition at line 819 of file farm.h.

                                              {
      int ind = a_index + 1;
      if (ind >= (int)m_rotation.size()) ind = ind - (int)m_rotation.size();
      return m_rotation[ind];
  }

int Farm::GetNextCropIndex ( int  a_rot_index )

protectedvirtual

Returns the next crop in the rotation.

Also provides the possibility of over-riding rotations using configuration settings

Definition at line 1141 of file farm.cpp.

References g_farm_enable_crop_rotation, and CfgBool::value().

                                            {
  if ( !g_farm_enable_crop_rotation.value() ) {
    // Rotation not enabled.
    return a_rot_index;
  }

  if ( a_rot_index == -1 )
    return -1;

  if ( ( unsigned int ) ( ++a_rot_index ) == m_rotation.size() ) //AM comm: the last crop was the last element of the vector  - so go back to the element zero; otherwise just add 1 to the index
    a_rot_index = 0;

  return a_rot_index;
}

int Farm::GetNextCropStartDate ( LE *  a_field, TTypesOfVegetation &  a_curr_veg  )

protected

Returns the start date of the next crop in the rotation.

Definition at line 666 of file farm.cpp.

References g_farm_fixed_crop_enable, LE::GetRotIndex(), and CfgBool::value().

                                                                              {
  TTypesOfVegetation l_tov2;

  if ( a_field->GetRotIndex() < 0 || g_farm_fixed_crop_enable.value() //|| g_farm_test_crop.value()
                                                                      ) {
    l_tov2 = a_curr_veg; // don't do it if no rotation
  } else {
    l_tov2 = m_rotation[ GetNextCropIndex( a_field->GetRotIndex() ) ];
  }
  a_curr_veg = l_tov2;
  return GetFirstDate( l_tov2 );
}

int Farm::GetNoFields ( )

inline

Returns the number of the fields owned.

Definition at line 710 of file farm.h.

{ return (int) m_fields.size(); }

int Farm::GetNoOpenFields

(

int

a_openness

)

Returns the number of the fields above an openness of a_openness.

Returns the number of fields owned by that farm with an openness above a_openness

Definition at line 1073 of file farm.cpp.

{
    int num = 0;
    for (unsigned int i = 0; i < m_fields.size(); i++) {
        if (m_fields[i]->GetOpenness() > a_openness) num++;
    }
    return num;
}

TTypesOfVegetation Farm::GetPreviousCrop ( int  a_index )

inline

Definition at line 811 of file farm.h.

Referenced by Field::GetPreviousCrop().

                                                  {
      int ind = a_index - 1;
      if (ind < 0) ind = (int)m_rotation.size() - 1;
      return m_rotation[ind];
  }

int Farm::GetTotalArea

(

void

)

Returns the area of all fields owned by that farm.

Definition at line 1054 of file farm.cpp.

                       {
    int area = 0;
    for (unsigned int i = 0; i < m_fields.size(); i++) 
    {
        area += (int)m_fields[i]->GetArea();
    }
    return area;
}

TTypesOfFarm Farm::GetType ( void  )

inline

Definition at line 803 of file farm.h.

Referenced by FarmManager::ActualProfit(), FarmManager::ChooseDecisionMode_for_farms(), FarmManager::CropDistribution(), FarmManager::DistributeFarmerTypes(), FarmManager::FarmManagement(), FarmManager::FindNeighbours(), FarmManager::InitFarms(), FarmManager::PrintDecModes_counts(), FarmManager::PrintNeighbours(), FarmManager::PrintOutput(), FarmManager::Save_diff_farm_types_areas(), FarmManager::Save_last_years_crops_for_farms(), and FarmManager::Switch_rotation().

{ return m_farmtype; }

APoint Farm::GetValidCoords ( )

inline

Returns the valid coordinates of the first field owned by a farm.

Definition at line 716 of file farm.h.

{ APoint pt;  pt.m_x = m_fields[0]->GetValidX(); pt.m_y = m_fields[0]->GetValidY(); return pt; }

bool Farm::Glyphosate ( LE *  a_field, double  a_user, int  a_days  )

virtual

Definition at line 2102 of file farmfuncs.cpp.

References glyphosate, LE::InsectMortality(), LE::ReduceVeg_Extended(), LE::SetLastTreatment(), and LE::Trace().

{
  // Will always do this at the first chance
  a_field->Trace( glyphosate );
  a_field->SetLastTreatment( glyphosate );
  a_field->InsectMortality( 0.5 );
  a_field->ReduceVeg_Extended( 0.05 );
  return true;
}

bool Farm::GrowthRegulator ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply growth regulator to a_field.

Definition at line 873 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetSignal(), Weather::GetWind(), growth_regulator, LE_SIG_NO_GROWTH_REG, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and LE::Trace().

{

  if (0 >= a_days)
  {
    if ( (!g_weather->Raining()) && (g_weather->GetWind()<4.5) &&
        (!(a_field->GetSignal() & LE_SIG_NO_GROWTH_REG) )) {
      a_field->Trace( growth_regulator );
      a_field->SetLastTreatment( growth_regulator );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  else if ( (g_weather->GetWind()<4.5) &&
           (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
    if ( ! (a_field->GetSignal() & LE_SIG_NO_GROWTH_REG) ) {
      a_field->Trace( growth_regulator );
      a_field->SetLastTreatment( growth_regulator );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

void Farm::HandleEvents ( void  )

protectedvirtual

If there are events to carry out do this, and perhaps start a new crop.

Call the management plan for the current crop and it this return done=true starts the next management.

Sets the new index to the rotation.

Save the new veg type as the LE vegetation type

Reimplemented in OptimisingFarm.

Definition at line 684 of file farm.cpp.

References LE::BumpRunNum(), Calendar::Date(), g_date, g_farm_fixed_crop_enable, g_farm_fixed_crop_type, g_letype, LE::GetRotIndex(), LE::GetRunNum(), LE::GetVegType(), LowPriPair< ELEMTYPE >::m_element, FarmEvent::m_field, LowPriPair< ELEMTYPE >::m_pri, PROG_START, LE::ResetTrace(), LE::SetMgtLoopDetectDate(), LE::SetRotIndex(), LE::SetVegStore(), LE::SetVegType(), tov_Undefined, LE_TypeClass::TranslateVegTypes(), CfgInt::value(), and CfgBool::value().

                              {
  if ( m_queue.Empty() )
    return;

  LowPriPair < FarmEvent * > pair = m_queue.Bottom();
  FarmEvent * ev = pair.m_element;
  while ( pair.m_pri <= g_date->Date() ) {
    m_queue.Pop();
    if ( LeSwitch( ev ) ) {
      // This crop management plan has terminated.

      // First check for an infinite loop in the rotation scheme,
      // ie. a scenario where all crops decide not to run given
      // the date.
      CheckRotationManagementLoop( ev );

      // Outdate any remaining events for this field.
      ev->m_field->BumpRunNum();

      // Crop treatment done, select and initiate new crop if in rotation.
      TTypesOfVegetation new_veg = ev->m_field->GetVegType();

      if ( ev->m_field->GetRotIndex() >= 0 ) {
        int new_index = GetNextCropIndex( ev->m_field->GetRotIndex() );
        new_veg = m_rotation[ new_index ];
        // Running in fixed crop mode?
        if ( g_farm_fixed_crop_enable.value() ) {
          new_veg = g_letype->TranslateVegTypes( g_farm_fixed_crop_type.value() );
        }
        ev->m_field->SetRotIndex( new_index );
        ev->m_field->SetVegType(new_veg, tov_Undefined);
      }

      // Reset the event list for this field.
      ev->m_field->ResetTrace();
      // Reset event timeout counter.
      ev->m_field->SetVegStore( 0 );

      // The next bit simply determines the start date of the next crop in
      // the rotation and passes this to the start crop event.
      // The crop is responsible for raising an error if the next crop is
      // not possible or otherwise handling the problem

      // 19/5-2003: Note: This code was moved out into a dedicated
      // method of the Farm class, GetNextCropStartDate(), as precisely
      // the same piece of code needs to be run during initialization of
      // farm management.
      TTypesOfVegetation l_tov = new_veg;
      int l_nextcropstartdate = GetNextCropStartDate( ev->m_field, l_tov );

      // Create 'start' event for today and put it on the queue.
      AddNewEvent( new_veg, g_date->Date(), ev->m_field, PROG_START, ev->m_field->GetRunNum(),
           false, l_nextcropstartdate, false, l_tov );

      // Set starting date for rotation mgmt loop detection.
      ev->m_field->SetMgtLoopDetectDate( g_date->Date() );
    }

    delete ev;

    if ( m_queue.Empty() )
      return;
    pair = m_queue.Bottom();
    ev = pair.m_element;
  }
}

bool Farm::Harvest ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a harvest on a_field.

Reimplemented in OptimisingFarm.

Definition at line 1397 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, LE::GetInsectPop(), Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), harvest, harvest1, LE::InsectMortality(), LE::RecalculateBugsNStuff(), LE::ResetDigestability(), LE::SetBirdMaize(), LE::SetBirdSeed(), LE::SetGrowthPhase(), LE::SetInsectPop(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{
    //5 days good weather before
    if ((0 >= a_days) || ((g_weather->GetRainPeriod(g_date->Date(), 5) < 0.1) && DoIt(DO_IT_PROB))) {
        a_field->Trace(harvest);
        a_field->SetLastTreatment(harvest);
        a_field->SetGrowthPhase(harvest1);
        // Here we have to do a little skip to avoid too low insect populations after harvest, but a correct veg biomass
        a_field->InsectMortality(0.4);
        double insects = a_field->GetInsectPop();
        a_field->ResetDigestability();
        a_field->RecalculateBugsNStuff();
        a_field->SetInsectPop(insects);
        a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
        int pref = a_field->GetUnsprayedMarginPolyRef();
        // Are we a cereal crop? If so we need to have some spilled grain
        double someseed = 0.0;
        double somemaize = 0.0;
        if (dynamic_cast<VegElement*>(a_field)->IsMatureCereal()) {
            someseed = m_OurManager->GetSpilledGrain();
        }
        else if (dynamic_cast<VegElement*>(a_field)->IsMaize()) {
            somemaize = m_OurManager->GetSpilledMaize();
        }
        else {
            someseed = 0.0;
            somemaize = 0.0;
        }
        a_field->SetBirdSeed( someseed );
        a_field->SetBirdMaize( somemaize ); 
        if (pref != -1){
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->SetLastTreatment(harvest);
            um->SetGrowthPhase(harvest1);
            um->InsectMortality(0.4);
            um->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
            um->ResetDigestability();
            um->RecalculateBugsNStuff();
            um->SetBirdSeed( someseed ); 
            um->SetBirdMaize( somemaize );
        }
        return true;
    }
    return false;
}

bool Farm::HarvestLong ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a harvest on a_field.

Definition at line 1449 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB_LONG, EL_TRAMLINE_DECAYTIME, g_date, g_weather, LE::GetInsectPop(), Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), harvest, harvest1, LE::InsectMortality(), LE::RecalculateBugsNStuff(), LE::ResetDigestability(), LE::SetBirdMaize(), LE::SetBirdSeed(), LE::SetGrowthPhase(), LE::SetInsectPop(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

    //5 days good weather before
    if ((0 >= a_days) ||
        ((g_weather->GetRainPeriod(g_date->Date(), 5)<0.1) && DoIt(DO_IT_PROB_LONG))
        ) {
        a_field->Trace(harvest);
        a_field->SetLastTreatment(harvest);
        a_field->SetGrowthPhase(harvest1);
        // Here we have to do a little skip to avoid too low insect populations after harvest, but a correct veg biomass
        a_field->InsectMortality(0.4);
        double insects = a_field->GetInsectPop();
        a_field->ResetDigestability();
        a_field->RecalculateBugsNStuff();
        a_field->SetInsectPop(insects);
        a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
        int pref = a_field->GetUnsprayedMarginPolyRef();
        double someseed = 0.0;  //No bird seed or maize forage on sugar beet (which is currently (March 2015) the only crop using HarvestLong.
        a_field->SetBirdSeed( someseed );
        a_field->SetBirdMaize( someseed );
        if (pref != -1){
            // Must have an unsprayed margin so need to pass the information on to it
            LE* um = g_landscape_p->SupplyLEPointer(pref);
            um->SetLastTreatment(harvest);
            um->SetGrowthPhase(harvest1);
            um->InsectMortality(0.4);
            um->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
            um->ResetDigestability();
            um->RecalculateBugsNStuff();
            um->SetBirdSeed( someseed );
            um->SetBirdMaize( someseed );
        }
        return true;
    }
    return false;
}

bool Farm::HayBailing ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out hay bailing on a_field.

Definition at line 1812 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), hay_bailing, LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( hay_bailing );
    a_field->SetLastTreatment( hay_bailing );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( hay_bailing );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::HayTurning ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out hay turning on a_field.

Definition at line 1787 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), hay_turning, LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( hay_turning );
    a_field->SetLastTreatment( hay_turning );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( hay_turning );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::HerbicideTreat ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply herbicide to a_field.

Reimplemented in OptimisingFarm.

Definition at line 784 of file farmfuncs.cpp.

References DO_IT_PROB, EL_HERBICIDE_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetSignal(), Weather::GetWind(), herbicide_treat, l_farm_herbicide_kills, LE_SIG_NO_HERBICIDE, Weather::Raining(), LE::ReduceWeedBiomass(), LE::SetHerbicideDelay(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and CfgBool::value().

{

  if (0 >= a_days) // Must do this
  {
    if (((a_field->GetSignal() & LE_SIG_NO_HERBICIDE)==0 )) 
    {
      a_field->Trace( herbicide_treat );
      a_field->SetLastTreatment( herbicide_treat );
        if ( l_farm_herbicide_kills.value()) 
        {
        a_field->ReduceWeedBiomass( 0.05 );
      }
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      a_field->SetHerbicideDelay( EL_HERBICIDE_DELAYTIME );
    }
    return true;
  }
  else if ((g_weather->GetWind()<4.5) && (!g_weather->Raining()) && DoIt(DO_IT_PROB)) 
  {
      if ( !(a_field->GetSignal() & LE_SIG_NO_HERBICIDE) ) 
      {
      a_field->Trace( herbicide_treat );
      a_field->SetLastTreatment( herbicide_treat );
          if ( l_farm_herbicide_kills.value()) 
          {
        a_field->ReduceWeedBiomass( 0.05 );
      }
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      a_field->SetHerbicideDelay( EL_HERBICIDE_DELAYTIME );
    }
  return true;
  }
  return false;
}

bool Farm::HillingUp ( LE *  a_field, double  a_user, int  a_days  )

virtual

Do hilling up on a_field, probably of potatoes.

Definition at line 1318 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetUnsprayedMarginPolyRef(), hilling_up, LE::InsectMortality(), Weather::Raining(), LE::ReduceWeedBiomass(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( hilling_up );
    a_field->SetLastTreatment( hilling_up );
    a_field->InsectMortality( 0.75 );
    a_field->ReduceWeedBiomass( 0.25 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( hilling_up );
      um->ReduceWeedBiomass( 0.25 );
      um->InsectMortality( 0.75 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

void Farm::InitiateManagement ( void  )

virtual

Kicks off the farm's management.

Reimplemented in OptimisingFarm, and UserDefinedFarm.

Definition at line 1227 of file farm.cpp.

References Calendar::Date(), g_date, g_farm_fixed_crop_enable, g_farm_fixed_crop_type, g_letype, g_msg, janfirst, PROG_START, tole_Orchard, tole_PermanentSetaside, tole_PermPasture, tole_PermPastureLowYield, tole_PermPastureTussocky, tole_YoungForest, tov_OrchardCrop, tov_PermanentGrassGrazed, tov_PermanentGrassLowYield, tov_PermanentGrassTussocky, tov_PermanentSetaside, tov_Undefined, tov_YoungForest, LE_TypeClass::TranslateVegTypes(), CfgInt::value(), CfgBool::value(), and MapErrorMsg::Warn().

Referenced by UserDefinedFarm::InitiateManagement(), and OptimisingFarm::InitiateManagement().

                                    {
    for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
        int rot_index =  m_fields[ i ]->GetRotIndex();
        TTypesOfVegetation new_veg = tov_Undefined;
        // If the field has been designated as non-rotating and therefore already has its veg type, then skip it.
        if ( rot_index < -1 ) {
            // Check for any type of permanent element type with management plan.
            TTypesOfLandscapeElement ele = m_fields[ i ]->GetElementType();
            switch (ele) {
                case tole_PermPastureLowYield:
                    new_veg = tov_PermanentGrassLowYield;
                    break;
                case tole_YoungForest:
                    new_veg = tov_YoungForest;
                    break;
                case tole_PermPasture:
                    new_veg = tov_PermanentGrassGrazed;
                    break;
                case tole_PermPastureTussocky:
                    new_veg = tov_PermanentGrassTussocky;
                    break;
                case tole_PermanentSetaside:
                    new_veg = tov_PermanentSetaside;
                    break;
                case tole_Orchard:
                    new_veg = tov_OrchardCrop;
                    break;
                default:
                    if (rot_index != -4) {
                        // Error
                        g_msg->Warn("Unexpected negative value in Farm::InitiateManagement","");
                        exit(0);
                    } else new_veg = m_fields[ i ]->GetVegType();
            }
        }
        else {
            rot_index = GetFirstCropIndex( m_fields[ i ]->GetElementType() );
            new_veg = m_rotation[ rot_index ];
        }
        // Running in fixed crop mode?
        if ( g_farm_fixed_crop_enable.value() ) {
            int fv = g_farm_fixed_crop_type.value();
            new_veg = g_letype->TranslateVegTypes( fv );
        }
        m_fields[ i ]->SetVegType( new_veg, tov_Undefined );
        m_fields[ i ]->SetRotIndex( rot_index );
        m_fields[ i ]->SetGrowthPhase( janfirst );
        // Reset event timeout counter. We are now 800 days from
        // oblivion.
        long prog_start_date = g_date->Date();
        m_fields[ i ]->SetVegStore( 0 );
        TTypesOfVegetation l_tov = new_veg;
        int l_nextcropstartdate = GetNextCropStartDate( m_fields[ i ], l_tov );
        AddNewEvent( new_veg, prog_start_date, m_fields[ i ], PROG_START, 0, false, l_nextcropstartdate, true, l_tov );
    }
}

bool Farm::InsecticideTreat ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply insecticide to a_field.

Reimplemented in OptimisingFarm.

Definition at line 967 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetSignal(), Weather::GetWind(), LE::Insecticide(), insecticide_treat, l_farm_insecticide_kills, LE_SIG_NO_INSECTICIDE, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and CfgBool::value().

{

  if (0 >= a_days) 
  {
      if (( ! (a_field->GetSignal() & LE_SIG_NO_INSECTICIDE) )) 
      {
          // **CJT** Turn this code on to use the pesticide engine with insecticides
          //      g_pest->DailyQueueAdd( a_field, l_pest_insecticide_amount.value());
          //
      a_field->Trace( insecticide_treat );
      a_field->SetLastTreatment( insecticide_treat );
          if ( l_farm_insecticide_kills.value()) 
          {
       a_field->Insecticide( 0.36 );
      }
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  else if ( (g_weather->GetWind()<4.5) &&
            (!g_weather->Raining()) && DoIt(DO_IT_PROB)) {
    if ( ! (a_field->GetSignal() & LE_SIG_NO_INSECTICIDE )) {
// **CJT** Turn this code on to use the pesticide engine with insecticides
//      g_pest->DailyQueueAdd( a_field, l_pest_insecticide_amount.value());
//
      a_field->Trace( insecticide_treat );
      a_field->SetLastTreatment( insecticide_treat );
      if ( l_farm_insecticide_kills.value()) {
       a_field->Insecticide( 0.36 );
      }
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

int Farm::InvIntPartition ( vector< tpct > *  items, int  target  )

protected

Finds all possible sums of the integers in the items array.

Definition at line 2045 of file farm.cpp.

References g_msg, GetFarmNumber(), and MapErrorMsg::Warn().

Referenced by AssignPermanentCrop().

                                                        {
    //Figure out how many bitmasks we need...
    //4 bits have a maximum value of 15, so we need 15 masks.
    //Calculated as:
    //    (2 ^ ItemCount) - 1
    int sz = (int) items->size();
    if (sz>63) {
        g_msg->Warn("Too many potential fields in UserDefinedFarm::InvIntPartition: ",sz);
        g_msg->Warn("Farm Number: ",GetFarmNumber());
        exit(1);
    }
    long int calcs = (1 << sz);
    //Spit out the corresponding calculation for each bitmask
    int sum;
    int found = 0;
    int diff = 100;
    for (long int i=1; i<calcs; i++) {
        //Get the items from our array that correspond to
        //the on bits in our mask
        sum = 0;
        int mask = 1;
        for (int bit=0; bit<sz; bit++) {
            if ((i & mask) > 0) {
                sum+=(*items)[bit].pct;
            }
            mask = mask << 1;
        }

        if (abs(sum-target) < diff ){
            found = i;
            diff = abs(sum-target);
            if (diff<1) break; //added 01.11.12 to prevent from checking all the combinations when the right one is found
        }
    }
    return found;
}

bool Farm::IsStockFarmer ( void  )

inline

Definition at line 807 of file farm.h.

{ return m_stockfarmer; }

bool Farm::LeSwitch ( FarmEvent *  ev )

protected

Call do function for any crop with an outstanding event. Signal if the crop has terminated.

Definition at line 331 of file farm.cpp.

References g_msg, LE::GetRunNum(), FarmEvent::m_event, FarmEvent::m_field, FarmEvent::m_run, FarmEvent::m_todo, LE::m_tried_to_do, tov_AgroChemIndustryCereal, tov_BroadBeans, tov_Carrots, tov_CloverGrassGrazed1, tov_CloverGrassGrazed2, tov_FieldPeas, tov_FieldPeasSilage, tov_FieldPeasStrigling, tov_FodderBeet, tov_FodderGrass, tov_Maize, tov_MaizeSilage, tov_MaizeStrigling, tov_Oats, tov_OBarleyPeaCloverGrass, tov_OCarrots, tov_OCloverGrassGrazed1, tov_OCloverGrassGrazed2, tov_OCloverGrassSilage1, tov_OFieldPeas, tov_OFieldPeasSilage, tov_OFodderBeet, tov_OGrazingPigs, tov_OMaizeSilage, tov_OOats, tov_OPermanentGrassGrazed, tov_OPotatoes, tov_OrchardCrop, tov_OSBarleySilage, tov_OSeedGrass1, tov_OSeedGrass2, tov_OSpringBarley, tov_OSpringBarleyExt, tov_OSpringBarleyPigs, tov_OTriticale, tov_OWinterBarley, tov_OWinterBarleyExt, tov_OWinterRape, tov_OWinterRye, tov_OWinterWheat, tov_OWinterWheatUndersown, tov_OWinterWheatUndersownExt, tov_PermanentGrassGrazed, tov_PermanentGrassLowYield, tov_PermanentGrassTussocky, tov_PermanentSetaside, tov_Potatoes, tov_PotatoesIndustry, tov_SeedGrass1, tov_SeedGrass2, tov_Setaside, tov_SpringBarley, tov_SpringBarleyCloverGrass, tov_SpringBarleyCloverGrassStrigling, tov_SpringBarleyPeaCloverGrassStrigling, tov_SpringBarleyPTreatment, tov_SpringBarleySeed, tov_SpringBarleySilage, tov_SpringBarleySKManagement, tov_SpringBarleySpr, tov_SpringBarleyStrigling, tov_SpringBarleyStriglingCulm, tov_SpringBarleyStriglingSingle, tov_SpringRape, tov_SugarBeet, tov_Triticale, tov_WinterBarley, tov_WinterBarleyStrigling, tov_WinterRape, tov_WinterRapeStrigling, tov_WinterRye, tov_WinterRyeStrigling, tov_WinterWheat, tov_WinterWheatStrigling, tov_WinterWheatStriglingCulm, tov_WinterWheatStriglingSingle, tov_WWheatPControl, tov_WWheatPToxicControl, tov_WWheatPTreatment, tov_YoungForest, MapErrorMsg::Warn(), and WARN_FILE.

                                    {
    // Ignore this event if it is from the execution of
    // a previous management plan.
    if (ev->m_field->GetRunNum() > ev->m_run)
        return false;
    // Store what we are trying to do this time.
    // ***FN*** To be cleaned up later.
    ev->m_field->m_tried_to_do = ev->m_todo;

    bool done;

    switch (ev->m_event) {
        case tov_Carrots:
            done = m_carrots->Do( this, ev->m_field, ev );
            break;
        case tov_BroadBeans:
            done = m_broadbeans->Do( this, ev->m_field, ev );
            break;
        case tov_FodderGrass:
            done = m_foddergrass->Do( this, ev->m_field, ev );
            break;
        case tov_CloverGrassGrazed1:
            done = m_CGG1->Do( this, ev->m_field, ev );
            break;
        case tov_CloverGrassGrazed2:
            done = m_CGG2->Do( this, ev->m_field, ev );
            break;
        case tov_FieldPeas:
            done = m_fieldpeas->Do( this, ev->m_field, ev );
            break;
        case tov_FieldPeasSilage:
            done = m_fieldpeassilage->Do( this, ev->m_field, ev );
            break;
        case tov_FodderBeet:
            done = m_fodderbeet->Do( this, ev->m_field, ev );
            break;
        case tov_SugarBeet:
            done = m_sugarbeet->Do( this, ev->m_field, ev );
            break;
        case tov_OFodderBeet:
            done = m_ofodderbeet->Do( this, ev->m_field, ev );
            break;
        case tov_Maize:
            done = m_maize->Do( this, ev->m_field, ev );
            break;
        case tov_OBarleyPeaCloverGrass:
            done = m_OBarleyPCG->Do( this, ev->m_field, ev );
            break;
        case tov_OCarrots:
            done = m_ocarrots->Do( this, ev->m_field, ev );
            break;
        case tov_OCloverGrassSilage1:
            done = m_OCGS1->Do( this, ev->m_field, ev );
            break;
        case tov_OCloverGrassGrazed1:
            done = m_OCGG1->Do( this, ev->m_field, ev );
            break;
        case tov_OCloverGrassGrazed2:
            done = m_OCGG2->Do( this, ev->m_field, ev );
            break;
        case tov_OFieldPeas:
            done = m_ofieldpeas->Do( this, ev->m_field, ev );
            break;
        case tov_OFieldPeasSilage:
            done = m_ofieldpeassilage->Do( this, ev->m_field, ev );
            break;
        case tov_OGrazingPigs:
            done = m_ograzingpigs->Do( this, ev->m_field, ev );
            break;
        case tov_OrchardCrop:
            done = m_orchardcrop->Do( this, ev->m_field, ev );
            break;
        case tov_OOats:
            done = m_ooats->Do( this, ev->m_field, ev );
            break;
        case tov_Oats:
            done = m_oats->Do( this, ev->m_field, ev );
            break;
        case tov_OPermanentGrassGrazed:
            done = m_opermgrassgrazed->Do( this, ev->m_field, ev );
            break;
        case tov_OPotatoes:
            done = m_opotatoes->Do( this, ev->m_field, ev );
            break;
        case tov_OSpringBarley:
            done = m_ospringbarley->Do( this, ev->m_field, ev );
            break;
        case tov_OSBarleySilage:
            done = m_osbarleysilage->Do( this, ev->m_field, ev );
            break;
        case tov_OSeedGrass1:
            done = m_oseedgrass1->Do( this, ev->m_field, ev );
            break;
        case tov_OSeedGrass2:
            done = m_oseedgrass2->Do( this, ev->m_field, ev );
            break;
        case tov_OSpringBarleyExt:
            done = m_ospringbarleyext->Do( this, ev->m_field, ev );
            break;
        case tov_OSpringBarleyPigs:
            done = m_ospringbarleypigs->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterBarley:
            done = m_owinterbarley->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterBarleyExt:
            done = m_owinterbarleyext->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterWheatUndersown:
            done = m_owinterwheatundersown->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterWheat:
            done = m_owinterwheat->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterWheatUndersownExt:
            done = m_owinterwheatundersownext->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterRape:
            done = m_owinterrape->Do( this, ev->m_field, ev );
            break;
        case tov_OWinterRye:
            done = m_owinterrye->Do( this, ev->m_field, ev );
            break;
        case tov_PermanentGrassGrazed:
            done = m_permgrassgrazed->Do( this, ev->m_field, ev );
            break;
        case tov_PermanentGrassLowYield:
            done = m_permgrasslowyield->Do( this, ev->m_field, ev );
            break;
        case tov_PermanentGrassTussocky:
            done = m_permgrasstussocky->Do( this, ev->m_field, ev );
            break;
        case tov_PermanentSetaside:
            done = m_permanentsetaside->Do( this, ev->m_field, ev );
            break;
        case tov_Potatoes:
            done = m_potatoes->Do( this, ev->m_field, ev );
            break;
        case tov_PotatoesIndustry:
            done = m_potatoesindustry->Do( this, ev->m_field, ev );
            break;
        case tov_SeedGrass1:
            done = m_seedgrass1->Do( this, ev->m_field, ev );
            break;
        case tov_SeedGrass2:
            done = m_seedgrass2->Do( this, ev->m_field, ev );
            break;
        case tov_Setaside:
            done = m_setaside->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarley:
            done = m_springbarley->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleySpr:
            done = m_springbarleyspr->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyPTreatment:
            done = m_springbarleyptreatment->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleySKManagement:
            done = m_springbarleyskmanagement->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyCloverGrass:
            done = m_sbarleyclovergrass->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleySeed:
            done = m_springbarleyseed->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleySilage:
            done = m_springbarleysilage->Do( this, ev->m_field, ev );
            break;
        case tov_SpringRape:
            done = m_springrape->Do( this, ev->m_field, ev );
            break;
        case tov_Triticale:
            done = m_triticale->Do( this, ev->m_field, ev );
            break;
        case tov_OTriticale:
            done = m_otriticale->Do( this, ev->m_field, ev );
            break;
        case tov_WinterBarley:
            done = m_winterbarley->Do( this, ev->m_field, ev );
            break;
        case tov_WinterRape:
            done = m_winterrape->Do( this, ev->m_field, ev );
            break;
        case tov_WinterRye:
            done = m_winterrye->Do( this, ev->m_field, ev );
            break;
        case tov_WinterWheat:
            done = m_winterwheat->Do( this, ev->m_field, ev );
            break;
        case tov_WWheatPControl:
            done = m_wwheatpcontrol->Do( this, ev->m_field, ev );
            break;
        case tov_WWheatPToxicControl:
            done = m_wwheatptoxiccontrol->Do( this, ev->m_field, ev );
            break;
        case tov_WWheatPTreatment:
            done = m_wwheatptreatment->Do( this, ev->m_field, ev );
            break;
        case tov_AgroChemIndustryCereal:
            done = m_agrochemindustrycereal->Do( this, ev->m_field, ev );
            break;
        case tov_WinterWheatStrigling:
            done = m_winterwheatstrigling->Do( this, ev->m_field, ev );
            break;
        case tov_WinterWheatStriglingSingle:
            done = m_winterwheatstriglingsingle->Do( this, ev->m_field, ev );
            break;
        case tov_WinterWheatStriglingCulm:
            done = m_winterwheatstriglingculm->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyCloverGrassStrigling:
            done = m_springbarleyclovergrassstrigling->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyStrigling:
            done = m_springbarleystrigling->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyStriglingSingle:
            done = m_springbarleystriglingsingle->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyStriglingCulm:
            done = m_springbarleystriglingculm->Do( this, ev->m_field, ev );
            break;
        case tov_MaizeStrigling:
            done = m_maizestrigling->Do( this, ev->m_field, ev );
            break;
        case tov_MaizeSilage:
            done = m_maizesilage->Do( this, ev->m_field, ev );
            break;
        case tov_OMaizeSilage:
            done = m_omaizesilage->Do( this, ev->m_field, ev );
            break;
        case tov_WinterRapeStrigling:
            done = m_winterrapestrigling->Do( this, ev->m_field, ev );
            break;
        case tov_WinterRyeStrigling:
            done = m_winterryestrigling->Do( this, ev->m_field, ev );
            break;
        case tov_WinterBarleyStrigling:
            done = m_winterbarleystrigling->Do( this, ev->m_field, ev );
            break;
        case tov_FieldPeasStrigling:
            done = m_fieldpeasstrigling->Do( this, ev->m_field, ev );
            break;
        case tov_SpringBarleyPeaCloverGrassStrigling:
            done = m_springbarleypeaclovergrassstrigling->Do( this, ev->m_field, ev );
            break;
        case tov_YoungForest:
            done = m_youngforest->Do( this, ev->m_field, ev );
            break;
            /* case tov_OFirstYearDanger: done = m_ofirstyeardanger->Do( this, ev->m_field, ev ); break; */
        default:
            char veg_type[ 20 ];
            sprintf( veg_type, "%d", ev->m_event );
            g_msg->Warn( WARN_FILE, "Farm::LeSwitch(): ""Unknown crop type: ", veg_type );
            exit( 1 );

    }
    return done;
}

polylist * Farm::ListOpenFields

(

int

a_openness

)

Returns a list of fields with openness above a_openness.

Returns the list of fields more open than a_openness.

Definition at line 8922 of file farm.cpp.

References m_fields.

{
    polylist* p_list = new polylist;
    int nf = (int) m_fields.size();
    for ( int i = 0; i < nf; i++ )
    {
        if ( m_fields[ i ]->GetOpenness() >= a_openness )
        {
            p_list->push_back( m_fields[i]->GetPoly());
        }
    }
    return p_list;
}

virtual void Farm::MakeStockFarmer ( void  )

inlinevirtual

Reimplemented in PesticideTrialTreatment, PesticideTrialToxicControl, PesticideTrialControl, OrganicPlant, and ConventionalPlant.

Definition at line 808 of file farm.h.

{ m_stockfarmer = true; }

void Farm::Management ( void  )

virtual

Starts the main management loop for the farm and performs some error checking.

Definition at line 306 of file farm.cpp.

References g_msg, MapErrorMsg::Warn(), and WARN_BUG.

                            {
  HandleEvents();
  for ( unsigned int i = 0; i < m_fields.size(); i++ ) {
    // Check for infinite loop in management plan.
    int count = m_fields[ i ]->GetVegStore();
    if ( count >= 0 )
      m_fields[ i ]->SetVegStore( ++count );
    if ( count > 800 ) {
      // More than two years where nothing happened.
      // Raise 'Merry Christmas'!
      char error_num[ 20 ];
      sprintf( error_num, "%d", m_fields[ i ]->GetVegType() );
      g_msg->Warn( WARN_BUG, "I the Farm Manager caught infinite loop in tov type:", error_num );
      sprintf( error_num, "%d", m_fields[ i ]->m_tried_to_do );
      g_msg->Warn( WARN_BUG, "It was last seen trying to perform action # ""(or thereabouts):", error_num );
      exit( 1 );
    }
  }
}

bool Farm::Molluscicide ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply molluscidie to a_field.

Definition at line 1167 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetSignal(), Weather::GetWind(), LE_SIG_NO_MOLLUSC, molluscicide, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), and LE::Trace().

{

       if (0 >= a_days) {
    if ( (!g_weather->Raining()) && (g_weather->GetWind()<4.5) &&
        (! (a_field->GetSignal() & LE_SIG_NO_MOLLUSC ))) {
      a_field->Trace( molluscicide );
      a_field->SetLastTreatment( molluscicide );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  else if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    if ( ! (a_field->GetSignal() & LE_SIG_NO_MOLLUSC) ) {
      a_field->Trace( molluscicide );
      a_field->SetLastTreatment( molluscicide );
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::PigsAreOut ( LE *  a_field, double  a_user, int  a_days  )

virtual

Start a pig grazing event on a_field today or soon.

Definition at line 1740 of file farmfuncs.cpp.

References LE::GetUnsprayedMarginPolyRef(), Landscape::SupplyLEPointer(), and LE::TogglePigGrazing().

{

  if ( (0 >= a_days)||  DoIt(50/a_days)) {
    a_field->TogglePigGrazing();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->TogglePigGrazing();
    }
    return true;
  }
  return false;
}

bool Farm::PigsAreOutForced ( LE *  a_field, double  a_user, int  a_days  )

virtual

Start a pig grazing event on a_field today - no exceptions.

Definition at line 1718 of file farmfuncs.cpp.

References LE::GetUnsprayedMarginPolyRef(), l_farm_pig_veg_reduce, pigs_out, LE::ReduceVeg_Extended(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and CfgFloat::value().

{
  a_field->SetLastTreatment( pigs_out );
  a_field->Trace( pigs_out );
  // Reduce the vegetation because of grazing
  a_field->ReduceVeg_Extended( l_farm_pig_veg_reduce.value() );
  // make this a function of grazing pressure
  //and field size - perhaps in a later life
  int pref=a_field->GetUnsprayedMarginPolyRef();
  if (pref!=-1){
    // Must have an unsprayed margin so need to pass the information on to it
    LE* um=g_landscape_p->SupplyLEPointer(pref);
    um->SetLastTreatment( pigs_out );
    um->ReduceVeg_Extended( l_farm_pig_veg_reduce.value() );
  }
  return false;
}

bool Farm::PigsOut ( LE *  a_field, double  a_user, int  a_days  )

virtual

Generate a 'pigs_out' event for every day the cattle are on a_field.

Definition at line 1690 of file farmfuncs.cpp.

References DO_IT_PROB, LE::GetUnsprayedMarginPolyRef(), l_farm_pig_veg_reduce, pigs_out, LE::ReduceVeg_Extended(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::TogglePigGrazing(), LE::Trace(), and CfgFloat::value().

{

  if ( (0 >= a_days)||  DoIt(DO_IT_PROB))
 {
    a_field->TogglePigGrazing();
    a_field->Trace( pigs_out );
    a_field->SetLastTreatment( pigs_out );
    // Reduce the vegetation because of grazing
    a_field->ReduceVeg_Extended( l_farm_pig_veg_reduce.value());
                                 // make this a function of grazing pressure
                                 //and field size - perhaps in a later life
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( pigs_out );
      um->ReduceVeg_Extended( l_farm_pig_veg_reduce.value() );
    }
    return true;
 }
  return false;
}

virtual double Farm::Prob_multiplier ( )

inlinevirtual

Reimplemented in OptimisingFarm.

Definition at line 702 of file farm.h.

{return 1;};

bool Farm::ProductApplication0 ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply test pesticide to a_field.

Definition at line 1099 of file farmfuncs.cpp.

References Pesticide::DailyQueueAdd(), EL_TRAMLINE_DECAYTIME, g_pest, g_weather, Weather::GetWind(), LE::Insecticide(), l_farm_insecticide_kills, product_treat, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), CfgFloat::value(), and CfgBool::value().

{

  // NOTE Differs from normal pesticide in that it will be done on the last
  // day if not managed before
  if (0 >= a_days) {
    a_field->Trace( product_treat );
    a_field->SetLastTreatment( product_treat );
    if ( l_farm_insecticide_kills.value()) {
        a_field->Insecticide( 0.2 );     }
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    double p=l_pest_product_0_amount.value();
    g_pest->DailyQueueAdd( a_field,p );
    return true;
  } else {
    if ( (!g_weather->Raining()) && (g_weather->GetWind()<4.5)) {
    a_field->Trace( product_treat );
    a_field->SetLastTreatment( product_treat );
    if ( l_farm_insecticide_kills.value()) {
         a_field->Insecticide( 0.2 );     }
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    double p=l_pest_product_0_amount.value();
    g_pest->DailyQueueAdd( a_field,p );
      return true;
         }
  }
  return false;
}

bool Farm::ProductApplication1 ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply test pesticide to a_field.

Definition at line 1132 of file farmfuncs.cpp.

References Pesticide::DailyQueueAdd(), EL_TRAMLINE_DECAYTIME, g_pest, g_weather, Weather::GetWind(), LE::Insecticide(), l_farm_insecticide_kills, product_treat, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), CfgFloat::value(), and CfgBool::value().

{

  // NOTE Differs from normal pesticide in that it will be done on the last
  // day if not managed before
  if (0 >= a_days) {
    a_field->Trace( product_treat );
    a_field->SetLastTreatment( product_treat );
    if ( l_farm_insecticide_kills.value()) 
    {
        a_field->Insecticide( 0.2 );     
    }
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    double p=l_pest_product_1_amount.value();
    g_pest->DailyQueueAdd( a_field,p );
    return true;
  } else {
    if ( (!g_weather->Raining()) && (g_weather->GetWind()<4.5)) {
    a_field->Trace( product_treat );
    a_field->SetLastTreatment( product_treat );
    if ( l_farm_insecticide_kills.value()) {
         a_field->Insecticide( 0.2 );     }
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    double p=l_pest_product_1_amount.value();
    g_pest->DailyQueueAdd( a_field,p );
      return true;
         }
  }
  return false;
}

void Farm::ReadRotation ( std::string  fname )

protected

Reads a rotation file into the rotation.

Definition at line 618 of file farm.cpp.

References g_msg, FarmManager::TranslateCropCodes(), and MapErrorMsg::Warn().

Referenced by OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

{
  ifstream ifile;
  ifile.open(str.c_str(),ios::in);
  if ( !ifile.is_open() ) {
      g_msg->Warn( "Cannot open file: ", str.c_str() );
      exit( 1 );
  }
  int nocrops;
  ifile >> nocrops;
  m_rotation.resize( nocrops );
  std::string cropref;
  for ( int i = 0; i < nocrops; i++ ) {
    ifile >> cropref;
    TTypesOfVegetation tov = g_farmmanager->TranslateCropCodes( cropref );
    m_rotation[ i ] = tov;
  }
  ifile.close();
}

void Farm::RemoveField

(

LE *

a_field

)

Removes a field from a farm.

Definition at line 1186 of file farm.cpp.

References g_msg, MapErrorMsg::Warn(), and WARN_BUG.

                                     {
  int nf = (int) m_fields.size();
  for ( int i = 0; i < nf; i++ ) {
    if ( m_fields[ i ] == a_field ) {
      m_fields.erase( m_fields.begin() + i );
      return;
    }
  }
  // If we reach here there is something wrong because the field is not a
  // member of this farm
  g_msg->Warn( WARN_BUG, "Farm::RemoveField(LE* a_field): ""Unknown field! ", "" );
  exit( 1 );
}

bool Farm::RemoveHunter ( Hunter *  a_hunter )

inline

Definition at line 827 of file farm.h.

                                        {
      for (int h = 0; h < m_HuntersList.size(); h++) {
          if (m_HuntersList[ h ] == a_hunter) {
              m_HuntersList.erase( m_HuntersList.begin() + h );
          }
      }
  }

bool Farm::RowCultivation ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a harrowing between crop rows on a_field.

Definition at line 1194 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::ReduceWeedBiomass(), row_cultivation, LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(),3)<0.1) )
  {
    // Too much rain, just give up and claim we did it.
    return true;
  }

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( row_cultivation );
    a_field->SetLastTreatment( row_cultivation );
    a_field->ReduceWeedBiomass( 0.5 );
    a_field->InsectMortality( 0.25 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( row_cultivation );
      um->InsectMortality( 0.25 );
      um->ReduceWeedBiomass( 0.5 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

void Farm::SetFarmNumber ( int  a_farm_num )

inline

Definition at line 697 of file farm.h.

{ m_farm_num = a_farm_num; }

bool Farm::SleepAllDay ( LE *  a_field, double  a_user, int  a_days  )

virtual

Nothing to to today on a_field.

Definition at line 136 of file farmfuncs.cpp.

References LE::GetUnsprayedMarginPolyRef(), LE::SetLastTreatment(), sleep_all_day, Landscape::SupplyLEPointer(), and LE::Trace().

{

  a_field->Trace( sleep_all_day );
  a_field->SetLastTreatment( sleep_all_day );
  int pref=a_field->GetUnsprayedMarginPolyRef();
  if (pref!=-1){
    // Must have an unsprayed margin so need to pass the information on to it
    LE* um=g_landscape_p->SupplyLEPointer(pref);
    um->SetLastTreatment(sleep_all_day);
  }
  return true;
}

virtual bool Farm::Spraying_fungins ( TTypesOfVegetation  )

inlinevirtual

Reimplemented in OptimisingFarm.

Definition at line 701 of file farm.h.

{return true; };

virtual bool Farm::Spraying_herbicides ( TTypesOfVegetation  )

inlinevirtual

Reimplemented in OptimisingFarm.

Definition at line 700 of file farm.h.

{return true; };

bool Farm::SpringHarrow ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a harrow event in the spring on a_field.

Definition at line 311 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), spring_harrow, Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( spring_harrow );
    a_field->SetLastTreatment( spring_harrow );
    // 30% insect mortality
       a_field->InsectMortality( 0.7 );
    // remove all vegetation
       a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( spring_harrow );
      um->InsectMortality( 0.7 );
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

bool Farm::SpringPlough ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a ploughing event in the spring on a_field.

Definition at line 284 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), spring_plough, Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

    if ((a_days <= 0) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( spring_plough );
    a_field->SetLastTreatment( spring_plough );
   // Apply 90% mortality to the insects
    a_field->InsectMortality( 0.1 );
   // Reduce the vegetation to zero
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( spring_plough );
      um->InsectMortality( 0.1);
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

bool Farm::SpringRoll ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a roll event in the spring on a_field.

Definition at line 338 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), spring_roll, Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( spring_roll );
    a_field->SetLastTreatment( spring_roll );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( spring_roll );
    }
    return true;
  }
  return false;
}

bool Farm::SpringSow ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a sowing event in the spring on a_field.

Definition at line 359 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::GetVegType(), Weather::Raining(), LE::SetGrowthPhase(), LE::SetLastSownVeg(), LE::SetLastTreatment(), sow, spring_sow, Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( spring_sow );
    a_field->SetLastTreatment( spring_sow );
    a_field->SetGrowthPhase( sow );
    a_field->SetLastSownVeg(a_field->GetVegType());
   // Reduce the  vegetation to zero - should not strictly be necessary, but prevents any false starts in the crop growth.
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
   if (pref!=-1){
     // Must have an unsprayed margin so need to pass the information on to it
     LE* um=g_landscape_p->SupplyLEPointer(pref);
     um->SetLastTreatment( spring_sow );
     um->SetGrowthPhase( sow );
     um->ZeroVeg();
     um->SetLastSownVeg(um->GetVegType());
   }
   return true;
  }
  return false;
}

bool Farm::StrawChopping ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out straw chopping on a_field.

Definition at line 1760 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), straw_chopping, Landscape::SupplyLEPointer(), and LE::Trace().

{

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),5)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( straw_chopping );
    a_field->SetLastTreatment( straw_chopping );
    a_field->InsectMortality( 0.4 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( straw_chopping );
      um->InsectMortality( 0.4 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::Strigling ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a mechanical weeding on a_field.

Definition at line 1229 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_STRIGLING_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::ReduceWeedBiomass(), LE::SetHerbicideDelay(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), strigling, Landscape::SupplyLEPointer(), and LE::Trace().

{

  // Force strigling if it has not been done already!!!  This happens regardless of weather as of 26/10/2005
  if ( (0 >= a_days) )// && (g_weather->GetRainPeriod(g_date->Date(),3)>0.1) )
  {
    a_field->Trace( strigling );
    a_field->SetLastTreatment( strigling );
    a_field->ReduceWeedBiomass( 0.05 );
    a_field->InsectMortality( 0.7 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    a_field->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( strigling );
      um->ReduceWeedBiomass( 0.05 );
      um->InsectMortality( 0.7 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      um->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    return true;
  }
  }
  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( strigling );
    a_field->SetLastTreatment( strigling );
    a_field->ReduceWeedBiomass( 0.05 );
    a_field->InsectMortality( 0.7 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    a_field->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( strigling );
      um->ReduceWeedBiomass( 0.05 );
      um->InsectMortality( 0.7 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      um->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::StriglingSow ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a mechanical weeding followed by sowing on a_field.

Definition at line 1281 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, EL_STRIGLING_DELAYTIME, EL_TRAMLINE_DECAYTIME, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::ReduceWeedBiomass(), LE::SetHerbicideDelay(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), strigling_sow, Landscape::SupplyLEPointer(), and LE::Trace().

{

  //2 days good weather afterwards
  if ( (0 >= a_days) && (g_weather->GetRainPeriod(g_date->Date(),3)<0.1) )
  {
    return true;
  }

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( strigling_sow );
    a_field->SetLastTreatment( strigling_sow );
    a_field->ReduceWeedBiomass( 0.05 );
    a_field->InsectMortality( 0.7 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    a_field->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( strigling_sow );
      um->ReduceWeedBiomass( 0.05 );
      um->InsectMortality( 0.7 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      um->SetHerbicideDelay( EL_STRIGLING_DELAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::StubbleHarrowing ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out stubble harrowing on a_field.

Definition at line 1837 of file farmfuncs.cpp.

References Calendar::Date(), DO_IT_PROB, g_date, g_weather, Weather::GetRainPeriod(), LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), LE::SetLastTreatment(), stubble_harrowing, Landscape::SupplyLEPointer(), LE::Trace(), and LE::ZeroVeg().

{

  if ( (0 >= a_days) ||
       ((g_weather->GetRainPeriod(g_date->Date(),3)<0.1) && DoIt(DO_IT_PROB))
  ) {
    a_field->Trace( stubble_harrowing );
    a_field->SetLastTreatment( stubble_harrowing );
    a_field->InsectMortality( 0.25 );
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( stubble_harrowing );
      um->ZeroVeg();
      um->InsectMortality( 0.25 );
    }
    return true;
  }
  return false;
}

bool Farm::Swathing ( LE *  a_field, double  a_user, int  a_days  )

virtual

Cut the crop on a_field and leave it lying (probably rape)

Definition at line 1372 of file farmfuncs.cpp.

References DO_IT_PROB, EL_TRAMLINE_DECAYTIME, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), Landscape::SupplyLEPointer(), swathing, and LE::Trace().

{

  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( swathing );
    a_field->SetLastTreatment( swathing );
    a_field->InsectMortality( 0.5 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( swathing );
      um->InsectMortality( 0.5 );
      um->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
    return true;
  }
  return false;
}

bool Farm::SynInsecticideTreat ( LE *  a_field, double  a_user, int  a_days  )

virtual

Apply special insecticide to a_field.

Definition at line 1061 of file farmfuncs.cpp.

References EL_TRAMLINE_DECAYTIME, g_weather, LE::GetSignal(), Weather::GetWind(), LE::Insecticide(), l_farm_insecticide_kills, LE_SIG_NO_SYNG_INSECT, Weather::Raining(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), syninsecticide_treat, LE::Trace(), and CfgBool::value().

{

  // NOTE Differs from normal insecticide in that it will be done on the last
  // day if not managed before
  if (0 >= a_days) {
    if ( ! (a_field->GetSignal() & LE_SIG_NO_SYNG_INSECT )) {
      a_field->Trace( syninsecticide_treat );
      a_field->SetLastTreatment( syninsecticide_treat );
      if ( l_farm_insecticide_kills.value()) {
       a_field->Insecticide( 0.2 );
      }
      a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    }
//    double p=l_pest_insecticide_amount.value();
//    g_pest->DailyQueueAdd( a_field,p );
    return true;
  } else {
    if ( (!g_weather->Raining()) && (g_weather->GetWind()<4.5)) {
      if ( ! (a_field->GetSignal() & LE_SIG_NO_SYNG_INSECT ) ) {
       a_field->Trace( syninsecticide_treat );
       a_field->SetLastTreatment( syninsecticide_treat );
       if ( l_farm_insecticide_kills.value()) {
         a_field->Insecticide( 0.2 );
       }
       a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
      }
//      g_pest->DailyQueueAdd( a_field, l_pest_insecticide_amount.value());
      return true;
    }
  }
  return false;
}

bool Farm::Trial_Control ( LE *  a_field, double  a_user, int  a_days  )

virtual

Special pesticide trial functionality.

Definition at line 2093 of file farmfuncs.cpp.

References EL_TRAMLINE_DECAYTIME, LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and trial_control.

{
  // Will always do this at the first chance
  a_field->Trace( trial_control );
  a_field->SetLastTreatment( trial_control );
  a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
  return true;
}

bool Farm::Trial_PesticideTreat ( LE *  a_field, double  a_user, int  a_days  )

virtual

Special pesticide trial functionality.

Any testing for year or date limitations must be done by calling methods, otherwise use Trial_PesticideTreat_DateLimited()

Definition at line 2044 of file farmfuncs.cpp.

References EL_TRAMLINE_DECAYTIME, LE::InsectMortality(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and trial_insecticidetreat.

{
    a_field->Trace( trial_insecticidetreat );
    a_field->SetLastTreatment( trial_insecticidetreat );
    a_field->InsectMortality( 0.1 );  // Change this manually if it is really a herbicide
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    return true;
}

bool Farm::Trial_PesticideTreat_DateLimited ( LE *  a_field, double  , int    )

virtual

Special pesticide trial functionality.

This methods tests for date limitations

Definition at line 2022 of file farmfuncs.cpp.

References Pesticide::DailyQueueAdd(), EL_TRAMLINE_DECAYTIME, g_pest, LE::InsectMortality(), LE::SetLastTreatment(), LE::SetSprayedToday(), LE::SetTramlinesDecay(), Landscape::SupplyYearNumber(), LE::Trace(), trial_insecticidetreat, CfgInt::value(), and CfgFloat::value().

{
    int year = g_landscape_p->SupplyYearNumber();
    if (year < cfg_productapplicstartyear.value()) return false;
    if (year > cfg_productapplicendyear.value()) return false;
    a_field->Trace(trial_insecticidetreat); // Debug function only
    a_field->SetLastTreatment(trial_insecticidetreat);
    a_field->InsectMortality(0.36);  // Change this manually if it is really a herbicide
    a_field->SetTramlinesDecay(EL_TRAMLINE_DECAYTIME);
    a_field->SetSprayedToday(true);
    g_pest->DailyQueueAdd(a_field, l_pest_insecticide_amount.value());
    return true;
}

bool Farm::Trial_PesticideTreat_GS ( LE *  a_field, double  a_user, int  a_days  )

virtual

Special pesticide trial functionality.

Definition at line 2059 of file farmfuncs.cpp.

References EL_HERBICIDE_DELAYTIME, EL_TRAMLINE_DECAYTIME, LE::GetVegHeight(), LE::ReduceWeedBiomass(), LE::SetHerbicideDelay(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and trial_insecticidetreat.

{
    // Can spray between two certain heights only, but we have to hope that we get called in time for the first so
    // right now we only care if we are above a certain height (timing is also important, so must not call this until
    // after a ploughing and sowing event
    if (a_field->GetVegHeight() < 3.0) return false;
    // All OK so here goes:
    a_field->Trace( trial_insecticidetreat );
    a_field->SetLastTreatment( trial_insecticidetreat );
    //a_field->InsectMortality( 0.1 );  // Change this manually if it is really a herbicide
    a_field->ReduceWeedBiomass( 0.05 );
    a_field->SetHerbicideDelay( EL_HERBICIDE_DELAYTIME );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    return true;
}

bool Farm::Trial_ToxicControl ( LE *  a_field, double  a_user, int  a_days  )

virtual

Special pesticide trial functionality.

Definition at line 2079 of file farmfuncs.cpp.

References EL_TRAMLINE_DECAYTIME, LE::InsectMortality(), LE::SetLastTreatment(), LE::SetTramlinesDecay(), LE::Trace(), and trial_toxiccontrol.

{
    a_field->Trace( trial_toxiccontrol );
    a_field->SetLastTreatment( trial_toxiccontrol );
    a_field->InsectMortality( 0.001 );
    a_field->SetTramlinesDecay( EL_TRAMLINE_DECAYTIME );
    return true;
}

bool Farm::Water ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a watering on a_field.

Definition at line 1345 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), and water.

{


  /* Turn on this code to avoid watering on heavy soils
  int soiltype = a_field->GetSoilType();
  if ( soiltype < 1 || soiltype > 4 )
    return true;
*/
  if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( water );
    a_field->SetLastTreatment( water );
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( water );
    }
    return true;
  }
  return false;
}

bool Farm::WinterPlough ( LE *  a_field, double  a_user, int  a_days  )

virtual

Carry out a ploughing event in the winter on a_field.

Definition at line 232 of file farmfuncs.cpp.

References DO_IT_PROB, g_weather, LE::GetUnsprayedMarginPolyRef(), LE::InsectMortality(), Weather::Raining(), LE::SetLastTreatment(), Landscape::SupplyLEPointer(), LE::Trace(), winter_plough, and LE::ZeroVeg().

{

    if ( (0 >= a_days) || (!g_weather->Raining() && DoIt(DO_IT_PROB))) {
    a_field->Trace( winter_plough );
    a_field->SetLastTreatment( winter_plough );
    a_field->InsectMortality( 0.1 );
    a_field->ZeroVeg();
    int pref=a_field->GetUnsprayedMarginPolyRef();
    if (pref!=-1){
      // Must have an unsprayed margin so need to pass the information on to it
      LE* um=g_landscape_p->SupplyLEPointer(pref);
      um->SetLastTreatment( winter_plough );
      um->InsectMortality( 0.1 );
      um->ZeroVeg();
    }
    return true;
  }
  return false;
}

Member Data Documentation

AgroChemIndustryCereal* Farm::m_agrochemindustrycereal

protected

Definition at line 934 of file farm.h.

BroadBeans* Farm::m_broadbeans

protected

Definition at line 869 of file farm.h.

Carrots* Farm::m_carrots

protected

Definition at line 868 of file farm.h.

CloverGrassGrazed1* Farm::m_CGG1

protected

Definition at line 871 of file farm.h.

CloverGrassGrazed2* Farm::m_CGG2

protected

Definition at line 872 of file farm.h.

int Farm::m_farm_centroidx

protected

Farm's centroid, value x. Equal to the average of the x centroid values of all farm's fields.

Definition at line 861 of file farm.h.

Referenced by Centroids().

int Farm::m_farm_centroidy

protected

Farm's centroid, value y. Equal to the average of the y centroid values of all farm's fields.

Definition at line 863 of file farm.h.

Referenced by Centroids().

int Farm::m_farm_num

protected

Definition at line 846 of file farm.h.

TTypesOfFarm Farm::m_farmtype

protected

Definition at line 842 of file farm.h.

Referenced by AgroChemIndustryCerealFarm1::AgroChemIndustryCerealFarm1(), AgroChemIndustryCerealFarm2::AgroChemIndustryCerealFarm2(), AgroChemIndustryCerealFarm3::AgroChemIndustryCerealFarm3(), ConventionalCattle::ConventionalCattle(), ConventionalPig::ConventionalPig(), ConventionalPlant::ConventionalPlant(), ConvMarginalJord::ConvMarginalJord(), NoPesticideBaseFarm::NoPesticideBaseFarm(), NoPesticideNoPFarm::NoPesticideNoPFarm(), OptimisingFarm::OptimisingFarm(), OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialControl::PesticideTrialControl(), PesticideTrialToxicControl::PesticideTrialToxicControl(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm18::UserDefinedFarm18(), UserDefinedFarm19::UserDefinedFarm19(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm20::UserDefinedFarm20(), UserDefinedFarm21::UserDefinedFarm21(), UserDefinedFarm22::UserDefinedFarm22(), UserDefinedFarm23::UserDefinedFarm23(), UserDefinedFarm24::UserDefinedFarm24(), UserDefinedFarm25::UserDefinedFarm25(), UserDefinedFarm26::UserDefinedFarm26(), UserDefinedFarm27::UserDefinedFarm27(), UserDefinedFarm28::UserDefinedFarm28(), UserDefinedFarm29::UserDefinedFarm29(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm30::UserDefinedFarm30(), UserDefinedFarm31::UserDefinedFarm31(), UserDefinedFarm32::UserDefinedFarm32(), UserDefinedFarm33::UserDefinedFarm33(), UserDefinedFarm34::UserDefinedFarm34(), UserDefinedFarm35::UserDefinedFarm35(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

FieldPeas* Farm::m_fieldpeas

protected

Definition at line 873 of file farm.h.

FieldPeasSilage* Farm::m_fieldpeassilage

protected

Definition at line 874 of file farm.h.

FieldPeasStrigling* Farm::m_fieldpeasstrigling

protected

Definition at line 946 of file farm.h.

vector< LE* > Farm::m_fields

protected

Definition at line 839 of file farm.h.

Referenced by OptimisingFarm::ActualProfit(), AssignPermanentCrop(), Centroids(), OptimisingFarm::InitiateManagement(), ListOpenFields(), and OptimisingFarm::Match_crop_to_field().

Fodderbeet* Farm::m_fodderbeet

protected

Definition at line 875 of file farm.h.

FodderGrass* Farm::m_foddergrass

protected

Definition at line 870 of file farm.h.

HunterList Farm::m_HuntersList

protected

A list of hunters allocated to this farm.

Definition at line 844 of file farm.h.

int Farm::m_intensity

protected

Definition at line 848 of file farm.h.

Maize* Farm::m_maize

protected

Definition at line 878 of file farm.h.

MaizeSilage* Farm::m_maizesilage

protected

Definition at line 879 of file farm.h.

MaizeStrigling* Farm::m_maizestrigling

protected

Definition at line 942 of file farm.h.

Oats* Farm::m_oats

protected

Definition at line 891 of file farm.h.

OBarleyPeaCloverGrass* Farm::m_OBarleyPCG

protected

Definition at line 881 of file farm.h.

OCarrots* Farm::m_ocarrots

protected

Definition at line 882 of file farm.h.

OCloverGrassGrazed1* Farm::m_OCGG1

protected

Definition at line 883 of file farm.h.

OCloverGrassGrazed2* Farm::m_OCGG2

protected

Definition at line 884 of file farm.h.

OCloverGrassSilage1* Farm::m_OCGS1

protected

Definition at line 885 of file farm.h.

OFieldPeas* Farm::m_ofieldpeas

protected

Definition at line 886 of file farm.h.

OFieldPeasSilage* Farm::m_ofieldpeassilage

protected

Definition at line 887 of file farm.h.

OFirstYearDanger* Farm::m_ofirstyeardanger

protected

Definition at line 888 of file farm.h.

OFodderbeet* Farm::m_ofodderbeet

protected

Definition at line 877 of file farm.h.

OGrazingPigs* Farm::m_ograzingpigs

protected

Definition at line 889 of file farm.h.

OMaizeSilage* Farm::m_omaizesilage

protected

Definition at line 880 of file farm.h.

OOats* Farm::m_ooats

protected

Definition at line 892 of file farm.h.

OPermanentGrassGrazed* Farm::m_opermgrassgrazed

protected

Definition at line 893 of file farm.h.

OPotatoes* Farm::m_opotatoes

protected

Definition at line 894 of file farm.h.

OrchardCrop* Farm::m_orchardcrop

protected

Definition at line 890 of file farm.h.

OSBarleySilage* Farm::m_osbarleysilage

protected

Definition at line 900 of file farm.h.

OSeedGrass1* Farm::m_oseedgrass1

protected

Definition at line 895 of file farm.h.

OSeedGrass2* Farm::m_oseedgrass2

protected

Definition at line 896 of file farm.h.

OSpringBarley* Farm::m_ospringbarley

protected

Definition at line 897 of file farm.h.

OSpringBarleyExt* Farm::m_ospringbarleyext

protected

Definition at line 898 of file farm.h.

OSpringBarleyPigs* Farm::m_ospringbarleypigs

protected

Definition at line 899 of file farm.h.

OTriticale* Farm::m_otriticale

protected

Definition at line 901 of file farm.h.

FarmManager* Farm::m_OurManager

protected

Pointer to the FarmManager.

Definition at line 837 of file farm.h.

Referenced by OptimisingFarm::ActualProfit(), OptimisingPigFarm::check_WRape_WBarley(), OptimisingCattleFarm::checkCattleRotation(), OptimisingCattleFarm::checkCattleRotation_almass(), AnimalFarm::checkWinterCrops(), NonAnimalFarm::checkWinterCrops(), AnimalFarm::checkWinterRotation1(), AnimalFarm::correctFodderDemand(), AnimalFarm::createFodderCrops(), OptimisingFarm::createVariableCrops(), OptimisingFarm::crop_parameter(), AnimalFarm::decreaseCrops(), OptimisingFarm::determineAreas(), AnimalFarm::determineFodderAreas(), AnimalFarm::determineMinFodder(), OptimisingFarm::findCropByName(), OptimisingFarm::findCropByName_almass(), OptimisingFarm::findFertilizer(), OptimisingFarm::findFodderDemand(), OptimisingFarm::findGrossMargin(), OptimisingFarm::findResponse(), OptimisingFarm::findTotalNanim(), AnimalFarm::increaseCrops(), OptimisingFarm::Initialize(), OptimisingFarm::Make_rotations(), OptimisingFarm::Match_crop_to_field(), OptimisingFarm::OptimisingFarm(), OptimisingFarm::optimizeCrops(), and OptimisingCattleFarm::setCattleCropsAtMin().

OWinterBarley* Farm::m_owinterbarley

protected

Definition at line 902 of file farm.h.

OWinterBarleyExt* Farm::m_owinterbarleyext

protected

Definition at line 903 of file farm.h.

OWinterRape* Farm::m_owinterrape

protected

Definition at line 904 of file farm.h.

OWinterRye* Farm::m_owinterrye

protected

Definition at line 905 of file farm.h.

OWinterWheat* Farm::m_owinterwheat

protected

Definition at line 907 of file farm.h.

OWinterWheatUndersown* Farm::m_owinterwheatundersown

protected

Definition at line 906 of file farm.h.

OWinterWheatUndersownExt* Farm::m_owinterwheatundersownext

protected

Definition at line 908 of file farm.h.

PermanentSetAside* Farm::m_permanentsetaside

protected

Definition at line 912 of file farm.h.

vector<PermCropData> Farm::m_PermCrops

protected

Definition at line 841 of file farm.h.

Referenced by OptimisingFarm::Init(), OptimisingFarm::InitiateManagement(), OptimisingFarm::Make_rotations(), and UserDefinedFarm::UserDefinedFarm().

PermanentGrassGrazed* Farm::m_permgrassgrazed

protected

Definition at line 909 of file farm.h.

PermanentGrassLowYield* Farm::m_permgrasslowyield

protected

Definition at line 910 of file farm.h.

PermanentGrassTussocky* Farm::m_permgrasstussocky

protected

Definition at line 911 of file farm.h.

Potatoes* Farm::m_potatoes

protected

Definition at line 913 of file farm.h.

PotatoesIndustry* Farm::m_potatoesindustry

protected

Definition at line 914 of file farm.h.

LowPriority< FarmEvent* > Farm::m_queue

protected

Definition at line 838 of file farm.h.

vector<TTypesOfVegetation> Farm::m_rotation

protected

Definition at line 840 of file farm.h.

Referenced by AgroChemIndustryCerealFarm1::AgroChemIndustryCerealFarm1(), AgroChemIndustryCerealFarm2::AgroChemIndustryCerealFarm2(), AgroChemIndustryCerealFarm3::AgroChemIndustryCerealFarm3(), ConventionalCattle::ConventionalCattle(), ConventionalPig::ConventionalPig(), ConventionalPlant::ConventionalPlant(), ConvMarginalJord::ConvMarginalJord(), OptimisingFarm::Init(), OptimisingFarm::Make_rotations(), OptimisingFarm::Match_crop_to_field(), NoPesticideBaseFarm::NoPesticideBaseFarm(), NoPesticideNoPFarm::NoPesticideNoPFarm(), PesticideTrialControl::PesticideTrialControl(), PesticideTrialToxicControl::PesticideTrialToxicControl(), OptimisingFarm::Print_rotations(), and UserDefinedFarm::UserDefinedFarm().

int Farm::m_rotation_sync_index

protected

Definition at line 847 of file farm.h.

SpringBarleyCloverGrass* Farm::m_sbarleyclovergrass

protected

Definition at line 922 of file farm.h.

SeedGrass1* Farm::m_seedgrass1

protected

Definition at line 915 of file farm.h.

SeedGrass2* Farm::m_seedgrass2

protected

Definition at line 916 of file farm.h.

SetAside* Farm::m_setaside

protected

Definition at line 917 of file farm.h.

SpringBarley* Farm::m_springbarley

protected

Definition at line 918 of file farm.h.

SpringBarleyCloverGrassStrigling* Farm::m_springbarleyclovergrassstrigling

protected

Definition at line 938 of file farm.h.

SpringBarleyPeaCloverGrassStrigling* Farm::m_springbarleypeaclovergrassstrigling

protected

Definition at line 947 of file farm.h.

SpringBarleyPTreatment* Farm::m_springbarleyptreatment

protected

Definition at line 921 of file farm.h.

SpringBarleySeed* Farm::m_springbarleyseed

protected

Definition at line 923 of file farm.h.

SpringBarleySilage* Farm::m_springbarleysilage

protected

Definition at line 924 of file farm.h.

SpringBarleySKManagement* Farm::m_springbarleyskmanagement

protected

Definition at line 920 of file farm.h.

SpringBarleySpr* Farm::m_springbarleyspr

protected

Definition at line 919 of file farm.h.

SpringBarleyStrigling* Farm::m_springbarleystrigling

protected

Definition at line 939 of file farm.h.

SpringBarleyStriglingCulm* Farm::m_springbarleystriglingculm

protected

Definition at line 940 of file farm.h.

SpringBarleyStriglingSingle* Farm::m_springbarleystriglingsingle

protected

Definition at line 941 of file farm.h.

SpringRape* Farm::m_springrape

protected

Definition at line 925 of file farm.h.

bool Farm::m_stockfarmer

protected

Definition at line 845 of file farm.h.

Referenced by AgroChemIndustryCerealFarm1::AgroChemIndustryCerealFarm1(), AgroChemIndustryCerealFarm2::AgroChemIndustryCerealFarm2(), AgroChemIndustryCerealFarm3::AgroChemIndustryCerealFarm3(), ConventionalCattle::ConventionalCattle(), ConventionalPig::ConventionalPig(), ConventionalPlant::ConventionalPlant(), ConvMarginalJord::ConvMarginalJord(), OptimisingFarm::Make_rotations(), NoPesticideBaseFarm::NoPesticideBaseFarm(), NoPesticideNoPFarm::NoPesticideNoPFarm(), OrganicCattle::OrganicCattle(), OrganicPig::OrganicPig(), OrganicPlant::OrganicPlant(), PesticideTrialControl::PesticideTrialControl(), PesticideTrialToxicControl::PesticideTrialToxicControl(), PesticideTrialTreatment::PesticideTrialTreatment(), UserDefinedFarm::UserDefinedFarm(), UserDefinedFarm1::UserDefinedFarm1(), UserDefinedFarm10::UserDefinedFarm10(), UserDefinedFarm11::UserDefinedFarm11(), UserDefinedFarm12::UserDefinedFarm12(), UserDefinedFarm13::UserDefinedFarm13(), UserDefinedFarm14::UserDefinedFarm14(), UserDefinedFarm15::UserDefinedFarm15(), UserDefinedFarm16::UserDefinedFarm16(), UserDefinedFarm17::UserDefinedFarm17(), UserDefinedFarm2::UserDefinedFarm2(), UserDefinedFarm3::UserDefinedFarm3(), UserDefinedFarm4::UserDefinedFarm4(), UserDefinedFarm5::UserDefinedFarm5(), UserDefinedFarm6::UserDefinedFarm6(), UserDefinedFarm7::UserDefinedFarm7(), UserDefinedFarm8::UserDefinedFarm8(), and UserDefinedFarm9::UserDefinedFarm9().

Sugarbeet* Farm::m_sugarbeet

protected

Definition at line 876 of file farm.h.

Triticale* Farm::m_triticale

protected

Definition at line 926 of file farm.h.

WinterBarley* Farm::m_winterbarley

protected

Definition at line 927 of file farm.h.

WinterBarleyStrigling* Farm::m_winterbarleystrigling

protected

Definition at line 945 of file farm.h.

WinterRape* Farm::m_winterrape

protected

Definition at line 928 of file farm.h.

WinterRapeStrigling* Farm::m_winterrapestrigling

protected

Definition at line 943 of file farm.h.

WinterRye* Farm::m_winterrye

protected

Definition at line 929 of file farm.h.

WinterRyeStrigling* Farm::m_winterryestrigling

protected

Definition at line 944 of file farm.h.

WinterWheat* Farm::m_winterwheat

protected

Definition at line 930 of file farm.h.

WinterWheatStrigling* Farm::m_winterwheatstrigling

protected

Definition at line 935 of file farm.h.

WinterWheatStriglingCulm* Farm::m_winterwheatstriglingculm

protected

Definition at line 936 of file farm.h.

WinterWheatStriglingSingle* Farm::m_winterwheatstriglingsingle

protected

Definition at line 937 of file farm.h.

WWheatPControl* Farm::m_wwheatpcontrol

protected

Definition at line 931 of file farm.h.

WWheatPToxicControl* Farm::m_wwheatptoxiccontrol

protected

Definition at line 932 of file farm.h.

WWheatPTreatment* Farm::m_wwheatptreatment

protected

Definition at line 933 of file farm.h.

YoungForestCrop* Farm::m_youngforest

protected

Definition at line 948 of file farm.h.

---

The documentation for this class was generated from the following files:

• D:/CJT/Repos/ALMaSS_all/Landscape/farm.h
• D:/CJT/Repos/ALMaSS_all/Landscape/farm.cpp
• D:/CJT/Repos/ALMaSS_all/Landscape/farmfuncs.cpp