Skylark_Population_Manager Class Reference

#include <skylarks_all.h>

Inheritance diagram for Skylark_Population_Manager:

Public Member Functions
void	CreateObjects (int ob_type, TAnimal *pTAo, void *null, Skylark_struct *data, int number)
virtual void	Init (void)
void	WriteSKPOM1 (const int n, const int n2) const
void	WriteSKPOM2 (const int n, const int n2) const
int	SupplyM_Mig_Mort () const
int	SupplyF_Mig_Mort () const
int	SupplyNoTerritories () const
int	TheSkylarkTerrsSupply_x (int) const
int	TheSkylarkTerrsSupply_y (int) const
int	TheSkylarkTerrsSupply_size (int) const
int	TheSkylarkTerrsSupply_quality (int) const
void	SetM_Mig_Mort (const int m)
void	SetF_Mig_Mort (const int m)
	Skylark_Population_Manager (Landscape *L)
	~Skylark_Population_Manager (void) override
int	TheFledgelingProbe () override
void	BreedingPairsOutput (int Time) override
void	FledgelingProbeOutput (int Total, int Time) override
int	TheBreedingFemalesProbe (int ProbeNo) override
bool	OpenTheBreedingPairsProbe () override
bool	OpenTheFledgelingProbe () override
void	incNoFledgeDeaths ()
void	incNoChickDeaths ()
void	incNoPestEffects ()
void	incTotalEggs (const int eggs)
void	incTotalNestlings ()
void	incTotalPrefledgelings ()
void	AddStriglingMort (const int lifestage)
double	SupplyEMi () const
bool	IsBadWeather () const
bool	OpenTheBreedingSuccessProbe () override
void	BreedingSuccessProbeOutput (double, int, int, int, int, int, int, int) override
int	TheBreedingSuccessProbe (int &BreedingFemales, int &YoungOfTheYear, int &TotalPop, int &TotalFemales, int &TotalMales, int &BreedingAttempts) override
void	TheAOROutputProbe () override
virtual void	TheRipleysOutputProbe (FILE *a_prb)
Public Member Functions inherited from Population_Manager
	Population_Manager (Landscape *a_l_ptr, int a_numberLifeStages=12)
virtual	~Population_Manager (void)
void	SetNoProbesAndSpeciesSpecificFunctions (int a_pn) override
	Sets up probe and species specifics. More...
void	OpenTheAOROutputProbe (const string &a_AORFilename) override
	Opens the AOR output file. More...
unsigned	GetLiveArraySize (int a_listindex) override
	Gets the number of 'live' objects for a list index in the TheArray. More...
unsigned	GetPopulationSize (int a_listindex) override
	Gets the number of species objects by default it is the same as LiveArray, however it could be different. This function should be used/overriden when we are interested in the number of the objects for presentation and not in inner maintenance of the PopulationManager and or TheArray. More...
void	IncLiveArraySize (int a_listindex)
	Increments the number of 'live' objects for a list index in the TheArray. More...
unsigned int	FarmAnimalCensus (unsigned int a_farm, unsigned int a_typeofanimal)
char *	SpeciesSpecificReporting (int a_species, int a_time) override
char *	ProbeReport (int a_time)
char *	ProbeReportTimed (int a_time)
void	ImpactProbeReport (int a_Time)
bool	BeginningOfMonth ()
void	LOG (const char *fname)
int	SupplyStepSize () const
void	Run (int NoTSteps) override
virtual unsigned	Probe (int ListIndex, Probe_Data *p_TheProbe)
virtual void	ImpactedProbe ()
virtual TAnimal *	SupplyAnimalPtr (unsigned int a_index, unsigned int a_animal)
	Returns the pointer indexed by a_index and a_animal. Note NO RANGE CHECK. More...
virtual unsigned	SupplyListIndexSize ()
unsigned	SupplyListSize (unsigned listindex) const
void	PushIndividual (const unsigned a_listindex, TAnimal *a_individual_ptr)
const char *	SupplyStateNames (int i) const
unsigned	SupplyStateNamesLength () const
virtual void	DisplayLocations ()
TAnimal *	FindIndividual (unsigned Type, TAnimal *a_me)
virtual TAnimal *	FindClosest (int x, int y, unsigned Type, TAnimal *a_me)
omp_nest_lock_t *	GetGuardMapElement (unsigned a_x_index, unsigned a_y_index)
	Return the guard map cell. More...
void	SetGuardMapElement (unsigned a_x_index, unsigned a_y_index)
	Set the given guard map cell. More...
void	UnsetGuardMapElement (unsigned a_x_index, unsigned a_y_index)
	Unset the given guard map cell. More...
void	UpdateGuardMap (int a_x, int a_y, int &a_index_x, int &a_index_y)
	Get the index of the guard map for the given location. More...
bool	OpenTheRipleysOutputProbe ()
bool	OpenTheMonthlyRipleysOutputProbe ()
bool	OpenTheReallyBigProbe ()
virtual void	TheRipleysOutputProbe (ofstream *a_prb)
	Special output functionality. More...
virtual void	TheReallyBigOutputProbe ()
void	CloseTheMonthlyRipleysOutputProbe () const
virtual void	CloseTheRipleysOutputProbe ()
virtual void	CloseTheReallyBigOutputProbe ()
TTypesOfPopulation	GetPopulationType ()
int	GetSeasonNumber ()
	Get the season number. More...
void	LamdaDeath (int x, int y)
void	LamdaBirth (int x, int y)
void	LamdaBirth (int x, int y, int z)
void	LamdaClear ()
void	LamdaDumpOutput ()
virtual int	SupplyPegPosx (int)
virtual int	SupplyPegPosy (int)
virtual int	SupplyCovPosx (int)
virtual int	SupplyCovPosy (int)
virtual void	TheGeneticProbe (unsigned, int, unsigned &)
virtual void	GeneticsResultsOutput (FILE *, unsigned)
void	Debug_Shuffle (unsigned int Type)
virtual void	RunStepMethods ()
Public Member Functions inherited from Population_Manager_Base
	Population_Manager_Base (Landscape *L)
	The Population_Manager_Base constructor. More...
virtual void	Catastrophe (int)
	Must be re-implemented in descendent classes. More...
int	SupplySimW () const
	Returns landscape width in m. More...
int	SupplySimH () const
	Returns landscape height in m. More...
int	SupplySimWH () const
	Returns half the landscape width in m. More...
int	SupplySimHH () const
	Returns half the landscape height in m. More...
virtual int	ProbeFileInput (char *p_Filename, int p_ProbeNo)
	A stub to build specfic probes and functions. More...
int	SupplyListNameLength () const
const char *	SupplyListName (int a_i) const
	Get a list name from the list. More...
virtual void	SupplyLocXY (unsigned, unsigned, int &, int &)
	A stub for identifying an individual at a location. More...
virtual TAnimal *	FindClosest (int, int, unsigned)
	A stub for identifying an individual at a location. More...
std::string	SupplySimulationName ()
void	SetStepCounterInADay (int a_counter)
	Set step counter in a day. More...
int	GetStepCounterInADay (void)
	Return the sep counter in a day. More...
virtual double	GetAphidDensity (int, int)
	Return the aphid density, it is only used when aphid simulations are running. More...

Public Attributes
SkTerritories *	TheSkylarkTerrs
int *	VegTypeFledgelings
Public Attributes inherited from Population_Manager
bool	ProbesSet {}
Public Attributes inherited from Population_Manager_Base
Probe_Data *	TheProbe [100] = {nullptr}
	Holds a list of pointers to standard output probes. More...

Protected Member Functions
void	DoFirst () override
void	ProbeReportPOM (int a_time)
float	ProbePOM (int ListIndex, const Probe_Data *p_TheProbe)
	Modified probe for POM Output. More...
void	LoadParameters ()
void	Catastrophe () override
virtual void	ReHouse ()
Protected Member Functions inherited from Population_Manager
virtual bool	StepFinished ()
	Methods to run the simulations. More...
virtual void	DoBefore ()
virtual void	DoAfter ()
virtual void	DoLast ()
virtual void	DoSpecialBetweenLifeStages (int a_life_stage)
virtual void	SortX (unsigned Type)
void	SortXIndex (unsigned Type)
virtual void	SortY (unsigned Type)
void	SortState (unsigned Type)
void	SortStateR (unsigned Type)
virtual unsigned	PartitionLiveDead (unsigned Type)
virtual void	Shuffle_or_Sort (unsigned Type)
virtual void	Shuffle (unsigned Type)
Protected Member Functions inherited from Population_Manager_Base
	~Population_Manager_Base ()=default

