Hare_Female Class Reference

Class for female hares. More...

#include <Hare_All.h>

Inheritance diagram for Hare_Female:

Public Member Functions
void	BeginStep (void) override
	Female BeginStep. More...
void	Step (void) override
	Female Step. More...
void	EndStep (void) override
	Female EndStep. More...
	Hare_Female (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM, double p_weight, int a_age, int a_Ref)
	Female Constructor. More...
void	ReInit (struct_Hare a_data)
	Female object reinitiation. More...
void	Init (double p_weight, int a_age, int a_Ref)
	Object initiation. More...
	~Hare_Female () override
	Female Destructor. More...
void	dumpEnergy ()
	Used to record energetic status. More...
void	SetSterile ()
	Female is sterile. More...
void	ON_Dead () override
	The female is dead. More...
bool	UpdateYoung (THare *a_old, THare *a_new)
	Swap a young list pointer. More...
void	AddYoung (THare *a_new)
	Add a leveret to the list of kids. More...
void	ON_YoungKilled (THare *a_young)
	A leveret has been killed. More...
void	ON_RemoveYoung (THare *a_young)
	A leveret has matured. More...
void	AllYoungKilled ()
	Last leveret predated. More...
void	AllYoungMatured ()
	No more young to look after. More...
bool	ON_AreYouMyMum (THare *a_young)
	Debug function. More...
bool	SanityCheckYoungList ()
	Debug function. More...
Public Member Functions inherited from Hare_Juvenile
	Hare_Juvenile (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM, double p_weight)
	Constructor for the juvenile hare object. More...
void	ReInit (struct_Hare a_data)
	Juvenile object reinitiation. More...
void	Init (double p_weight)
	Object initiation. More...
	~Hare_Juvenile () override
	Destructor for the juvenile hare object. More...
Public Member Functions inherited from THare
	THare (int p_x, int p_y, Landscape *p_L, THare_Population_Manager *p_PPM)
	Constructor. More...
void	THareInit (int p_x, int p_y, THare_Population_Manager *p_PPM)
	Object Initiation. More...
	~THare () override
	Destructor. More...
double	GetWeight ()
double	GetTotalWeight ()
	Provide the wet weight of the hare. More...
int	GetAge ()
	Provide the age of the hare. More...
void	ON_MumDead (Hare_Female *a_Mum)
	Inform Mum that we are dead. More...
Hare_Female *	GetMum ()
	Get the mother pointer. More...
double	GetRMR ()
	Get todays RMR. More...
int	GetRefNum ()
	Get the refnum for this hare. More...
void	loadVegPalatability (void)
	Loads static member m_vegPalatability with data. More...
Public Member Functions inherited from TAnimal
	TAnimal (int x, int y, Landscape *L)
	The TAnimal constructor saving the x,y, location and the landscape pointer. More...
	TAnimal (int x, int y)
	The TAnimal constructor saving the x,y used if landscape is already set. More...
void	SetGuardMapIndex (int a_index_x, int a_index_y)
	Set the guard map index, this is used to avoid two animals operating in the same location when using multithread. More...
unsigned	SupplyFarmOwnerRef () const
	Get the current location farm ref if any. More...
AnimalPosition	SupplyPosition () const
	Returns the objects location and habitat type and veg type. More...
APoint	SupplyPoint () const
	Returns the objects location in ALMaSS coordinates. More...
int	SupplyPolygonRef () const
	Returns the polygon reference where the object is located. More...
TTypesOfLandscapeElement	SupplyPolygonType () const
	Returns the polygon type where the object is located. More...
int	Supply_m_Location_x () const
	Returns the ALMaSS x-coordinate. More...
int	Supply_m_Location_y () const
	Returns the ALMaSS y-coordinate. More...
int	SupplyGuardCellX () const
	Returns the x-index to the guard cell. More...
int	SupplyGuardCellY () const
	Returns the y-index to the guard cell. More...
int	SupplyAge () const
	Returns the animals age in days. More...
void	SetAge (int a_age)
	Sets the animals age in days. More...
virtual void	KillThis ()
	Sets all parameters ready for object destruction. More...
virtual void	CopyMyself ()
	Used to copy the object details to another in descendent classes. More...
void	SetX (const int a_x)
	Sets the x-coordinate. More...
void	SetY (const int a_y)
	Sets the y-coordinate. More...
virtual void	ReinitialiseObject (int a_x, int a_y, Landscape *a_l_ptr)
virtual void	ReinitialiseObject (int a_x, int a_y)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual int	WhatState ()
	Returns the objects current state number. More...
virtual void	Dying ()
	A wrapped for KillThis - ideally should not be used. More...
void	CheckManagement ()
	Used to start a check for any management related effects at the objects current location. More...
void	CheckManagementXY (int a_x, int a_y)
	Used to start a check for any management related effects at x,y. More...
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo () const
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone () const
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
void	ReinitialiseObjectBase ()
	Used to initialise an object. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()=default
	The destructor for TALMaSSObject. More...

Protected Member Functions
void	UpdateOestrous ()
	Update oestrous counter. More...
void	UpdateGestation ()
	Update gestation counter. More...
void	GiveBirth ()
	Produce a litter. More...
APoint	PlaceYoung ()
	Find somewhere nice for the babies to hide. More...
void	DoLactation ()
	Lactation. More...
void	Mating ()
	Mate. More...
TTypeOfHareState	st_Dispersal () override
	Female Dispersal. More...
TTypeOfHareState	st_Developing () override
	Female Developing. More...
TTypeOfHareState	st_Foraging ()
	Female Foraging. More...
TTypeOfHareState	st_ReproBehaviour ()
	Reproductive behaviour control. More...
void	InternalPesticideHandlingAndResponse () override
	Handles internal effects of pesticide exposure. If any effects are needed this method must be re-implemented by descendent classes. More...
void	GeneralEndocrineDisruptor (double a_pesticide_dose) override
	Handles internal effects of endocrine distrupter pesticide exposure for female. More...
void	GeneralOrganoPhosphate (double a_pesticide_dose) override
	Handles internal effects of organophosphate pesticide exposure for female. More...
Protected Member Functions inherited from Hare_Juvenile
TTypeOfHareState	st_Foraging ()
	Juvenile foraging. More...
void	st_NextStage ()
	Maturation to Hare_Male or Hare_Female. More...
TTypeOfHareState	st_Resting ()
	Juvenile Resting. More...
bool	ShouldMature ()
	Test for maturation. More...
bool	WasPredated () override
	Test for mortality. More...
Protected Member Functions inherited from THare
bool	Run (int a_dist, int a_direction)
	Run a distance in a direction. More...
void	EnergyBalance (TTypeOfActivity a_activity, int dist)
	Adjust energy balance for an activity. More...
void	TimeBudget (TTypeOfActivity a_activity, int dist)
	Adjust time budger for an activity. More...
void	st_Dying ()
	Tidy up before removing the object on death. More...
virtual void	Running (int a_max_dist)
	Run. More...
void	Walking (int a_dist, int a_direction)
	Walking. More...
double	Forage (int &time)
	Foraging. More...
double	ForageP (int &time)
	Foraging but also incorporating pesticide exposure. More...
double	ForageSquare (int a_x, int a_y)
	Forage from an area. More...