Protected Attributes
int	M_Mig_Mort
int	F_Mig_Mort
double	EMi
int	m_StriglingMort [4]
int	m_TotalEggs
int	m_TotalNestlings
int	m_TotalPrefledgelings
int	m_NoFledgeDeaths
int	m_NoChickDeaths
int	m_NoPestEffects
bool	m_IsBadWeather
FILE *	SKPOM1
FILE *	SKPOM2
Protected Attributes inherited from Population_Manager
vector< unsigned >	m_LiveArraySize
int	m_NoProbes = 0
std::vector< std::vector< omp_nest_lock_t * > >	m_MapGuard
	This is used to make sure animals will not behaviour at the same area - multi threads. More...
int	m_guard_cell_height_num
int	m_guard_cell_width_num
int	m_guard_cell_size
bool	m_is_paralleled
	This is used to indicate whether the species is paralleled. More...
const char *	StateNames [100] {}
int	m_StepSize {}
vector< vector< forward_list< TAnimal * > * > >	TheSubArrays
	Hold all the animal pointers. More...
vector< vector< int > >	TheSubArraysSizes
	Hold all the animal sizes in each thread. More...
vector< int >	m_LifeStageOrderVec
	The vector to store the life stage order for looping specie life stages. More...
vector< forward_list< TAnimal * >::iterator >	TheSubArraysIterators
	the iterator from last time called for SupplyAnimalPtr(), this for fast loop all the animals in the derived class. More...
vector< int >	TheSubArrayPreviousIndex
	the animal index number from last time called for SupplyAnimalPtr(), this for fast loop all the animals in the derived class. More...
vector< int >	TheSubArrayThreadIndex
	the thread index number from last time called for SupplyAnimalPtr(), this for fast loop all the animals in the derived class. More...
unsigned	StateNamesLength
FILE *	TestFile {}
FILE *	TestFile2 {}
vector< unsigned >	BeforeStepActions
	Holds the season list of possible before step actions. More...
int	m_SeasonNumber
	Holds the season number. Used when running goose and hunter sims. More...
TTypesOfPopulation	m_population_type {TOP_NoSpecies}
ofstream *	AOROutputPrb {}
ofstream *	RipleysOutputPrb {}
ofstream *	RipleysOutputPrb1 {}
ofstream *	RipleysOutputPrb2 {}
ofstream *	RipleysOutputPrb3 {}
ofstream *	RipleysOutputPrb4 {}
ofstream *	RipleysOutputPrb5 {}
ofstream *	RipleysOutputPrb6 {}
ofstream *	RipleysOutputPrb7 {}
ofstream *	RipleysOutputPrb8 {}
ofstream *	RipleysOutputPrb9 {}
ofstream *	RipleysOutputPrb10 {}
ofstream *	RipleysOutputPrb11 {}
ofstream *	RipleysOutputPrb12 {}
ofstream *	ReallyBigOutputPrb {}
AOR_Probe *	m_AOR_Probe {}
	A pointer to the AOR probe. More...
long int	lamdagrid [2][257][257] {}
Protected Attributes inherited from Population_Manager_Base
int	SimH
	stores the simulation height More...
int	SimW
	stores the simulation width More...
int	SimHH
	stores the simulation height halved More...
int	SimWH
	stores the simulation width halved More...
string	m_SimulationName
	stores the simulation name More...
Landscape *	m_TheLandscape
	holds an internal pointer to the landscape More...
int	m_ListNameLength {}
	the number of life-stages simulated in the population manager More...
const char *	m_ListNames [32] {}
	A list of life-stage names. More...
std::string	m_AORProbeFileName {"AOR_Probe.txt"}
	name of the AOR Probe file More...
std::string	m_ProbeFileName {"Probe.res"}
	name of the Probe file More...
int	m_step_counter_in_a_day
	Step counter in a day, this is used for the animals with finer step size other than one day. More...

Constructor & Destructor Documentation

Skylark_Population_Manager()

Skylark_Population_Manager::Skylark_Population_Manager

(

Landscape *

L

)

                                                                   : Population_Manager(L, 5) {
    // Five lists are needed:
    // Clutches,Nestlings,PreFledgelings,Males,Females
 
    M_Mig_Mort = 0;
    F_Mig_Mort = 0;
    //
    /*
    F_Mig_Mort_min = cfg_femreturnmortmin.value();
    F_Mig_Mort_max = cfg_femreturnmortmax.value();
    M_Mig_Mort_min = cfg_malereturnmortmin.value();
    M_Mig_Mort_max = cfg_malereturnmortmax.value();
    */
    //
    JuvenileReturnMort = cfg_juvreturnmort.value();
    //SkYoungWetDay = cfg_skyoungwetday.value();
 
    TheSkylarkTerrs = new SkTerritories(L);
#ifdef __CJTDebug_10
  refnum = 0;
#endif
    Init();
 
    this->OpenTheBreedingPairsProbe();
    this->OpenTheBreedingSuccessProbe();
    this->OpenTheFledgelingProbe();
}

References cfg_juvreturnmort, F_Mig_Mort, Init(), JuvenileReturnMort, M_Mig_Mort, OpenTheBreedingPairsProbe(), OpenTheBreedingSuccessProbe(), OpenTheFledgelingProbe(), TheSkylarkTerrs, and CfgInt::value().

~Skylark_Population_Manager()

Skylark_Population_Manager::~Skylark_Population_Manager ( void  )

override

                                                            {
    // delete all lists
    delete TheSkylarkTerrs;
    delete []VegTypeFledgelings;
#ifdef __SKPOM
  fclose(SKPOM1);
  fclose(SKPOM2);
#endif
}

References SKPOM1, SKPOM2, TheSkylarkTerrs, and VegTypeFledgelings.

Member Function Documentation

AddStriglingMort()

void Skylark_Population_Manager::AddStriglingMort ( const int  lifestage )

inline

{ m_StriglingMort[lifestage]++; }

Referenced by Skylark_Base::AddStriglingMort().

BreedingPairsOutput()

void Skylark_Population_Manager::BreedingPairsOutput ( int  Time )

overridevirtual

Reimplemented from Population_Manager.

                                                                   {
    FILE* MyFile = fopen("BreedingPairs.txt", "a");
    if (!MyFile)
    {
        g_msg->Warn(WARN_FILE, "Skylark_Population_Manager::BreedingPairsOutput():", "Cannot open file for append: BreedingPairs.txt");
        exit(0);
    }
    int no = 0;
    const int szf = static_cast<int>(GetLiveArraySize(4));
    const int szm = static_cast<int>(GetLiveArraySize(3));
    for (int j = 0; j < szf; j++)
    {
        const auto FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
        if (FS->Paired)
        {
            // Below is a POM test for farm owner 50 - an identifier used to select a single experimental field or set of fields in the polyref file.
            if (g_land->SupplyFarmOwner(FS->Supply_m_Location_x(), FS->Supply_m_Location_y()) == 50)
            {
                const TTypesOfSkState behav = FS->m_CurrentSkState;
                switch (behav)
                {
                case toss_BuildingUpResources:
                case toss_PreparingForBreeding:
                case toss_MakingNest:
                case toss_Laying:
                case toss_EggHatching:
                case toss_Incubating:
                case toss_FCaringForYoung:
                    no++;
                //                  g_MainForm->m_aMap->Spot( 3, FS->Supply_m_Location_x(), FS->Supply_m_Location_y() );
                    break;
                default: ;
                }
            }
        }
    }
    fprintf(MyFile, "%d\t%d\t%d\t%d\n", time, no, szf, szm);
    fclose(MyFile);
}

References g_land, g_msg, Population_Manager::GetLiveArraySize(), Population_Manager::SupplyAnimalPtr(), Landscape::SupplyFarmOwner(), MapErrorMsg::Warn(), and WARN_FILE.

BreedingSuccessProbeOutput()

void Skylark_Population_Manager::BreedingSuccessProbeOutput ( double  No, int  BreedingFemales, int  YoungOfTheYear, int  TotalPop, int  TotalFemales, int  TotalMales, int  time, int  BreedingAttempts  )

overridevirtual