double	ForageSquareP (int a_x, int a_y, double *a_pestexposure)
	Forage from an area and resturn pesticide exposure as well as food. More...
int	GetPegDistance ()
	Get peg distance. More...
int	GetPegPull ()
	Get attractive force of peg. More...
int	GetPegDirection ()
	Get direction of peg. More...
void	MovePeg ()
	Move the peg according to attraction forces. More...
bool	OnFarmEvent (FarmToDo event) override
	Do we require a response to a farm event. More...
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Static Protected Member Functions
static TTypeOfHareState	st_Resting ()
	Resting. More...

Protected Attributes
int	m_NoYoung
	State variable - current litter size. More...
int	m_litter_no
	State variable - current litter number. More...
bool	m_sterile
	State variable - is/not sterile. More...
int	m_OestrousCounter
	State variable - Days in oestrous. More...
int	m_GestationCounter
	State variable - Days in gestation. More...
double	m_LeveretMaterial
	State variable - Mass of foetal material. More...
TTypeOfActivity	m_reproActivity
	State variable - current reproductive state. More...
TListOfHares	m_MyYoung
	Pointer to litter. More...
std::mutex	m_MyYoungMutex
	mutex for the young list. More...
Protected Attributes inherited from THare
TTypeOfHareState	m_CurrentHState
	Defines the current activity. More...
int	m_Age = 0
	State variale - hare age. More...
Hare_Object	m_Type
	State variale - the type of hare. More...
double	m_weight = 0.0
	State variale - hare weight g. More...
double	m_old_weight = 0.0
	State variale - last hare weight. More...
Hare_Female *	m_MyMum = nullptr
	Pointer to the hare's mum. More...
THare_Population_Manager *	m_OurPopulationManager
	Pointer to the hare population manager. More...
int	m_Lifespan = 0
	Physiolocal lifespan, assuming nothing else kills the hare (unlikely to reach this age) More...
int	m_ActivityTime = 0
	Minutes of potential activity time per day. More...
int	m_StarvationDays = 0
	State variable - the number of consecutive days in negative energy balance. More...
double	m_fatReserve = 0.0
	State variable - the energy reserve of the hare. More...
double	m_TodaysEnergy = 0.0
	State variable - the amount of energy available today, can be in deficit. More...
double	m_EnergyMax = 0.0
	State variable - the amount of energy it is possible to eat as a multiplyer or RMR. More...
double	m_KJRunning = 0.0
	KJ/m cost of running per kg hare. More...
double	m_KJWalking = 0.0
	KJ/m cost of walking per kg hare. More...
double	m_KJForaging = 0.0
	KJ/m cost of foraging per kg hare. More...
double	m_SpeedRunning = 0.0
	m/min speed of running per kg hare More...
double	m_SpeedWalking = 0.0
	m/min speed of walking per kg hare More...
double	m_foragingenergy = 0.0
	Energy obtained from foraging/feeding. More...
int	m_peg_x = 0
	peg x-coordinate More...
int	m_peg_y = 0
	peg y-coordinate More...
int	m_RefNum = 0
	Unique hare reference number, also functions as sex flag. More...
int	m_experiencedDensity = 0
	State variable used in alternative density-dependent configurations. More...
int	m_lastYearsDensity = 0
	State variable used in alternative density-dependent configurations. More...
int	m_ddindex = 0
	State variable used in alternative density-dependent configurations. More...
int	m_expDensity [365] = {}
	State variable used in alternative density-dependent configurations. More...
int	m_DensitySum = 0
	State variable used in alternative density-dependent configurations. More...
bool	m_IamSick = false
	flag for sickness - used in conjunction with disease configurations More...
double	m_pesticide_burden = 0.0
	State variable used to hold the current body-burden of pesticide. More...
double	m_pesticidedegradationrate = 0.0
	State variable used to hold the daily degredation rate of the pesticide in the body. More...
bool	m_pesticideInfluenced1 = false
	Flag to indicate pesticide effects (e.g. can be used for endocrine distruptors with delayed effects until birth). More...
Protected Attributes inherited from TAnimal
int	m_Location_x
	The objects ALMaSS x coordinate. More...
int	m_Location_y
	The objects ALMaSS y coordinate. More...
int	m_guard_cell_x
	The index x to the guard cell. More...
int	m_guard_cell_y
	The index y to the guard cell. More...
int	m_AgeDays {0}
	To hold the age in days. More...
PesticideToxicity	m_my_pesticide
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Additional Inherited Members
Static Public Member Functions inherited from THare
static void	SetMum (Hare_Female *)
	Set the mother pointer. Reimplemented in Hare_Infant. More...
Static Public Member Functions inherited from TAnimal
static void	SetSimulationWidth (int a_value)
	Sets the simulation width. More...
static void	SetSimulationHeight (int a_value)
	Sets the simulation height. More...
static void	SetDayInYear (int a_value)
	Sets the day in year attribute. More...
static void	SetOurLandscape (Landscape *a_value)
	Sets the landscape pointer. More...
static void	SetTempToday (double a_value)
	Sets the temperature today attribute. More...
Static Public Member Functions inherited from TALMaSSObject
static void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...
Static Public Attributes inherited from THare
static double *	m_vegPalatability = nullptr
	Will hold and array of palatability for hare for each tov type. Most are 1, but unpalatable vegetation can be specified here. More...
Static Protected Attributes inherited from TAnimal
static Landscape *	m_OurLandscape = nullptr
	A pointer to the landscape object shared with all TAnimal objects. More...
static int	m_SimulationWidth = 0
	A static member for the simulation width because it is often used by descendent classes. More...
static int	m_SimulationHeight = 0
	A static member for the simulation height because it is often used by descendent classes. More...
static double	m_TemperatureToday = 0.0
	A holder for the temperature today shared with all TAnimal objects. More...
static int	m_DayInYear = 0
	A holder for the day in year shared with all TAnimal objects. More...

Detailed Description

Class for female hares.

Constructor & Destructor Documentation

Hare_Female()

Hare_Female::Hare_Female	(	int	p_x,
		int	p_y,
		Landscape *	p_L,
		THare_Population_Manager *	p_PPM,
		double	p_weight,
		int	a_age,
		int	a_Ref
	)

Female Constructor.

                                    : Hare_Juvenile(p_x, p_y, p_L, p_PPM, p_weight) { Init(p_weight, a_age, a_Ref); }

References Init().

~Hare_Female()

Hare_Female::~Hare_Female ( )

override

Female Destructor.

                          {
    //Nothing to do
}

Member Function Documentation

AddYoung()

void Hare_Female::AddYoung

(

THare *

a_new

)

Add a leveret to the list of kids.

Adds a new young to the mothers list

{ m_MyYoung.push_back(a_new); }

References m_MyYoung.

Referenced by THare_Population_Manager::CreateObjects().

AllYoungKilled()

void Hare_Female::AllYoungKilled

(

)

Last leveret predated.

Behavioural switch to determine what to do on death of all young. Depends on what we were doing before.

                                 {
    switch (m_reproActivity)
    {
    case activity_oestrouscycle:
        break;
    case activity_inoestrous:
        break;
    case activity_gestation:
        break;
    case activity_givebirth:
    case activity_lactation:
        m_reproActivity = activity_oestrouscycle;
        m_OestrousCounter = cfg_DaysToOestrous.value();
        break;
    default:
        m_OurLandscape->Warn("Hare_Female::AllYoungKilled unknown activity", nullptr);
        exit(1);
    }
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, CfgInt::value(), and Landscape::Warn().

Referenced by ON_YoungKilled().

AllYoungMatured()

void Hare_Female::AllYoungMatured

(

)

No more young to look after.

                                  {
    m_NoYoung = 0;
    switch (m_reproActivity)
    {
    case activity_oestrouscycle:
        break;
    case activity_inoestrous:
        break;
    case activity_gestation:
        break;
    case activity_givebirth:
        break;
    case activity_lactation:
        m_reproActivity = activity_oestrouscycle;
        m_OestrousCounter = cfg_DaysToOestrous.value();
        break;
    default:
        m_OurLandscape->Warn("Hare_Female::AllYoungMatured unknown activity", nullptr);
        exit(1);
    }
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, m_NoYoung, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, CfgInt::value(), and Landscape::Warn().

Referenced by ON_RemoveYoung().

BeginStep()

void Hare_Female::BeginStep ( void  )

overridevirtual

Female BeginStep.

Reimplemented from Hare_Juvenile.

                            {
    m_ActivityTime = 1440; // Start the day
#ifdef __SIZERELATEDDEATH
    if ((m_OurLandscape->SupplyDayInYear()>0) && ((m_OurLandscape->SupplyDayInYear()<90))) {
        if (m_Age>365) {
            if (m_weight<cfg_hare_minimum_breeding_weight.value()) {
                ON_Dead();
                m_StepDone=true; // We need to skip the step code, we are dead
                return;
            }
        }
    }
#endif
#ifdef __DISEASEDDMORTALITY
    if (m_IamSick) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
        return;
    }
#endif
    if (WasPredated())
    {
        ON_Dead();
        m_StepDone = true; // We need to skip the step code, we are dead
        return;
    }
    // Age physiolocally
    if (++m_Age > m_Lifespan)
    {
        ON_Dead();
        m_StepDone = true; // We need to skip the step code, we are dead
        return;
    }
    m_KJWalking = m_OurPopulationManager->GetKJperM(static_cast<int>(floor(0.5 + m_weight)));
    m_KJRunning = m_KJWalking * 2;
    m_KJForaging = m_KJWalking;
    if (g_rand_uni_fnc() < cfg_hare_proximity_alert.value()) { Running(cfg_hare_escape_dist.value()); }
    // Checking code ***CJT***
    m_foragingenergy = 0;
#ifdef __DISEASEDDM
    m_experiencedDensity+=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    if (m_OurLandscape->SupplyDayInYear()==0) {
        m_lastYearsDensity=m_experiencedDensity/365;
        m_experiencedDensity=0;
        if (random(cfg_HareFemaleSicknessDensityDepValue.value())<m_lastYearsDensity) {
            m_IamSick=true;
        }
        else m_IamSick=false;
    }
#endif
#ifdef __DISEASEDDM2
    m_experiencedDensity+=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    if (m_OurLandscape->SupplyDayInYear()==0) {
        m_lastYearsDensity=m_experiencedDensity/365;
        m_experiencedDensity=0;
    }
#endif
#ifdef __DISEASEDDM3
    m_ddindex++;
    if (m_ddindex==365) {
        m_ddindex=0;
    }
    m_DensitySum-=m_expDensity[m_ddindex];
    m_expDensity[m_ddindex]=m_OurPopulationManager->GetTotalDensity(m_Location_x, m_Location_y);
    m_DensitySum+=m_expDensity[m_ddindex];
    m_lastYearsDensity= int(m_DensitySum * (1.0/365.0));
#endif
    // Set the maximum possible energy intake
    m_EnergyMax = GetRMR() * cfg_MaxEnergyIntakeScaler.value();
    CheckManagement();
}

References cfg_hare_escape_dist, cfg_hare_minimum_breeding_weight, cfg_hare_proximity_alert, cfg_HareFemaleSicknessDensityDepValue, cfg_MaxEnergyIntakeScaler, TAnimal::CheckManagement(), g_rand_uni_fnc(), THare_Population_Manager::GetKJperM(), THare::GetRMR(), THare_Population_Manager::GetTotalDensity(), THare::m_ActivityTime, THare::m_Age, THare::m_ddindex, THare::m_DensitySum, THare::m_EnergyMax, THare::m_expDensity, THare::m_experiencedDensity, THare::m_foragingenergy, THare::m_IamSick, THare::m_KJForaging, THare::m_KJRunning, THare::m_KJWalking, THare::m_lastYearsDensity, THare::m_Lifespan, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, THare::m_OurPopulationManager, TALMaSSObject::m_StepDone, THare::m_weight, ON_Dead(), THare::Running(), Landscape::SupplyDayInYear(), CfgInt::value(), CfgFloat::value(), and Hare_Juvenile::WasPredated().

DoLactation()

void Hare_Female::DoLactation ( )

protected

Lactation.

Feed the young milk.

Here the female uses energy and converts it to milk, which is shared equally between her leverets Assumptions:
a) There is a maximum amount of milk possible to feed to a leveret
b) Equal distribution of inadequate resources

NB the currency is KJ energy not milk per se

                              {
    double sz = static_cast<double>(m_MyYoung.size());
    if (m_fatReserve > 0)
    {
        // Zero is used here because it is possible to use all fat reserves on this
        double en = 63.7 * m_fatReserve;
        // en is the energy available for milk
        double rmr = m_MyYoung[0]->GetRMR();
        double maxMilk = (rmr + m_OurPopulationManager->GetMaxDailyGrowthEnergy(m_MyYoung[0]->GetAge())) * sz * (1 -
            g_PropSolidFood[m_MyYoung[0]->GetAge()]);
        if (en > maxMilk) { en = maxMilk; }
#ifdef __NOSTARVE
    en=maxMilk;
#endif
        // remove the energy used
        m_fatReserve -= en * (1.0 / 63.7); // 63.7 is the cost of 1g dw fat
        // KJ per young
        en /= sz;
        auto current = m_MyYoung.begin();
        while (current != m_MyYoung.end())
        {
            dynamic_cast<Hare_Infant*>(*current)->ON_BeingFed(en);
            ++current;
        }
    }
}

References g_PropSolidFood, THare::GetAge(), THare_Population_Manager::GetMaxDailyGrowthEnergy(), THare::m_fatReserve, m_MyYoung, and THare::m_OurPopulationManager.

Referenced by GiveBirth(), and st_ReproBehaviour().

dumpEnergy()

void Hare_Female::dumpEnergy

(

)

Used to record energetic status.

                             {
    FILE* fp = fopen("EnergyCheck.txt", "a");
    int wt = static_cast<int>(floor(0.5 + m_weight));
    int fe = static_cast<int>(floor(0.5 + m_foragingenergy));
    int fr = static_cast<int>(floor(0.5 + m_fatReserve));
    int te = static_cast<int>(floor(0.5 + m_TodaysEnergy));
    fprintf(fp, "%d\t%d\t%d\t%d\t%d\n", m_OurLandscape->SupplyDayInYear(), wt, fe, fr, te);
    fclose(fp);
}

References THare::m_fatReserve, THare::m_foragingenergy, TAnimal::m_OurLandscape, THare::m_TodaysEnergy, THare::m_weight, and Landscape::SupplyDayInYear().