Reimplemented from Population_Manager.

                                                                                        {
    FILE* MyFile = fopen("BreedingSuccess.txt", "a");
    if (!MyFile)
    {
        g_msg->Warn(WARN_FILE, "Skylark_Population_Manager::BreedingAttemptsOutput():", "Cannot open file for append: BreedingAttempts.txt");
        exit(0);
    }
    // Do some calculations
    const double floaters = (TotalPop - (YoungOfTheYear + BreedingFemales * 2)) / static_cast<double>(TotalPop - YoungOfTheYear);
    const double HatchSuccess = m_TotalNestlings / static_cast<double>(m_TotalEggs + 1);
    const double FledgeSuccess = m_TotalPrefledgelings / static_cast<double>(m_TotalNestlings + 1);
    const double BreedingSuccess = m_TotalPrefledgelings / static_cast<double>(m_TotalEggs + 1);
    // Print the results and data
    fprintf(MyFile, "%d\t%d\t%d\t%d\t%d\t%d\t%d\t%g\t%g\t%g\t%g\t%g\t\n", time, BreedingFemales, BreedingAttempts, YoungOfTheYear, TotalPop,
            TotalFemales, TotalMales, floaters, No, HatchSuccess, FledgeSuccess, BreedingSuccess);
    //fprintf( MyFile, "%i\t%i\t%i\t%i\n", m_StriglingMort[ 0 ], m_StriglingMort[ 1 ],
    //     m_StriglingMort[ 2 ], m_StriglingMort[ 3 ] );
    for (int h = 0; h < 4; h++) m_StriglingMort[h] = 0;
    fclose(MyFile);
    // Zero any counters
    m_TotalEggs = 0;
    m_TotalNestlings = 0;
    m_TotalPrefledgelings = 0;
}

References g_msg, m_StriglingMort, m_TotalEggs, m_TotalNestlings, m_TotalPrefledgelings, MapErrorMsg::Warn(), and WARN_FILE.

Catastrophe()

void Skylark_Population_Manager::Catastrophe ( void  )

overrideprotectedvirtual

Reimplemented from Population_Manager.

                                                 {
    // This version simply alters populations on 1st January - it is very dangerous to
    // add individuals in many of the models so beware!!!!
 
    // First do we have the right day?
    const int today = m_TheLandscape->SupplyDayInYear();
    if (today != 1) return;
    // First do we have the right year?
    const int year = m_TheLandscape->SupplyYearNumber() - cfg_CatastropheEventStartYear.value();
    if (year % cfg_PmEventfrequency.value() != 0) return;
 
    // assignment to get rid of warning
    Skylark_Adult* AS = nullptr;
    // Now if the % decrease is higher or lower than 100 we need to do different things
    int esize = cfg_PmEventsize.value();
    if (esize < 100)
    {
        unsigned size2 = static_cast<int>(GetLiveArraySize(sob_Male));
        for (unsigned j = 0; j < size2; j++)
        {
            if (g_random_fnc(100) > esize)
            {
                const auto MS = dynamic_cast<Skylark_Male*>(SupplyAnimalPtr(3, j));
                if (MS->MyMate != nullptr) MS->MyMate->OnMateDying();
                MS->Dying(); // Kill it
            }
        }
        size2 = static_cast<int>(GetLiveArraySize(sob_Female));
        for (unsigned j = 0; j < size2; j++)
        {
            if (g_random_fnc(100) > esize)
            {
                const auto FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
                if (FS->MyMate != nullptr) FS->MyMate->OnMateDying();
                FS->Dying(); // Kill it
            }
        }
    }
    else if (esize > 100)
    {
        // This is a tricky thing to do because we need to duplicate birds, but dare not mess
        // mate pointers etc up.
        // This also requires a copy method in the target birds
        // esize also needs translating  120 = 20%, 200 = 100%
        if (esize < 200)
        {
            esize -= 100;
            for (unsigned i = 3; i < 5; i++)
            {
                const unsigned size2 = static_cast<int>(GetLiveArraySize(i));
                for (unsigned j = 0; j < size2; j++)
                {
                    if (g_random_fnc(100) < esize)
                    {
                        AS = dynamic_cast<Skylark_Adult*>(SupplyAnimalPtr(i, j));
                        AS->CopyMyself(i); // Duplicate it
                    }
                }
            }
        }
        else
        {
            esize -= 100;
            esize /= 100; // this will throw away fractional parts so will get 1, 2, 3  from 200, 350 400
            for (unsigned i = 3; i < 5; i++)
            {
                const unsigned size2 = static_cast<int>(GetLiveArraySize(i));
                for (unsigned j = 0; j < size2; j++)
                {
                    for (int e = 0; e < esize; e++)
                    {
                        AS = dynamic_cast<Skylark_Adult*>(SupplyAnimalPtr(i, j));
                        AS->CopyMyself(i); // Duplicate it
                    }
                }
            }
        }
    }
    else return; // No change so do nothing
}

References cfg_CatastropheEventStartYear, cfg_PmEventfrequency, cfg_PmEventsize, Skylark_Adult::CopyMyself(), g_random_fnc(), Population_Manager::GetLiveArraySize(), Population_Manager_Base::m_TheLandscape, Population_Manager::SupplyAnimalPtr(), Landscape::SupplyDayInYear(), Landscape::SupplyYearNumber(), and CfgInt::value().

CreateObjects()