Referenced by st_Foraging().

EndStep()

void Hare_Female::EndStep ( void  )

overridevirtual

Female EndStep.

Reimplemented from Hare_Juvenile.

                          {
    MovePeg();
    if (cfg_hare_pesticideresponse_on.value()) InternalPesticideHandlingAndResponse();
}

References cfg_hare_pesticideresponse_on, InternalPesticideHandlingAndResponse(), THare::MovePeg(), and CfgBool::value().

GeneralEndocrineDisruptor()

void Hare_Female::GeneralEndocrineDisruptor ( double  a_pesticide_dose )

overrideprotectedvirtual

Handles internal effects of endocrine distrupter pesticide exposure for female.

Reimplemented from THare.

                                                    {
    // May also wish to specify certain gestation days for the effects here
    if (m_GestationCounter > 0) { m_pesticideInfluenced1 = true; }
}

References m_GestationCounter, and THare::m_pesticideInfluenced1.

Referenced by InternalPesticideHandlingAndResponse().

GeneralOrganoPhosphate()

void Hare_Female::GeneralOrganoPhosphate ( double  a_pesticide_dose )

overrideprotectedvirtual

Handles internal effects of organophosphate pesticide exposure for female.

Reimplemented from THare.

                                                 {
    if (g_rand_uni_fnc() > l_pest_daily_mort.value()) return;
    m_CurrentHState = tohs_Dying;
    m_StepDone = true;
}

References g_rand_uni_fnc(), l_pest_daily_mort, THare::m_CurrentHState, TALMaSSObject::m_StepDone, tohs_Dying, and CfgFloat::value().

Referenced by InternalPesticideHandlingAndResponse().

GiveBirth()

void Hare_Female::GiveBirth ( )

protected

Produce a litter.

Give birth to Hare_Infants.

Lets assume we do this a deterministic way. So the number of leverets depends on the mass of leveret material collected.
The size is determined by the mass divided by the number possible such that size stays in the range 95-125g
Litter size limited to max 4

Once they are born they need to be placed somewhere. This should be somewhere where the vegetation is not too sparse

                            {
    int NoLeverets = 0;
    if (m_pesticideInfluenced1)
    {
        // Could do lots now, e.g. take a test to determine if we reduce repro or abandon it.   
        // The option below reduces the energy for leveret development by 0-100%
        //m_LeveretMaterial *= g_rand_uni();
        // Here we take it all
        m_LeveretMaterial = 0;
        m_pesticideInfluenced1 = false;
    }
 
    // THIS CODE IS FOR DOING IT ON THE BASIS OF ENERGY
    double mi = cfg_minLeveretBirthWeight.value();
    if (m_LeveretMaterial / 4.0 > mi) NoLeverets = 4;
    else if (m_LeveretMaterial / 3.0 > mi) NoLeverets = 3;
    else if (m_LeveretMaterial / 2.0 > mi) NoLeverets = 2;
    else if (m_LeveretMaterial > mi) NoLeverets = 1;
    if (NoLeverets == 0)
    {
        // Can't produce a leveret - abort the pregnancy
        m_LeveretMaterial = 0;
        m_reproActivity = activity_oestrouscycle;
        m_OestrousCounter = cfg_DaysToOestrous.value();
        return;
    }
    double leveret_size = m_LeveretMaterial / static_cast<double>(NoLeverets);
    if (leveret_size > cfg_maxLeveretBirthWeight.value()) { leveret_size = cfg_maxLeveretBirthWeight.value(); }
    // END ENERGETIC
    /*
    // THIS IS THE ALTERNATIVE 1 _ GET THE NUMBER BASED ON WHETHER IT IS FIRST, 2ND, 3RD etc..
    NoLeverets=m_OurPopulationManager->GetLitterSize(m_litter_no++);
    if (NoLeverets<1) {
      AllYoungKilled();
      return;
    }
    leveret_size=cfg_HareStartWeight.value(); // NB No variability in start weight
    */
    // END ALTERNATE 1
    /* ALTERNATE 2 - Here we adjust for the weight of the female
  
    if (m_weight > cfg_hare_minimum_breeding_weight.value() ) {
      NoLeverets=m_OurPopulationManager->GetLitterSize(m_litter_no++);
    }
    else {
    }
    if (NoLeverets<1) {
      AllYoungKilled();
      return;
    }
    leveret_size=cfg_HareStartWeight.value(); // NB No variability in start weight
    */
    // END ALTERNATE 2
 
    // Create the data required
    auto sp = new struct_Hare;
    sp->HM = m_OurPopulationManager;
    sp->L = m_OurLandscape;
    sp->Mum = this;
    sp->weight = leveret_size;
    APoint pt = PlaceYoung();
    sp->x = pt.m_x;
    sp->y = pt.m_y;
    // Make the leverets
    m_OurPopulationManager->CreateObjects(0, this, nullptr, sp, NoLeverets);
    delete sp;
    m_litter_no++;
    m_reproActivity = activity_lactation;
#ifdef __saveLitterInfo
    //Temporary Output Start
    FILE* fp = fopen("LitterProduction.txt", "a");
    int month = m_OurLandscape->SupplyMonth();
    fprintf(fp, "%i\t%i\t%f\t%d\n", month, NoLeverets, leveret_size, m_litter_no);
    fclose(fp);
    // End
#endif
    // Feed them today
    DoLactation();
}

References activity_lactation, activity_oestrouscycle, cfg_DaysToOestrous, cfg_maxLeveretBirthWeight, cfg_minLeveretBirthWeight, THare_Population_Manager::CreateObjects(), DoLactation(), struct_Hare::HM, m_LeveretMaterial, m_litter_no, m_OestrousCounter, TAnimal::m_OurLandscape, THare::m_OurPopulationManager, THare::m_pesticideInfluenced1, m_reproActivity, APoint::m_x, APoint::m_y, PlaceYoung(), Landscape::SupplyMonth(), CfgInt::value(), and CfgFloat::value().

Referenced by st_ReproBehaviour().

Init()

void Hare_Female::Init	(	double	p_weight,
		int	a_age,
		int	a_Ref
	)

Object initiation.

                                                            {
    m_Type = hob_Female;
    m_fatReserve = p_weight * 3.8 * 0.04; // To get 4% of WW+ingesta
    m_sterile = false;
    m_weight = p_weight;
    m_old_weight = p_weight;
    m_Age = a_age;
    m_OestrousCounter = 0;
    m_GestationCounter = 0;
    m_LeveretMaterial = 0;
    m_reproActivity = activity_oestrouscycle;
    m_litter_no = 0;
    m_KJWalking = m_OurPopulationManager->GetKJperM(static_cast<int>(floor(0.5 + m_weight)));
    m_KJRunning = m_KJWalking * 2;
    m_KJForaging = m_KJWalking;
    m_IamSick = false;
    m_RefNum = a_Ref;
}

References activity_oestrouscycle, THare_Population_Manager::GetKJperM(), hob_Female, THare::m_Age, THare::m_fatReserve, m_GestationCounter, THare::m_IamSick, THare::m_KJForaging, THare::m_KJRunning, THare::m_KJWalking, m_LeveretMaterial, m_litter_no, m_OestrousCounter, THare::m_old_weight, THare::m_OurPopulationManager, THare::m_RefNum, m_reproActivity, m_sterile, THare::m_Type, and THare::m_weight.

Referenced by Hare_Female(), and ReInit().

InternalPesticideHandlingAndResponse()

void Hare_Female::InternalPesticideHandlingAndResponse ( )

overrideprotectedvirtual

Handles internal effects of pesticide exposure. If any effects are needed this method must be re-implemented by descendent classes.

This method is re-implemented ffrom THare for any class which has pesticide response behaviour. If the body burden exceeds the trigger then call pesticide-specific actions by dose

Reimplemented from THare.

                                                       {
    TTypesOfPesticide tp = m_OurLandscape->SupplyPesticideType();
    double pesticideInternalConc = m_pesticide_burden / m_weight;
 
    if (m_pesticide_burden > 0)
        m_OurPopulationManager->BodyBurdenOut(m_OurLandscape->SupplyYearNumber(), m_OurLandscape->SupplyDayInYear(),
                                              m_pesticide_burden, pesticideInternalConc);
 
    if (pesticideInternalConc > cfg_HarePesticideAccumulationThreshold.value())
    {
        switch (tp)
        {
        case ttop_NoPesticide:
            break;
        case ttop_ReproductiveEffects:
            GeneralEndocrineDisruptor(pesticideInternalConc); // Calls the EndocrineDisruptor action code
            break;
        case ttop_AcuteEffects:
            GeneralOrganoPhosphate(pesticideInternalConc); // Calls the GeneralOrganophosphate action code
            break;
        default:
            exit(47);
        }
    }
    m_pesticide_burden *= m_pesticidedegradationrate;
    // Does nothing by default except internal degredation of the pesticide
}

References THare_Population_Manager::BodyBurdenOut(), cfg_HarePesticideAccumulationThreshold, GeneralEndocrineDisruptor(), GeneralOrganoPhosphate(), TAnimal::m_OurLandscape, THare::m_OurPopulationManager, THare::m_pesticide_burden, THare::m_pesticidedegradationrate, THare::m_weight, Landscape::SupplyDayInYear(), Landscape::SupplyPesticideType(), Landscape::SupplyYearNumber(), ttop_AcuteEffects, ttop_NoPesticide, ttop_ReproductiveEffects, and CfgFloat::value().

Referenced by EndStep().

Mating()

void Hare_Female::Mating ( )

protected

Mate.

                         {
    // Sigh, need to develop code to determine if a male is close - how does
    // she choose a mate?? TODO if we ever consider males limiting or need population genetics
    // This is complicated by multiple matings in real life too.
    //
    // Assuming she has a mate and is mated
    m_GestationCounter = cfg_hare_DaysToGestation.value();
    m_reproActivity = activity_gestation;
    m_LeveretMaterial = 0;
}

References activity_gestation, cfg_hare_DaysToGestation, m_GestationCounter, m_LeveretMaterial, m_reproActivity, and CfgInt::value().

Referenced by st_ReproBehaviour().

ON_AreYouMyMum()

bool Hare_Female::ON_AreYouMyMum

(

THare *

a_young

)

Debug function.

Debug code for checking young lists.

                                               {
    m_NoYoung = static_cast<int>(m_MyYoung.size());
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        if (*current == a_young) { return true; }
        ++current;
    }
    return false;
}

References m_MyYoung, and m_NoYoung.

ON_Dead()

void Hare_Female::ON_Dead ( void  )

overridevirtual

The female is dead.

Do the housekeeping needed for object destruction

Reimplemented from Hare_Juvenile.

                          {
    // if she has young she must tell them she is dead
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        (*current)->ON_MumDead(this);
        ++current;
    }
    m_MyYoung.clear(); // Needed because of the potential for object re-use
    m_CurrentHState = tohs_Dying;
    m_CurrentStateNo = -1;
    m_StepDone = true;
}

References THare::m_CurrentHState, TALMaSSObject::m_CurrentStateNo, m_MyYoung, TALMaSSObject::m_StepDone, and tohs_Dying.

Referenced by BeginStep(), and Step().

ON_RemoveYoung()

void Hare_Female::ON_RemoveYoung

(

THare *

a_young

)

A leveret has matured.

This functions simply sorts through the m_Young vector and removes the matured young.
This is identical to ON_YoungKilled, but differs in the result of removing the last one.

                                               {
    //only one tread can work here
    std::lock_guard<std::mutex> guard(m_MyYoungMutex);
    m_NoYoung = static_cast<int>(m_MyYoung.size());
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        if (*current == a_young)
        {
            m_MyYoung.erase(current);
            if (m_MyYoung.size() == 0)
            {
                // All young grown up do something appropriate
                AllYoungMatured();
            }
            m_NoYoung = static_cast<int>(m_MyYoung.size());
            return;
        }
        ++current;
    }
    // Should never get here...raise an error and duck out of the program.
    //
    m_OurLandscape->Warn("Hare_Female::ON_RemoveYoung - unknown young", nullptr);
    exit(1);
}

References AllYoungMatured(), m_MyYoung, m_MyYoungMutex, m_NoYoung, TAnimal::m_OurLandscape, and Landscape::Warn().

Referenced by Hare_Young::st_NextStage().

ON_YoungKilled()

void Hare_Female::ON_YoungKilled

(

THare *

a_young

)

A leveret has been killed.

This functions sorts through the m_Young vector and removes the dead young

                                               {
    //only one tread can work here
    std::lock_guard<std::mutex> guard(m_MyYoungMutex);
    m_NoYoung = static_cast<int>(m_MyYoung.size());
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        if (*current == a_young)
        {
            m_MyYoung.erase(current);
            if (m_MyYoung.size() == 0)
            {
                // All young eaten do something appropriate
                AllYoungKilled();
            }
            return;
        }
        ++current;
    }
    // Should never get here...raise an error and duck out of the program.
    //
    m_OurLandscape->Warn("Hare_Female::ON_YoungKilled - unknown young", nullptr);
    exit(1);
}

References AllYoungKilled(), m_MyYoung, m_MyYoungMutex, m_NoYoung, TAnimal::m_OurLandscape, and Landscape::Warn().

Referenced by THare::st_Dying().

PlaceYoung()

APoint Hare_Female::PlaceYoung ( )

protected

Find somewhere nice for the babies to hide.

Find a place to put the young.

                               {
    APoint pt;
    int loop = 0;
    while (loop++ < 500)
    {
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y - loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x - loop, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
        pt = m_OurLandscape->CorrectCoordsPt(m_Location_x + loop, m_Location_y + loop);
        if (m_OurLandscape->SupplyVegHeight(pt.m_x, pt.m_y) >= 30) return pt;
    }
    pt.m_x = m_Location_x;
    pt.m_y = m_Location_y;
    return pt;
}

References Landscape::CorrectCoordsPt(), TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, APoint::m_x, APoint::m_y, and Landscape::SupplyVegHeight().

Referenced by GiveBirth().

ReInit()

void Hare_Female::ReInit

(

struct_Hare

a_data

)

Female object reinitiation.

                                           {
    m_Location_x = a_data.x;
    m_Location_y = a_data.y;
    m_OurLandscape = a_data.L;
    m_CurrentStateNo = 0;
    THareInit(a_data.x, a_data.y, a_data.HM);
    Init(a_data.weight, a_data.age, a_data.RefNum);
}