void Skylark_Population_Manager::CreateObjects	(	int	ob_type,
		TAnimal *	pTAo,
		void *	null,
		Skylark_struct *	data,
		int	number
	)

                                                                                                                          {
    Skylark_Clutch* New_Clutch;
    Skylark_Nestling* New_Nestling;
    Skylark_PreFledgeling* New_PreFledgeling;
    Skylark_Male* New_Male;
    Skylark_Female* New_Female;
 
    skClutch_struct* cs;
    Nestling_struct* ns;
    PreFledgeling_struct* pfs;
    AdultSkylark_struct* as;
 
    bool aCopy = false;
    if (number == -1)
    {
        aCopy = true;
        number = 1;
    }
 
    for (int i = 0; i < number; i++)
    {
#ifdef __CJTDebug_10
        refnum++;
#endif
        if (ob_type == 0)
        {
            cs = dynamic_cast<skClutch_struct*>(data);
 
            New_Clutch = new Skylark_Clutch(cs->Mum, cs->Terrs, cs->L, cs->No, cs->x, cs->y, cs->mh, this);
            PushIndividual(ob_type, New_Clutch);
            IncLiveArraySize(ob_type);
            // Give mum the pointer to the clutch
            cs->Mum->OnSetMyClutch(New_Clutch);
            
#ifdef __CJTDebug_10
            New_Clutch->m_Ref = refnum;
#endif
        }
        if (ob_type == 1)
        {
            ns = dynamic_cast<Nestling_struct*>(data);
 
            New_Nestling = new Skylark_Nestling(ns->x, ns->y, ns->Dad, ns->L, ns->Terrs, this, ns->bx, ns->by, ns->mh);
            PushIndividual(ob_type, New_Nestling);
            IncLiveArraySize(ob_type);
            // Give Dad a pointer to nestling
            ns->Dad->OnAddNestling(New_Nestling);
            
            // Count this as a chick hatched
            m_TotalNestlings++;
#ifdef __CJTDebug_10
            New_Nestling->m_Ref = refnum;
#endif
        }
        if (ob_type == 2)
        {
            pfs = dynamic_cast<PreFledgeling_struct*>(data);
 
            New_PreFledgeling = new Skylark_PreFledgeling(pfs->x, pfs->y, pfs->L, pfs->Terrs, pfs->Dad, pfs->sex, pfs->size, pfs->age, this,
                                                            pfs->bx, pfs->by, pfs->mh);
 
            PushIndividual(ob_type, New_PreFledgeling);
            IncLiveArraySize(ob_type);
            if (pfs->Dad) pfs->Dad->OnAddPreFledgeling(New_PreFledgeling, static_cast<Skylark_Nestling*>(pTAo));
            
            // Count this as a nest leaver
            m_TotalPrefledgelings++;
        }
        if (ob_type == 3)
        {
            as = dynamic_cast<AdultSkylark_struct*>(data);
            // Male
 
            New_Male = new Skylark_Male(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
            if (aCopy) New_Male->SensibleCopy();
            PushIndividual(ob_type, New_Male);
            IncLiveArraySize(ob_type);
            
#ifdef __CJTDebug_10
            New_Male->m_Ref = refnum;
#endif
        }
        if (ob_type == 4)
        {
            as = dynamic_cast<AdultSkylark_struct*>(data);
            // Female
 
            New_Female = new Skylark_Female(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
            if (aCopy) New_Female->SensibleCopy();
            PushIndividual(ob_type, New_Female);
            IncLiveArraySize(ob_type);
            
#ifdef __CJTDebug_10
            New_Female->m_Ref = refnum;
#endif
        }
    }
}

References PreFledgeling_struct::age, AdultSkylark_struct::age, Skylark_struct::bx, Skylark_struct::by, Nestling_struct::Dad, PreFledgeling_struct::Dad, Population_Manager::IncLiveArraySize(), Skylark_struct::L, m_TotalNestlings, m_TotalPrefledgelings, Skylark_struct::mh, skClutch_struct::Mum, skClutch_struct::No, Skylark_Male::OnAddNestling(), Skylark_Male::OnAddPreFledgeling(), Skylark_Female::OnSetMyClutch(), Population_Manager::PushIndividual(), Skylark_Female::SensibleCopy(), Skylark_Male::SensibleCopy(), PreFledgeling_struct::sex, PreFledgeling_struct::size, AdultSkylark_struct::size, Skylark_struct::Terrs, Skylark_struct::x, and Skylark_struct::y.

Referenced by Skylark_Adult::CopyMyself(), Init(), Skylark_Clutch::st_Hatching(), Skylark_Female::st_Laying(), Skylark_Nestling::st_Maturing(), and Skylark_PreFledgeling::st_Maturing().

DoFirst()

void Skylark_Population_Manager::DoFirst ( void  )

overrideprotectedvirtual

Can be used in descendent classes

Reimplemented from Population_Manager.

                                             {
    //printf("Day %d  Terrs: %d  Occupied M/F %d/%d\n",g_date->DayInYear(),TheSkylarkTerrs->SupplyNoTerritories(), TheSkylarkTerrs->SupplyNoMaleOccupied(), TheSkylarkTerrs->SupplyNoFemaleOccupied());
    // Bad weather criteria - not used as of 24 June 2009 because removing this had no impacts on the observed POM testing.
    if (g_weather->GetRain() > 0.0 && g_weather->GetWindPeriod(g_date->Date(), 7) > 45.0 && g_weather->GetTempPeriod(g_date->Date(), 7) <
        40.0) m_IsBadWeather = true;
    else m_IsBadWeather = false;
    TheSkylarkTerrs->Tick();
    const double temp = m_TheLandscape->SupplyTemp();
    EMi = 31.2 - 0.44 * temp;
    int today = m_TheLandscape->SupplyDayInYear();
    if (today == January)
    {
        for (int h = 0; h < 4; h++) m_StriglingMort[h] = 0;
        TheSkylarkTerrs->PreProcessLandscape2(m_TheLandscape);
        // Now re-house any males that already had territories
        //ReHouse(); // Only needed if PreProcessLandsape2 is called after arrival
        // Determine this years mortality
        F_Mig_Mort = cfg_adultreturnmort.value(); //F_Mig_Mort_min + random( F_Mig_Mort_max - F_Mig_Mort_min );
        //     F_Mig_Mort=50;
        //assume that male and female mortality is equal
        M_Mig_Mort = F_Mig_Mort;
        //M_Mig_Mort = M_Mig_Mort_min + random( M_Mig_Mort_max - M_Mig_Mort_min );
        //     F_Mig_Mort=F_Mig_Mort_min+random(F_Mig_Mort_max-F_Mig_Mort_min);
        // **CJT** testing code below
        FILE* MyFile = fopen("PestEffects.txt", "a");
        fprintf(MyFile, "%d %d %d\n", m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects);
        fclose(MyFile);
        m_NoFledgeDeaths = 0;
        m_NoChickDeaths = 0;
        m_NoPestEffects = 0;
    }
 
#ifdef __SKPOM
    // Skylark POM outputs
#ifdef __KALONOSCRAPES
    /* USE FOR KALO & NO SCRAPES */
switch (today) {
        case 70:
            return ProbeReportPOM( today );
            break;
        case 80:
            return ProbeReportPOM( today );
            break;
        case 89:
            return ProbeReportPOM( today );
            break;
        case 99:
            return ProbeReportPOM( today );
            break;
        case 115:
            return ProbeReportPOM( today );
            break;
        case 123:
            return ProbeReportPOM( today );
            break;
        case 130:
            return ProbeReportPOM( today );
            break;
        case 140:
            return ProbeReportPOM( today );
            break;
        case 147:
            return ProbeReportPOM( today );
            break;
        case 153:
            return ProbeReportPOM( today );
            break;
        case 160:
            return ProbeReportPOM( today );
            break;
        case 168:
            return ProbeReportPOM( today );
            break;
        case 177:
            return ProbeReportPOM( today );
            break;
        case 185:
            return ProbeReportPOM( today );
            break;
        case 192:
            return ProbeReportPOM( today );
            break;
        case 200:
            return ProbeReportPOM( today );
            break;
        case 209:
            return ProbeReportPOM( today );
            break;
        default: ;
    }
#else
#ifdef __KALOSCRAPES
/* USE FOR KALO &  SCRAPES */
switch (today) {
        case 67:
            return ProbeReportPOM( today );
            break;
        case 70:
            return ProbeReportPOM( today );
            break;
        case 80:
            return ProbeReportPOM( today );
            break;
        case 89:
            return ProbeReportPOM( today );
            break;
        case 99:
            return ProbeReportPOM( today );
            break;
        case 113:
            return ProbeReportPOM( today );
            break;
        case 125:
            return ProbeReportPOM( today );
            break;
        case 130:
            return ProbeReportPOM( today );
            break;
        case 131:
            return ProbeReportPOM( today );
            break;
        case 140:
            return ProbeReportPOM( today );
            break;
        case 147:
            return ProbeReportPOM( today );
            break;
        case 153:
            return ProbeReportPOM( today );
            break;
        case 162:
            return ProbeReportPOM( today );
            break;
        case 169:
            return ProbeReportPOM( today );
            break;
        case 178:
            return ProbeReportPOM( today );
            break;
        case 183:
            return ProbeReportPOM( today );
            break;
        default: ;
    }
#else
    switch (today) {
        case 105:
            return ProbeReportPOM( today );
            break;
        case 119:
            return ProbeReportPOM( today );
            break;
        case 133:
            return ProbeReportPOM( today );
            break;
        case 147:
            return ProbeReportPOM( today );
            break;
        case 162:
            return ProbeReportPOM( today );
            break;
        case 177:
            return ProbeReportPOM( today );
            break;
        case 192:
            return ProbeReportPOM( today );
            break;
        case 207:
            return ProbeReportPOM( today );
            break;
        default: ;
    }
#endif
 
#endif
 
#endif
    //Sigh, everyday we need to update the territory qualities, but at least it only needs doing here!
    TheSkylarkTerrs->EvaluateAllTerritories();
}

References cfg_adultreturnmort, Calendar::Date(), EMi, SkTerritories::EvaluateAllTerritories(), F_Mig_Mort, g_date, g_weather, Weather::GetRain(), Weather::GetTempPeriod(), Weather::GetWindPeriod(), January, m_IsBadWeather, M_Mig_Mort, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, m_StriglingMort, Population_Manager_Base::m_TheLandscape, SkTerritories::PreProcessLandscape2(), ProbeReportPOM(), Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), TheSkylarkTerrs, SkTerritories::Tick(), and CfgInt::value().

FledgelingProbeOutput()

void Skylark_Population_Manager::FledgelingProbeOutput ( int  Total, int  Time  )

overridevirtual

Reimplemented from Population_Manager.

                                                                                      {
    FILE* MyFile = fopen("SkFledgelingProbe.txt", "a");
    if (!MyFile)
    {
        g_msg->Warn(WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():", "Cannot open file for append: SkFledgelingProbe.txt");
        exit(0);
    }
    fprintf(MyFile, "%8d %6d", time, Total);
    // Now get the areas
    for (int i = 0; i < tov_Undefined+1; i++) fprintf(MyFile, " %3d %5d %9.0f", i, VegTypeFledgelings[i], m_TheLandscape->SupplyVegArea(i));
    fprintf(MyFile, "\n");
    fclose(MyFile);
    // Data for the FledgelingProbe needs clearing
    for (int i = 0; i < tov_Undefined+1; i++) { VegTypeFledgelings[i] = 0; }
}

References g_msg, Population_Manager_Base::m_TheLandscape, Landscape::SupplyVegArea(), tov_Undefined, VegTypeFledgelings, MapErrorMsg::Warn(), and WARN_FILE.

incNoChickDeaths()

void Skylark_Population_Manager::incNoChickDeaths ( )

inline

{ m_NoChickDeaths++; }

incNoFledgeDeaths()

void Skylark_Population_Manager::incNoFledgeDeaths ( )

inline

{ m_NoFledgeDeaths++; }

incNoPestEffects()

void Skylark_Population_Manager::incNoPestEffects ( )

inline

{ m_NoPestEffects++; }

incTotalEggs()

void Skylark_Population_Manager::incTotalEggs ( const int  eggs )

inline

{ m_TotalEggs += eggs; }

incTotalNestlings()

void Skylark_Population_Manager::incTotalNestlings ( )

inline

{ m_TotalNestlings++; }

incTotalPrefledgelings()

void Skylark_Population_Manager::incTotalPrefledgelings ( )

inline

{ m_TotalPrefledgelings++; }

Init()

void Skylark_Population_Manager::Init ( void  )

virtual

                                          {
    if (cfg_CfgRipleysOutputUsed.value()) { OpenTheRipleysOutputProbe(); }
    LoadParameters();
    // Data for the FledgelingProbe
    VegTypeFledgelings = new int[tov_Undefined + 1];
    for (int i = 0; i < tov_Undefined+1; i++) VegTypeFledgelings[i] = 0;
    // autom. called by constructor
    m_SimulationName = "Skylark";
    // Create 100 male and female skylarks
 
    int temp_thread_num = omp_get_max_threads();
    int start_num_in_tread = cfg_SkStartNos.value() / temp_thread_num + 1;
 
    #pragma omp parallel
    {
        const auto aps = new AdultSkylark_struct;
        aps->size = 38;
        aps->Terrs = TheSkylarkTerrs;
        aps->L = m_TheLandscape;
        g_land = m_TheLandscape;
        aps->sex = true;
 
        for (int i = 0; i < start_num_in_tread; i++)
        {
            aps->x = g_random_fnc(m_TheLandscape->SupplySimAreaWidth());
            aps->y = g_random_fnc(m_TheLandscape->SupplySimAreaHeight());
            aps->bx = aps->x;
            aps->by = aps->y;
            aps->age = g_random_fnc(5);
            aps->mh = tov_Undefined;
            CreateObjects(3, nullptr, nullptr, aps, 1);
        }
        aps->sex = false;
        for (int i = 0; i < start_num_in_tread; i++)
        {
            aps->x = g_random_fnc(m_TheLandscape->SupplySimAreaWidth());
            aps->y = g_random_fnc(m_TheLandscape->SupplySimAreaHeight());
            aps->bx = aps->x;
            aps->by = aps->y;
            aps->age = g_random_fnc(5);
            aps->mh = tov_Undefined;
            CreateObjects(4, nullptr, nullptr, aps, 1);
        }
        delete aps;
    }
    // Load List of Animal Classes
    m_ListNames[0] = "Clutch";
    m_ListNames[1] = "Nestling";
    m_ListNames[2] = "Pre-Fledgeling";
    m_ListNames[3] = "Male";
    m_ListNames[4] = "Female";
    m_ListNameLength = 5;
    m_population_type = TOP_Skylark;
 
    // Load State Names
    StateNames[toss_Initiation] = "Initiation";
    //Clutch
    StateNames[toss_Developing] = "CDeveloping";
    StateNames[toss_Hatching] = "CHatching";
    StateNames[toss_CDying] = "CDying";
    //Nestling
    StateNames[toss_NDeveloping] = "NDeveloping";
    StateNames[toss_NMaturing] = "NMaturing";
    StateNames[toss_NDying] = "NDying";
    //PreFledgeling
    StateNames[toss_PDeveloping] = "PDeveloping";
    StateNames[toss_PMaturing] = "PMaturing";
    StateNames[toss_PDying] = "PDying";
    //MaleSK
    StateNames[toss_MFlocking] = "MFlocking";
    StateNames[toss_MFloating] = "MFloating";
    StateNames[toss_MArriving] = "MArriving";
    StateNames[toss_MImmigrating] = "MImmigrating";
    StateNames[toss_MEmigrating] = "MEmigrating";
    StateNames[toss_MTempLeavingArea] = "MTempLeavingArea";
    StateNames[toss_MFindingTerritory] = "MFindingTerritory";
    StateNames[toss_AttractingAMate] = "MAttractingAMate";
    StateNames[toss_FollowingMate] = "MFollowingMate";
    StateNames[toss_ScaringOffChicks] = "MScaringOffChicks";
    StateNames[toss_MCaringForYoung] = "MCaringForYoung";
    StateNames[toss_MDying] = "MDying";
    //FemaleSK
    StateNames[toss_FFlocking] = "FFlocking";
    StateNames[toss_FFloating] = "FFloating";
    StateNames[toss_FArriving] = "FArriving";
    StateNames[toss_FImmigrating] = "FImmigrating";
    StateNames[toss_FEmigrating] = "FEmigrating";
    StateNames[toss_FTempLeavingArea] = "FTempLeavingArea";
    StateNames[toss_FFindingTerritory] = "FFindingTerritory";
    StateNames[toss_BuildingUpResources] = "FBuildingUpResources";
    StateNames[toss_MakingNest] = "FMakingNest";
    StateNames[toss_PreparingForBreeding] = "FPreparingForBreeding";
    StateNames[toss_Laying] = "FLaying";
    StateNames[toss_StartingNewBrood] = "FStartingNewBrood";
    StateNames[toss_EggHatching] = "FEggHatching";
    StateNames[toss_Incubating] = "FIncubating";
    StateNames[toss_StoppingBreeding] = "FStoppingBreeding";
    StateNames[toss_FCaringForYoung] = "FCaringForYoung";
    StateNames[toss_FDying] = "FDying";
    StateNames[toss_GivingUpTerritory] = "FGivingUpTerritory";
    StateNames[toss_Destroy] = "Being Destroyed";
    // determine whether we should shuffle, or sort or do nothing to skylarks
    // after each time step.
    BeforeStepActions[0] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
    BeforeStepActions[1] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
    BeforeStepActions[2] = 3; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
    BeforeStepActions[3] = 0; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
    BeforeStepActions[4] = 0; // 0 = Shuffle, 1 = SortX, 2 = SortY, 3 = do nothing
    // Zero any counters
    m_TotalEggs = 0;
    m_TotalNestlings = 0;
    m_TotalPrefledgelings = 0;
    m_NoFledgeDeaths = 0;
    m_NoChickDeaths = 0;
    m_NoPestEffects = 0;
 
    if (cfg_ReallyBigOutputUsed.value()) { OpenTheReallyBigProbe(); }
    else ReallyBigOutputPrb = nullptr;
#ifdef __SKPOM
  SKPOM1 = fopen( "SkylarkPOM1.txt", "w" );
  SKPOM2 = fopen( "SkylarkPOM2.txt", "w" );
#endif
}

References Population_Manager::BeforeStepActions, cfg_ReallyBigOutputUsed, cfg_SkStartNos, CreateObjects(), g_land, g_random_fnc(), LoadParameters(), Population_Manager_Base::m_ListNameLength, Population_Manager_Base::m_ListNames, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, Population_Manager::m_population_type, Population_Manager_Base::m_SimulationName, Population_Manager_Base::m_TheLandscape, m_TotalEggs, m_TotalNestlings, m_TotalPrefledgelings, Population_Manager::OpenTheReallyBigProbe(), Population_Manager::OpenTheRipleysOutputProbe(), Population_Manager::ReallyBigOutputPrb, AdultSkylark_struct::size, SKPOM1, SKPOM2, Population_Manager::StateNames, Landscape::SupplySimAreaHeight(), Landscape::SupplySimAreaWidth(), TheSkylarkTerrs, TOP_Skylark, tov_Undefined, CfgInt::value(), CfgBool::value(), and VegTypeFledgelings.

Referenced by Skylark_Population_Manager().

IsBadWeather()

bool Skylark_Population_Manager::IsBadWeather ( ) const

inline

{ return m_IsBadWeather; }

LoadParameters()

void Skylark_Population_Manager::LoadParameters ( void  )

protected

                                                    {
    IsTramline = cfg_tramline_foraging.value();
    NotTramline = 1 - IsTramline;
 
    HQualityOpenTallVeg = cfg_HQualityOpenTallVeg.value();
    HQualityTall = cfg_HQualityTall.value();
    HQualityTall2 = cfg_HQualityTall2.value();
    HQualityTrack = cfg_HQualityTrack.value();
    HQualityMetalRoad = cfg_HQualityMetalRoad.value();
    HQualityHedgeScrub = cfg_HQualityHedgeScrub.value();
    HQualityNeutral = cfg_HQualityNeutral.value();
    HQualityHedge = cfg_HQualityHedge.value();
    HQualityTallVeg = cfg_HQualityTallVeg.value();
    HQualityWater = cfg_HQualityWater.value();
    HQualityVeg30cm = cfg_HQualityVeg30cm.value();
    HQualityBareEarth = cfg_HQualityBareEarth.value();
    PatchyPremium = cfg_PatchyPremium.value();
    FemaleNestAcceptScore = cfg_FemaleMinTerritoryAcceptScore.value();
    NestPlacementMinQual = cfg_NestPlacementMinQual.value();
    MaxFeedRain = cfg_maxfeedrain.value(); //Estimate of really serious amount of rain
 
    NestLeavingWeight = cfg_NestLeavingWeight.value();
    ClutchMortProb = cfg_ClutchMortProb.value();
    NestlingMortProb = cfg_NestlingMortProb.value();
    PreFledgeMortProb = cfg_PreFledgeMortProb.value();
    MeanHatchingWeight = cfg_MeanHatchingWeight.value();
    Cooling_Rate_Eggs = cfg_Cooling_Rate_Eggs.value();
    EggTemp = cfg_EggTemp.value(); //was 37
    MD_Threshold = cfg_MD_Threshold.value(); // was 12
    MeanExtractionRatePerMinute = cfg_MeanExtractionRatePerMinute.value(); //Fitting parameter
    FoodTripsPerDay = cfg_FoodTripsPerDay.value(); // Poulsen
    MD_Hatch = cfg_MinDaysToHatch.value() * 24 * 60 * (EggTemp - MD_Threshold); // 9.8 fastest development from field data
    //MD_Hatch = cfg_MinDaysToHatch.value() * 24 * 60;
    Breed_Res_Thresh1 = cfg_Breed_Res_Thresh1.value();
 
    for (int h = 0; h <= 110; h++)
    {
        DensityScore[h] = 0.0;
        VegHindranceD[h] = 1.0;
        HeightScore[h] = 0.0;
        VegHindranceH[h] = 1.0;
    }
    // Vegetation hindrance is made up of two parts - a densithy and height part
    // Each a linear after a threshold level, down to another threshold (zero)
 
    double threshold = cfg_heightconstant_c.value();
    for (int h = static_cast<int>(threshold); h <= 110; h++)
    {
        VegHindranceH[h] = 1 + h * cfg_hindconstantH_b.value();
        if (VegHindranceH[h] <= 0) VegHindranceH[h] = 0;
    }
    threshold = cfg_densityconstant_c.value();
    for (int d = static_cast<int>(threshold); d <= 110; d++)
    {
        VegHindranceD[d] = 1 + d * cfg_hindconstantD_b.value();
        if (VegHindranceD[d] <= 0) VegHindranceD[d] = 0;
    }
 
    // The next two arrays are related to nest choice
    threshold = cfg_densityconstant_c.value();
    for (int h = static_cast<int>(threshold); h <= 110; h++)
    {
        // Power function
        // DensityScore[ h ] = cfg_densityconstant_a.value() * pow( h - ( threshold - 1 ), cfg_densityconstant_b.value() );
        // Linear
        DensityScore[h] = cfg_densityconstant_a.value() + (h - threshold) * (h - threshold) * cfg_densityconstant_b.value();
        // Catch all just in case:
        //if ( DensityScore[ h ] < 0 ) DensityScore[ h ] = 0;
    }
    threshold = cfg_heightconstant_c.value();
    for (int h = static_cast<int>(threshold); h <= 110; h++)
    {
        // Power function
        //double hh = cfg_heightconstant_a.value() * pow( h - ( threshold - 1 ), cfg_heightconstant_b.value() );
        //HeightScore[ h ] = hh - ( 1 - hh ); // This expands the range of the curve
        // Linear
        HeightScore[h] = cfg_heightconstant_a.value() + (h - threshold) * cfg_heightconstant_b.value();
        // Catch all just in case:
        //if ( HeightScore[ h ] < 0 ) HeightScore[ h ] = 0;
    }
    for (int i = 0; i <= 30; i++)
    {
        //    TempHindrance[ i ] =  (1-( pow( 30 - i, cfg_temphindpow.value() ) / pow( 30, cfg_temphindpow.value() ) ));
        if (i > 20) TempHindrance[i] = 1.0;
        else
            TempHindrance[i] = 0.0 + 1.0 * (1 - pow(static_cast<double>(20) - i, static_cast<double>(cfg_temphindpow.value())) / pow(
                static_cast<double>(20), static_cast<double>(cfg_temphindpow.value())));
    }
    for (int i = 0; i <= 10; i++)
    {
        RainHindrance[i] = pow(static_cast<double>(10) - i, static_cast<double>(cfg_rainhindpow.value())) / pow(
            10.0, static_cast<double>(cfg_rainhindpow.value()));
    }
 
    m_NoFledgeDeaths = 0;
    m_NoChickDeaths = 0;
    m_NoPestEffects = 0;
    FILE* MyFile = fopen("PestEffects.txt", "w");
    fclose(MyFile);
    OpenTheBreedingSuccessProbe();
}

References Breed_Res_Thresh1, cfg_Breed_Res_Thresh1, cfg_ClutchMortProb, cfg_Cooling_Rate_Eggs, cfg_densityconstant_a, cfg_densityconstant_b, cfg_densityconstant_c, cfg_EggTemp, cfg_FemaleMinTerritoryAcceptScore, cfg_FoodTripsPerDay, cfg_heightconstant_a, cfg_heightconstant_b, cfg_heightconstant_c, cfg_hindconstantD_b, cfg_hindconstantH_b, cfg_HQualityBareEarth, cfg_HQualityHedge, cfg_HQualityHedgeScrub, cfg_HQualityMetalRoad, cfg_HQualityNeutral, cfg_HQualityOpenTallVeg, cfg_HQualityTall, cfg_HQualityTall2, cfg_HQualityTallVeg, cfg_HQualityTrack, cfg_HQualityVeg30cm, cfg_HQualityWater, cfg_maxfeedrain, cfg_MD_Threshold, cfg_MeanExtractionRatePerMinute, cfg_MeanHatchingWeight, cfg_MinDaysToHatch, cfg_NestLeavingWeight, cfg_NestlingMortProb, cfg_NestPlacementMinQual, cfg_PatchyPremium, cfg_PreFledgeMortProb, cfg_rainhindpow, cfg_temphindpow, cfg_tramline_foraging, ClutchMortProb, Cooling_Rate_Eggs, DensityScore, EggTemp, FemaleNestAcceptScore, FoodTripsPerDay, HeightScore, HQualityBareEarth, HQualityHedge, HQualityHedgeScrub, HQualityMetalRoad, HQualityNeutral, HQualityOpenTallVeg, HQualityTall, HQualityTall2, HQualityTallVeg, HQualityTrack, HQualityVeg30cm, HQualityWater, IsTramline, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, MaxFeedRain, MD_Hatch, MD_Threshold, MeanExtractionRatePerMinute, MeanHatchingWeight, NestLeavingWeight, NestlingMortProb, NestPlacementMinQual, NotTramline, OpenTheBreedingSuccessProbe(), PatchyPremium, PreFledgeMortProb, RainHindrance, TempHindrance, CfgInt::value(), CfgFloat::value(), VegHindranceD, and VegHindranceH.

Referenced by Init().

OpenTheBreedingPairsProbe()

bool Skylark_Population_Manager::OpenTheBreedingPairsProbe ( )

overridevirtual

Reimplemented from Population_Manager.

                                                           {
    FILE* MyFile = fopen("BreedingPairs.txt", "w");
    if (!MyFile)
    {
        g_msg->Warn(WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():", "Cannot open file: BreedingPairs.txt");
        exit(0);
    }
    fclose(MyFile);
    return true;
}

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

Referenced by Skylark_Population_Manager().

OpenTheBreedingSuccessProbe()

bool Skylark_Population_Manager::OpenTheBreedingSuccessProbe ( )

overridevirtual

Reimplemented from Population_Manager.

                                                             {
    FILE* MyFile = fopen("BreedingSuccess.txt", "w");
    if (!MyFile)
    {
        g_msg->Warn(WARN_FILE, "Skylark_Population_Manager::FledgelingProbeOutput():", "Cannot open file: BreedingSuccess.txt");
        exit(0);
    }
    fclose(MyFile);
    return true;
}

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

Referenced by LoadParameters(), and Skylark_Population_Manager().

OpenTheFledgelingProbe()

bool Skylark_Population_Manager::OpenTheFledgelingProbe ( )

overridevirtual

Reimplemented from Population_Manager.

                                                        {
    FILE* MyFile = fopen("SkFledgelingProbe.txt", "w");
    if (!MyFile) return false;
    FILE* MyFile2 = fopen("TOV_KeyForFledgelingProbe.txt", "w");
    if (!MyFile2) return false;
    fprintf(MyFile2, "This is the tov to veg-type key\n");
    const int howMany = tov_Undefined;
    for (int i = 0; i <= howMany; i++)
    {
        fprintf(MyFile2, "%d %s\n", i, m_TheLandscape->VegtypeToString(static_cast<TTypesOfVegetation>(i)).c_str());
    }
    fclose(MyFile);
    fclose(MyFile2);
    return false;
}

References Population_Manager_Base::m_TheLandscape, tov_Undefined, and Landscape::VegtypeToString().

Referenced by Skylark_Population_Manager().

ProbePOM()

float Skylark_Population_Manager::ProbePOM ( int  ListIndex, const Probe_Data *  p_TheProbe  )

protected

Modified probe for POM Output.

                                                                                            {
    // Counts through the list and goes through each area to see if the animal
    // is standing there and if the farm conditions are met
    float NumberSk = 0;
    if (ListIndex == 4)
    {
        if (p_TheProbe->m_NoFarms != 0)
        {
            for (unsigned j = 0; j < GetLiveArraySize(ListIndex); j++)
            {
                const unsigned Farm = SupplyAnimalPtr(ListIndex, j)->SupplyFarmOwnerRef();
                for (unsigned k = 0; k < p_TheProbe->m_NoFarms; k++)
                {
                    if (p_TheProbe->m_RefFarms[k] == Farm)
                    {
                        const auto FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(ListIndex, j));
                        const auto state = static_cast<TTypesOfSkState>(FS->WhatState());
                        switch (state)
                        {
                        case toss_MakingNest:
                        case toss_PreparingForBreeding:
                        case toss_Laying:
                        case toss_StartingNewBrood:
                        case toss_EggHatching:
                        case toss_Incubating:
                        case toss_FCaringForYoung:
                            NumberSk++; // it is in the square so increment number
                        default: ;
                        }
                    }
                }
            }
        }
    }
    else if (ListIndex == 3)
    {
        if (p_TheProbe->m_NoFarms != 0)
        {
            for (unsigned j = 0; j < GetLiveArraySize(ListIndex); j++)
            {
                const unsigned Farm = SupplyAnimalPtr(ListIndex, j)->SupplyFarmOwnerRef();
                for (unsigned k = 0; k < p_TheProbe->m_NoFarms; k++)
                {
                    if (p_TheProbe->m_RefFarms[k] == Farm)
                    {
                        const auto MS = dynamic_cast<Skylark_Male*>(SupplyAnimalPtr(ListIndex, j));
                        if (MS->HaveTerritory) NumberSk++; // it is in the square so increment number
                    }
                }
            }
        }
    }
    return NumberSk;
}

References Population_Manager::GetLiveArraySize(), Probe_Data::m_NoFarms, Probe_Data::m_RefFarms, Population_Manager::SupplyAnimalPtr(), and TAnimal::SupplyFarmOwnerRef().

Referenced by ProbeReportPOM().

ProbeReportPOM()

void Skylark_Population_Manager::ProbeReportPOM ( int  a_time )

protected

                                                                {
    for (int ProbeNo = 0; ProbeNo < m_NoProbes; ProbeNo++)
    {
        int No = 0;
        const unsigned Index = SupplyListIndexSize();
        for (unsigned listindex = 0; listindex < Index; listindex++)
        {
            if (TheProbe[ProbeNo]->m_TargetTypes[listindex]) No += static_cast<int>(ProbePOM(listindex, TheProbe[ProbeNo]));
        }
        TheProbe[ProbeNo]->FileOutput(No, a_time, ProbeNo);
    }
}

References Probe_Data::FileOutput(), Population_Manager::m_NoProbes, ProbePOM(), Population_Manager::SupplyListIndexSize(), and Population_Manager_Base::TheProbe.

Referenced by DoFirst().

ReHouse()

void Skylark_Population_Manager::ReHouse ( void  )

protectedvirtual

                                             {
    // assignment to get rid of warning
    const unsigned size = GetLiveArraySize(sob_Male);
    for (unsigned j = 0; j < size; j++)
    {
        const auto MS = dynamic_cast<Skylark_Male*>(SupplyAnimalPtr(sob_Male, j));
        if (MS->HaveTerritory) { MS->OnReHouse(); }
    }
}

References Population_Manager::GetLiveArraySize(), and Population_Manager::SupplyAnimalPtr().

SetF_Mig_Mort()

void Skylark_Population_Manager::SetF_Mig_Mort ( const int  m )

inline

{ F_Mig_Mort = m; }

SetM_Mig_Mort()

void Skylark_Population_Manager::SetM_Mig_Mort ( const int  m )

inline

{ M_Mig_Mort = m; }

SupplyEMi()

double Skylark_Population_Manager::SupplyEMi ( ) const

inline

{ return EMi; }

Referenced by Skylark_PreFledgeling::GetFledgelingEM(), Skylark_PreFledgeling::GetFood(), Skylark_Adult::RemoveEM(), and Skylark_Female::st_Incubating().

SupplyF_Mig_Mort()

int Skylark_Population_Manager::SupplyF_Mig_Mort ( ) const

inline

{ return F_Mig_Mort; }

Referenced by Skylark_Female::GetMigrationMortality().

SupplyM_Mig_Mort()

int Skylark_Population_Manager::SupplyM_Mig_Mort ( ) const

inline

{ return M_Mig_Mort; }

Referenced by Skylark_Male::GetMigrationMortality().

SupplyNoTerritories()

int Skylark_Population_Manager::SupplyNoTerritories

(

)

const

{ return TheSkylarkTerrs->SupplyNoTerritories(); }

References SkTerritories::SupplyNoTerritories(), and TheSkylarkTerrs.

TheAOROutputProbe()

void Skylark_Population_Manager::TheAOROutputProbe ( )

overridevirtual

This method must be overridden in descendent classes

Reimplemented from Population_Manager.

{ m_AOR_Probe->DoProbe(sob_Female); }

References AOR_Probe::DoProbe(), and Population_Manager::m_AOR_Probe.

TheBreedingFemalesProbe()

int Skylark_Population_Manager::TheBreedingFemalesProbe ( int  ProbeNo )

overridevirtual

Reimplemented from Population_Manager.

                                                             {
    int NumberSk = 0;
    for (unsigned j = 0; j < GetLiveArraySize(3); j++)
    {
        const auto MS = dynamic_cast<Skylark_Male*>(SupplyAnimalPtr(3, j));
        /* for (unsigned i=0; i<TheProbe[ProbeNo]->m_NoAreas; i++) { if ((MS->m_Born_x>=(int)TheProbe[ProbeNo]->m_Rect[i].m_x1)
        && (MS->m_Born_y>=(int)TheProbe[ProbeNo]->m_Rect[i].m_y1) && (MS->m_Born_x<(int)TheProbe[ProbeNo]->m_Rect[i].m_x2)
        && (MS->m_Born_y<(int)TheProbe[ProbeNo]->m_Rect[i].m_y2) && (MS->Paired==true) && (MS->HaveTerritory==true))
        NumberSk++; // it is in the square so increment number } */
        if (MS->Paired == true && MS->HaveTerritory == true) NumberSk++; // it is in the square so increment number
    }
    return NumberSk;
}

References Population_Manager::GetLiveArraySize(), and Population_Manager::SupplyAnimalPtr().

TheBreedingSuccessProbe()

int Skylark_Population_Manager::TheBreedingSuccessProbe ( int &  BreedingFemales, int &  YoungOfTheYear, int &  TotalPop, int &  TotalFemales, int &  TotalMales, int &  BreedingAttempts  )

overridevirtual

Reimplemented from Population_Manager.

                                                                                                {
    int NumberA = 0;
    int HowMany = 0;
    BreedingAttempts = 0;
    const unsigned sz = static_cast<int>(GetLiveArraySize(4));
    for (unsigned j = 0; j < sz; j++)
    {
        auto FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
        int success = FS->Supply_BreedingSuccess();
#ifdef __HazelParry1
         if ( success >0 ) {
           NumberA += success;
           HowMany++;
           FS->ResetBreedingSuccess();
         }
#else
        if (success != -1)
        {
            NumberA += success;
            HowMany++;
        }
#endif
        BreedingAttempts += FS->Supply_BreedingAttempts();
    }
    BreedingFemales = HowMany;
    TotalFemales = sz;
    TotalMales = static_cast<int>(GetLiveArraySize(3));
    YoungOfTheYear = TheFledgelingProbe();
    TotalPop = TotalFemales + TotalMales;
    return NumberA;
}

References Population_Manager::GetLiveArraySize(), Population_Manager::SupplyAnimalPtr(), and TheFledgelingProbe().

TheFledgelingProbe()

int Skylark_Population_Manager::TheFledgelingProbe ( )

overridevirtual

Reimplemented from Population_Manager.

                                                   {
    int NumberSk = 0;
    for (unsigned j = 0; j < GetLiveArraySize(3); j++)
    {
        const auto MS = dynamic_cast<Skylark_Male*>(SupplyAnimalPtr(3, j));
        if (MS->Age == 0)
        {
            NumberSk++; // it is in the square so increment number
            VegTypeFledgelings[MS->m_MyHome]++;
        }
    }
    for (unsigned j = 0; j < GetLiveArraySize(4); j++)
    {
        const auto FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
        if (FS->Age == 0)
        {
            NumberSk++; // it is in the square so increment number
            VegTypeFledgelings[FS->m_MyHome]++;
        }
    }
    return NumberSk;
}

References Population_Manager::GetLiveArraySize(), Population_Manager::SupplyAnimalPtr(), and VegTypeFledgelings.

Referenced by TheBreedingSuccessProbe().

TheRipleysOutputProbe()

void Skylark_Population_Manager::TheRipleysOutputProbe ( FILE *  a_prb )

virtual

                                                                  {
    Skylark_Female* FS;
    unsigned totalF = 0;
    for (unsigned j = 0; j < GetLiveArraySize(sob_Female); j++) //adult females
    {
        FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
        if (FS->Paired) totalF++;
    }
    const int w = m_TheLandscape->SupplySimAreaWidth();
    const int h = m_TheLandscape->SupplySimAreaHeight();
    fprintf(a_prb, "%d %d %d %d %d\n", 0, w, 0, h, totalF);
    for (unsigned j = 0; j < GetLiveArraySize(sob_Female); j++) //adult females
    {
        FS = dynamic_cast<Skylark_Female*>(SupplyAnimalPtr(4, j));
        if (FS->Paired)
        {
            const int x = FS->Supply_m_Location_x();
            const int y = FS->Supply_m_Location_y();
            fprintf(a_prb, "%d\t%d\n", x, y);
        }
    }
    fflush(a_prb);
}

References Population_Manager::GetLiveArraySize(), Population_Manager_Base::m_TheLandscape, Skylark_Adult::Paired, TAnimal::Supply_m_Location_x(), TAnimal::Supply_m_Location_y(), Population_Manager::SupplyAnimalPtr(), Landscape::SupplySimAreaHeight(), and Landscape::SupplySimAreaWidth().

TheSkylarkTerrsSupply_quality()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_quality

(

int

r

)

const

{ return TheSkylarkTerrs->Supply_quality(r); }

References SkTerritories::Supply_quality(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_size()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_size

(

int

r

)

const

{ return TheSkylarkTerrs->Supply_size(r); }

References SkTerritories::Supply_size(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_x()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_x

(

int

r

)

const

{ return TheSkylarkTerrs->Supply_x(r); }

References SkTerritories::Supply_x(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_y()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_y

(

int

r

)

const

{ return TheSkylarkTerrs->Supply_y(r); }

References SkTerritories::Supply_y(), and TheSkylarkTerrs.

WriteSKPOM1()

void Skylark_Population_Manager::WriteSKPOM1 ( const int  n, const int  n2  ) const

inline

{ fprintf(SKPOM1, "%i\t%i\n", n, n2); }

Referenced by Skylark_Female::OnMateDying(), Skylark_Female::OnMateHomeless(), Skylark_Clutch::st_Developing(), Skylark_Female::st_Dying(), Skylark_Female::st_GivingUpTerritory(), Skylark_Female::st_StartingNewBrood(), Skylark_Female::st_StoppingBreeding(), and Skylark_Female::Step().

WriteSKPOM2()

void Skylark_Population_Manager::WriteSKPOM2 ( const int  n, const int  n2  ) const

inline

{ fprintf(SKPOM2, "%i\t%i\n", n, n2); }

Referenced by Skylark_Nestling::OnDeserted(), Skylark_Nestling::OnYouHaveBeenEaten(), and Skylark_Nestling::st_Developing().

Member Data Documentation

EMi

double Skylark_Population_Manager::EMi

protected

Referenced by DoFirst().

F_Mig_Mort

int Skylark_Population_Manager::F_Mig_Mort

protected

Referenced by DoFirst(), and Skylark_Population_Manager().

m_IsBadWeather

bool Skylark_Population_Manager::m_IsBadWeather

protected

Referenced by DoFirst().

M_Mig_Mort

int Skylark_Population_Manager::M_Mig_Mort

protected

Referenced by DoFirst(), and Skylark_Population_Manager().

m_NoChickDeaths

int Skylark_Population_Manager::m_NoChickDeaths

protected

Referenced by DoFirst(), Init(), and LoadParameters().

m_NoFledgeDeaths

int Skylark_Population_Manager::m_NoFledgeDeaths

protected

Referenced by DoFirst(), Init(), and LoadParameters().

m_NoPestEffects

int Skylark_Population_Manager::m_NoPestEffects

protected

Referenced by DoFirst(), Init(), and LoadParameters().

m_StriglingMort

int Skylark_Population_Manager::m_StriglingMort[4]

protected

Referenced by BreedingSuccessProbeOutput(), and DoFirst().

m_TotalEggs

int Skylark_Population_Manager::m_TotalEggs

protected

Referenced by BreedingSuccessProbeOutput(), and Init().

m_TotalNestlings

int Skylark_Population_Manager::m_TotalNestlings

protected

Referenced by BreedingSuccessProbeOutput(), CreateObjects(), and Init().

m_TotalPrefledgelings

int Skylark_Population_Manager::m_TotalPrefledgelings

protected

Referenced by BreedingSuccessProbeOutput(), CreateObjects(), and Init().

SKPOM1

FILE* Skylark_Population_Manager::SKPOM1

protected

Referenced by Init(), and ~Skylark_Population_Manager().

SKPOM2

FILE* Skylark_Population_Manager::SKPOM2

protected

Referenced by Init(), and ~Skylark_Population_Manager().

TheSkylarkTerrs

SkTerritories* Skylark_Population_Manager::TheSkylarkTerrs

Referenced by DoFirst(), Init(), Skylark_Male::OnEvicted(), Skylark_Population_Manager(), Skylark_Male::st_Arriving(), SupplyNoTerritories(), TheSkylarkTerrsSupply_quality(), TheSkylarkTerrsSupply_size(), TheSkylarkTerrsSupply_x(), TheSkylarkTerrsSupply_y(), and ~Skylark_Population_Manager().

VegTypeFledgelings

int* Skylark_Population_Manager::VegTypeFledgelings

Referenced by FledgelingProbeOutput(), Init(), TheFledgelingProbe(), and ~Skylark_Population_Manager().

---

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

• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.h
• /builds/ALMaSS/ALMaSS_MIDox/Skylark/skylarks_all.cpp