References struct_Hare::age, struct_Hare::HM, Init(), struct_Hare::L, TALMaSSObject::m_CurrentStateNo, TAnimal::m_Location_x, TAnimal::m_Location_y, TAnimal::m_OurLandscape, struct_Hare::RefNum, THare::THareInit(), struct_Hare::weight, struct_Hare::x, and struct_Hare::y.

SanityCheckYoungList()

bool Hare_Female::SanityCheckYoungList

(

)

Debug function.

Debug code for checking young lists.

                                       {
    m_NoYoung = static_cast<int>(m_MyYoung.size());
    unsigned int current = 0;
    while (current < m_MyYoung.size())
    {
        if (m_MyYoung[current]->GetMum() != this) { return false; }
        current++;
    }
    return true;
}

References THare::GetMum(), m_MyYoung, and m_NoYoung.

SetSterile()

void Hare_Female::SetSterile ( )

inline

Female is sterile.

{ m_sterile = true; }

References m_sterile.

Referenced by THare_Population_Manager::DoFirst().

st_Developing()

TTypeOfHareState Hare_Female::st_Developing ( )

overrideprotectedvirtual

Female Developing.

Reimplemented from Hare_Juvenile.

                                            {
    //Assumes that the fatReserve has been added to by st_Foraging from yesterday
    //
    // This is the last behaviour state called each day, so we can use this to sort out
    // the energetics
    //Assumes that the fatReserve has been added to by st_Foraging from yesterday
    //
 
    EnergyBalance(activity_Resting, 1440); // calculates the energy use by BMR
    if (m_TodaysEnergy < 0)
    {
        m_fatReserve += m_TodaysEnergy * (1.0 / 42.7);
        m_TodaysEnergy = 0;
    }
    // Grow
    // Solid food absorption is already taken into account by this time
    if (m_Age < 365)
    {
        double Target = m_OurPopulationManager->GetMaxDailyGrowthEnergyP(m_Age);
        if (m_TodaysEnergy < Target) Target = m_TodaysEnergy;
        double addedtoday = Target * m_OurPopulationManager->GetGrowthEfficiencyP(m_Age);
        m_weight += addedtoday;
        m_TodaysEnergy -= Target;
        Target = m_OurPopulationManager->GetMaxDailyGrowthEnergyF(m_Age);
        if (m_TodaysEnergy < Target) Target = m_TodaysEnergy;
        addedtoday = Target * m_OurPopulationManager->GetGrowthEfficiencyF(m_Age);
        m_weight += addedtoday;
        m_TodaysEnergy -= Target;
    }
    else
    {
        double Target = m_OurPopulationManager->GetMaxDailyGrowthEnergyF(m_Age);
        if (m_TodaysEnergy < Target) Target = m_TodaysEnergy;
        double gf = m_OurPopulationManager->GetGrowthEfficiencyF(m_Age);
        double addedtoday = Target * gf;
        m_weight += addedtoday;
        m_TodaysEnergy -= Target;
    }
    if (m_TodaysEnergy > 0)
    {
        // Put what remains back into fat reserve
        m_fatReserve += m_TodaysEnergy * m_OurPopulationManager->GetGrowthEfficiencyF(366);
        // 366 is the adult fat conversion efficiency
        m_TodaysEnergy = 0;
        // Cap the fat reserve and store surplus energy for today
        if (m_fatReserve > cfg_AdultMaxFat.value() * m_weight) { m_fatReserve = cfg_AdultMaxFat.value() * m_weight; }
        m_StarvationDays = 0; // Not starving
        return tohs_Foraging;
    }
    m_fatReserve += m_TodaysEnergy * m_OurPopulationManager->GetGrowthEfficiencyF(366);
    // 366 is the adult fat conversion efficiency
    if (m_fatReserve < 0)
    {
        m_TodaysEnergy = m_fatReserve / m_OurPopulationManager->GetGrowthEfficiencyF(366);
        m_fatReserve = 0.0;
    }
    else m_TodaysEnergy = 0;
    // What should the criteria for a starvation day be?
    //double rmr=m_OurPopulationManager->GetRMR(m_Age, GetTotalWeight());
    //if (m_TodaysEnergy<(0.0-(rmr*0.25)))
    if (m_TodaysEnergy < 0.0)
    {
        // Oh oh, we are starving need to lose body weight and maybe we will die?
#ifdef __ADULT_WT_STARVE_CHANCE
        int testval = 0;
        if (m_Age < cfg_fixadult_starve.value())
        {
            // Somewhere between juvenile and adult so use in between values
            int diff = cfg_adult_starve.value() - cfg_juv_starve.value();
            testval = cfg_adult_starve.value() - static_cast<int>((1.0 - static_cast<double>(m_Age) /
                cfg_fixadult_starve.value()) * diff);
        }
        else testval = cfg_adult_starve.value();
        if (++m_StarvationDays > cfg_adult_starvation_threshold.value())
        {
            if (g_random_fnc(10000) > testval) { return tohs_Dying; }
        }
#ifdef __NOKNOCKONENERGYEFFECT
                else m_TodaysEnergy=0.0;
#endif
#else
                if (++m_StarvationDays > cfg_adult_starvation_threshold.value()) {
                    return tohs_Dying;
                }
#endif
    }
    else
    {
        m_StarvationDays--; // Not starving
        if (m_StarvationDays < 0) m_StarvationDays = 0;
        m_TodaysEnergy = 0;
    }
    // If we have kids then we expect this for a while, so only dispere if fat reserves are less than 0
    if (m_reproActivity != activity_lactation || m_fatReserve < 0)
    {
        if (g_random_fnc(3) == 0) return tohs_Dispersal; // We are hungry, we need to disperse
    }
    // end if energy<0
    return tohs_Foraging;
}

References activity_lactation, activity_Resting, cfg_adult_starvation_threshold, cfg_adult_starve, cfg_AdultMaxFat, cfg_fixadult_starve, cfg_juv_starve, THare::EnergyBalance(), g_random_fnc(), THare_Population_Manager::GetGrowthEfficiencyF(), THare_Population_Manager::GetGrowthEfficiencyP(), THare_Population_Manager::GetMaxDailyGrowthEnergyF(), THare_Population_Manager::GetMaxDailyGrowthEnergyP(), THare::m_Age, THare::m_fatReserve, THare::m_OurPopulationManager, m_reproActivity, THare::m_StarvationDays, THare::m_TodaysEnergy, THare::m_weight, tohs_Dispersal, tohs_Dying, tohs_Foraging, CfgInt::value(), and CfgFloat::value().

Referenced by Step().

st_Dispersal()

TTypeOfHareState Hare_Female::st_Dispersal ( void  )

overrideprotectedvirtual

Female Dispersal.

Uses the base class st_dispersal but then adds some special female functionality.

Reimplemented from Hare_Juvenile.

                                           {
    TTypeOfHareState tohs = Hare_Juvenile::st_Dispersal();
    if (tohs == tohs_Dying) return tohs_Dying;
    // If dispersal is called, then she must be deserting any young she has
    // The easiest way to do this is to lie, and tell them she is dead
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        (*current)->ON_MumDead(this);
        ++current;
    }
    // Now must clear the list.
    if (m_MyYoung.size() >= 1)
    {
        m_MyYoung.erase(m_MyYoung.begin(), m_MyYoung.end()); // Remove all elements
        m_reproActivity = activity_oestrouscycle;
    }
    m_peg_x = m_Location_x;
    m_peg_y = m_Location_y;
    return tohs_Foraging;
}

References activity_oestrouscycle, TAnimal::m_Location_x, TAnimal::m_Location_y, m_MyYoung, THare::m_peg_x, THare::m_peg_y, m_reproActivity, Hare_Juvenile::st_Dispersal(), tohs_Dying, and tohs_Foraging.

Referenced by Step().

st_Foraging()

TTypeOfHareState Hare_Female::st_Foraging ( )

protected

Female Foraging.

Effectively the day is started here, unless we have been dispersing.
At this point we have a whole day to use and need to figure out how to use it.
There are some constraints on the time we can use for foraging such that we need a certain amount of time for resting e.g. coprophagy. For now I am going to assume that the resting time required is proportional to forage time used and the ratio of the two is in cfg_ForageRestingRatio

Four different ways of implementing density dependence are selectable here.

                                          {
    double time = static_cast<double>(m_ActivityTime) * cfg_ForageRestingRatio.value();
    // We need to rest if there is no more time
    if (time < 30) return tohs_Resting;
    // If there are more hares here then interference reduces the activity time
#ifdef __DELAYEDDD
   int hares=(m_OurPopulationManager->GetDelayedAdultDensity(m_Location_x, m_Location_y));
#else
    int hares = m_OurPopulationManager->GetAdultDensity(m_Location_x, m_Location_y);
#endif
#ifdef __THRESHOLD_AD_DD
  if (hares<m_OurPopulationManager->m_HareThresholdDD) hares=0;
  else hares-=m_OurPopulationManager->m_HareThresholdDD;
#endif
#ifdef __DISEASEDDM2
    double inter=m_OurPopulationManager->GetInterference(m_lastYearsDensity);
#else
#ifdef __DISEASEDDM3
    double inter=m_OurPopulationManager->GetInterference(m_lastYearsDensity);
#else
#ifndef __DDEPMORT
    double inter = m_OurPopulationManager->GetInterference(hares);
#else
#ifndef __DISEASEDDM
      double inter=m_OurPopulationManager->GetInterference(hares);
#else
      double inter=1.0;
#endif
#endif
#endif
#endif
    if (inter < 0.5 && time > 300)
    {
        if (m_reproActivity != activity_lactation)
        {
            // Don't abandon kids just because others want to be here too
            if (g_rand_uni_fnc() > inter) // added to reduce rate of dispersal
            {
                //m_ActivityTime = (int)(time / cfg_ForageRestingRatio.value());
                return tohs_Dispersal; // Added Sat 15th Dec 2007
            }
        }
    }
    time *= inter;
    // Given the time we have then we need to feed, which will return an energy value obtained.
    int a_time = static_cast<int>(time);
    if (cfg_hare_pesticideresponse_on.value()) { m_TodaysEnergy = ForageP(a_time); }
    else { m_TodaysEnergy = Forage(a_time); }
    // We need to spend energy on foraging and associated movement - done in ForageSquare()
    //
    TimeBudget(activity_Foraging, static_cast<int>(time) - a_time);
    // Print the energy checking output
#ifdef __saveEnergyInfo
   dumpEnergy();
#endif
    return tohs_ReproBehaviour;
}

References activity_Foraging, activity_lactation, cfg_ForageRestingRatio, cfg_hare_pesticideresponse_on, dumpEnergy(), THare::Forage(), THare::ForageP(), g_rand_uni_fnc(), THare_Population_Manager::GetAdultDensity(), THare_Population_Manager::GetDelayedAdultDensity(), THare_Population_Manager::GetInterference(), THare::m_ActivityTime, THare_Population_Manager::m_HareThresholdDD, THare::m_lastYearsDensity, TAnimal::m_Location_x, TAnimal::m_Location_y, THare::m_OurPopulationManager, m_reproActivity, THare::m_TodaysEnergy, THare::TimeBudget(), tohs_Dispersal, tohs_ReproBehaviour, tohs_Resting, CfgFloat::value(), and CfgBool::value().

Referenced by Step().

st_ReproBehaviour()

TTypeOfHareState Hare_Female::st_ReproBehaviour ( )

protected

Reproductive behaviour control.

A switch determining what repro behaviour to carry out.

Repro behaviour to consider:
1) Mating - either a function of her or the male - but lets keep it here so the male is a simple as possible.
2) Update Gestation.
3) Give Birth.
4) Lactation.
5) Getting resources for leveret production.
6) Determining leveret size and litter size?

Also optional mortality based upon reproductive mortality

                                                {
    // First find out what kind of behaviour we are in:
#ifdef __REPROMORTCHANCE
         // Repromortchance is a function of size, the bigger you are the less chance of mortality
         int mc=0;
#endif
    switch (m_reproActivity)
    {
    case activity_oestrouscycle:
        UpdateOestrous();
        break;
    case activity_inoestrous:
        Mating();
        break;
    case activity_gestation:
        UpdateGestation();
        break;
    case activity_givebirth:
#ifdef __REPROMORTCHANCE
         // Repromortchance is a function of size, the bigger you are the less chance of mortality
         mc=random(100+(int)m_weight-cfg_hare_minimum_breeding_weight.value());
         if (mc<cfg_HareFemaleReproMortValue.value()) {
             return tohs_Dying;
         }
#endif
        GiveBirth();
        break;
    case activity_lactation:
        DoLactation();
        break;
    default:
        m_OurLandscape->Warn("Hare_Female::st_ReproBehaviour unknown activity", nullptr);
        exit(1);
    }
    return tohs_Resting;
}

References activity_gestation, activity_givebirth, activity_inoestrous, activity_lactation, activity_oestrouscycle, cfg_hare_minimum_breeding_weight, cfg_HareFemaleReproMortValue, DoLactation(), GiveBirth(), TAnimal::m_OurLandscape, m_reproActivity, THare::m_weight, Mating(), tohs_Dying, tohs_Resting, UpdateGestation(), UpdateOestrous(), CfgInt::value(), and Landscape::Warn().

Referenced by Step().

st_Resting()

TTypeOfHareState Hare_Female::st_Resting ( )

staticprotected

Resting.

This method uses up the rest of the day in resting

                                         {
    return tohs_Developing;
}

References tohs_Developing.

Referenced by Step().

Step()

void Hare_Female::Step ( void  )

overridevirtual

Female Step.

Reimplemented from Hare_Juvenile.

                       {
    if (m_StepDone || m_CurrentStateNo == -1) return;
    switch (m_CurrentHState)
    {
    case tohs_InitialState: // Initial state
        m_CurrentHState = tohs_Foraging;
        break;
    case tohs_Dispersal:
        // Legal returns are:
        // tohs_Foraging
        // Dispersal is risky therefore take a test again
#ifdef __DISPERSALDDM
       if (g_rand_uni()<(cfg_hare_adult_predation.value())) {
        ON_Dead();
        m_StepDone=true; // We need to skip the step code, we are dead
        return;
    }
#endif
        m_CurrentHState = st_Dispersal();
        break;
    case tohs_Foraging:
        // Legal returns are:
        // tohs_ReproBehaviour
        m_CurrentHState = st_Foraging();
        break;
    case tohs_Resting:
        // Legal returns are:
        // tohs_Developing
        m_CurrentHState = st_Resting();
        break;
    case tohs_ReproBehaviour:
        // Legal returns are:
        // tohs_Resting (& possibly dying)
        m_CurrentHState = st_ReproBehaviour();
        break;
    case tohs_Developing:
        // Legal returns are:
        // tohs_Dying
        // tohs_Foraging
        // tohs_Dispersal
        m_CurrentHState = st_Developing();
        m_StepDone = true;
        break;
    case tohs_Dying:
        ON_Dead();
        m_StepDone = true;
        break;
    default:
        m_OurLandscape->Warn("Hare_Female::Step - unknown state", nullptr);
        exit(1);
    }
}

References cfg_hare_adult_predation, THare::m_CurrentHState, TALMaSSObject::m_CurrentStateNo, TAnimal::m_OurLandscape, TALMaSSObject::m_StepDone, ON_Dead(), st_Developing(), st_Dispersal(), st_Foraging(), st_ReproBehaviour(), st_Resting(), tohs_Developing, tohs_Dispersal, tohs_Dying, tohs_Foraging, tohs_InitialState, tohs_ReproBehaviour, tohs_Resting, CfgFloat::value(), and Landscape::Warn().

UpdateGestation()

void Hare_Female::UpdateGestation ( )

protected

Update gestation counter.

Counts down gestation and grows foetal mass.

Figures out how much energy to use on growing the kids and add this to the m_LeveretMaterial
Some assumptions:
1) Foetal growth is linear, with a max per day
2) If the female's fat reserves fall below the hunger threshold value
she does not use energy on the foetus
3) maximum X% of the free energy is used on foetus production - this is an input variable.

                                  {
    // Now are they ready to be born?
    if (--m_GestationCounter < 1) { m_reproActivity = activity_givebirth; }
    // ALL the calcuations below are in g fat, this is just to save on unnecessary conversions
    // and divides later
    if (m_fatReserve > cfg_hare_adult_dispersal_threshold.value())
    {
        double en = (m_fatReserve - cfg_hare_adult_dispersal_threshold.value()) * cfg_hare_foetusenergyproportion.
            value();
        double fe = 4 * g_hare_maxFoetalKJ[m_GestationCounter];
        if (en > fe) en = fe;
        m_fatReserve -= en;
        m_LeveretMaterial += en;
    }
}

References activity_givebirth, cfg_hare_adult_dispersal_threshold, cfg_hare_foetusenergyproportion, g_hare_maxFoetalKJ, THare::m_fatReserve, m_GestationCounter, m_LeveretMaterial, m_reproActivity, and CfgFloat::value().

Referenced by st_ReproBehaviour().

UpdateOestrous()

void Hare_Female::UpdateOestrous ( )

protected

Update oestrous counter.

Updates Oestrous if it is the breeding season.

Optional disease and minimum reproductive weight code for POM.

                                 {
#ifdef __DISEASEDDM
    if (m_IamSick) {
        return; // will loop each day until not sick
    }
#endif
#ifdef  __MINREPWEIGHT
    if (m_weight < cfg_hare_minimum_breeding_weight.value()) return; // No breeding below this weight
#endif
 
    // No breeding outside the breeding season
    int today = m_OurLandscape->SupplyDayInYear();
    if (today < cfg_ReproStartDay.value() || today > cfg_ReproEndDay.value())
    {
        m_OestrousCounter = 0;
        m_litter_no = 0;
        return;
    }
    if (++m_OestrousCounter > cfg_DaysToOestrous.value())
    {
        // No breeding if in -ve energy balance
        if (cfg_hare_adult_breed_threshold.value() <= m_fatReserve)
        {
            m_reproActivity = activity_inoestrous;
            m_OestrousCounter = 0;
        }
    }
}

References activity_inoestrous, cfg_DaysToOestrous, cfg_hare_adult_breed_threshold, cfg_hare_minimum_breeding_weight, cfg_ReproEndDay, cfg_ReproStartDay, THare::m_fatReserve, THare::m_IamSick, m_litter_no, m_OestrousCounter, TAnimal::m_OurLandscape, m_reproActivity, THare::m_weight, Landscape::SupplyDayInYear(), CfgInt::value(), and CfgFloat::value().

Referenced by st_ReproBehaviour().

UpdateYoung()

bool Hare_Female::UpdateYoung	(	THare *	a_old,
		THare *	a_new
	)

Swap a young list pointer.

This functions simply sorts through the m_Young vector and replaces the occurence of a_old with a_new. It is used to replace Hare_Infant pointers with Hare_Young pointers

                                                        {
    auto current = m_MyYoung.begin();
    while (current != m_MyYoung.end())
    {
        if (*current == a_old)
        {
            *current = a_new;
            return true;
        }
        ++current;
    }
    return false;
}

References m_MyYoung.

Referenced by THare_Population_Manager::CreateObjects().

Member Data Documentation

m_GestationCounter

int Hare_Female::m_GestationCounter

protected

State variable - Days in gestation.

Referenced by GeneralEndocrineDisruptor(), Init(), Mating(), and UpdateGestation().

m_LeveretMaterial

double Hare_Female::m_LeveretMaterial

protected

State variable - Mass of foetal material.

Referenced by GiveBirth(), Init(), Mating(), and UpdateGestation().

m_litter_no

int Hare_Female::m_litter_no

protected

State variable - current litter number.

Referenced by GiveBirth(), Init(), and UpdateOestrous().

m_MyYoung

TListOfHares Hare_Female::m_MyYoung

protected

Pointer to litter.

Referenced by AddYoung(), DoLactation(), ON_AreYouMyMum(), ON_Dead(), ON_RemoveYoung(), ON_YoungKilled(), SanityCheckYoungList(), st_Dispersal(), and UpdateYoung().

m_MyYoungMutex

std::mutex Hare_Female::m_MyYoungMutex

protected

mutex for the young list.

Referenced by ON_RemoveYoung(), and ON_YoungKilled().

m_NoYoung

int Hare_Female::m_NoYoung

protected

State variable - current litter size.

Referenced by AllYoungMatured(), ON_AreYouMyMum(), ON_RemoveYoung(), ON_YoungKilled(), and SanityCheckYoungList().

m_OestrousCounter

int Hare_Female::m_OestrousCounter

protected

State variable - Days in oestrous.

Referenced by AllYoungKilled(), AllYoungMatured(), GiveBirth(), Init(), and UpdateOestrous().

m_reproActivity

TTypeOfActivity Hare_Female::m_reproActivity

protected

State variable - current reproductive state.

Referenced by AllYoungKilled(), AllYoungMatured(), GiveBirth(), Init(), Mating(), st_Developing(), st_Dispersal(), st_Foraging(), st_ReproBehaviour(), UpdateGestation(), and UpdateOestrous().

m_sterile

bool Hare_Female::m_sterile

protected

State variable - is/not sterile.

Referenced by Init(), and SetSterile().

---

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

• /builds/ALMaSS/ALMaSS_MIDox/Hare/Hare_All.h
• /builds/ALMaSS/ALMaSS_MIDox/Hare/Hare_All.cpp