Skylark_Population_Manager Class Reference

#include <skylarks_all.h>

Public Member Functions
void	CreateObjects (int ob_type, TAnimal *pTAo, void *null, Skylark_struct *data, int number)
virtual void	Init (void)
void	WriteSKPOM1 (int n, int n2)
void	WriteSKPOM2 (int n, int n2)
int	SupplyM_Mig_Mort ()
int	SupplyF_Mig_Mort ()
int	SupplyNoTerritories ()
int	TheSkylarkTerrsSupply_x (int)
int	TheSkylarkTerrsSupply_y (int)
int	TheSkylarkTerrsSupply_size (int)
int	TheSkylarkTerrsSupply_quality (int)
void	SetM_Mig_Mort (int m)
void	SetF_Mig_Mort (int m)
	Skylark_Population_Manager (Landscape *L)
virtual	~Skylark_Population_Manager (void)
int	TheFledgelingProbe ()
virtual void	BreedingPairsOutput (int Time)
void	FledgelingProbeOutput (int Total, int Time)
int	TheBreedingFemalesProbe (int ProbeNo)
bool	OpenTheBreedingPairsProbe ()
bool	OpenTheFledgelingProbe ()
void	incNoFledgeDeaths ()
void	incNoChickDeaths ()
void	incNoPestEffects ()
void	incTotalEggs (int eggs)
void	incTotalNestlings ()
void	incTotalPrefledgelings ()
void	AddStriglingMort (int lifestage)
double	SupplyEMi ()
bool	IsBadWeather ()
virtual bool	OpenTheBreedingSuccessProbe ()
virtual void	BreedingSuccessProbeOutput (double, int, int, int, int, int, int, int)
virtual int	TheBreedingSuccessProbe (int &BreedingFemales, int &YoungOfTheYear, int &TotalPop, int &TotalFemales, int &TotalMales, int &BreedingAttempts)
virtual void	TheAOROutputProbe ()
virtual void	TheRipleysOutputProbe (FILE *a_prb)
Public Member Functions inherited from Population_Manager
	Population_Manager (Landscape *L)
virtual	~Population_Manager (void)
void	SetNoProbes (int a_pn)
unsigned	GetLiveArraySize (int a_listindex)
	Gets the number of 'live' objects for a list index in the TheArray. More...
void	IncLiveArraySize (int a_listindex)
	Increments the number of 'live' objects for a list index in the TheArray. More...
virtual void	Catastrophe (int)
unsigned int	FarmAnimalCensus (unsigned int a_farm, unsigned int a_typeofanimal)
char *	SpeciesSpecificReporting (int a_species, int a_time)
char *	ProbeReport (int a_time)
char *	ProbeReportTimed (int a_time)
void	ImpactProbeReport (int a_Time)
bool	BeginningOfMonth ()
void	LOG (const char *fname)
int	SupplyStepSize ()
int	SupplySimW ()
int	SupplySimH ()
virtual void	Run (int NoTSteps)
virtual float	Probe (int ListIndex, probe_data *p_TheProbe)
virtual void	ImpactedProbe ()
int	SupplyListNameLength ()
TAnimal *	SupplyAnimalPtr (int a_index, int a_animal)
	Returns the pointer indexed by a_index and a_animal. Note NO RANGE CHECK. More...
unsigned	SupplyListIndexSize ()
unsigned	SupplyListSize (unsigned listindex)
bool	CheckXY (int l, int i)
	Debug method to test for out of bounds coordinates. More...
const char *	SupplyListName (int i)
bool	IsLast (unsigned listindex)
int	SupplyState (unsigned listindex, unsigned j)
virtual void	SupplyLocXY (unsigned listindex, unsigned j, int &x, int &y)
const char *	SupplyStateNames (int i)
unsigned	SupplyStateNamesLength ()
virtual void	DisplayLocations ()
int	ProbeFileInput (char *p_Filename, int p_ProbeNo)
TAnimal *	FindClosest (int x, int y, unsigned Type)
bool	OpenTheRipleysOutputProbe (string a_NWordFilename)
void	OpenTheAOROutputProbe (string a_AORFilename)
bool	OpenTheMonthlyRipleysOutputProbe ()
bool	OpenTheReallyBigProbe ()
virtual void	TheReallyBigOutputProbe ()
void	CloseTheMonthlyRipleysOutputProbe ()
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)

Public Attributes
SkTerritories *	TheSkylarkTerrs
int	VegTypeFledgelings [100]
Public Attributes inherited from Population_Manager
int	IndexArrayX [5][10000]
probe_data *	TheProbe [100]
int	SimH
int	SimW
unsigned	SimHH
unsigned	SimWH
char	m_SimulationName [255]
bool	ProbesSet
Landscape *	m_TheLandscape

Protected Member Functions
virtual void	DoFirst ()
void	ProbeReportPOM (int a_time)
float	ProbePOM (int ListIndex, probe_data *p_TheProbe)
	Modified probe for POM Output. More...
void	LoadParameters ()
virtual void	Catastrophe ()
virtual void	ReHouse ()
Protected Member Functions inherited from Population_Manager
virtual bool	StepFinished ()
	Overrides the population manager StepFinished - there is no chance that hunters do not finish a step behaviour. More...
virtual void	DoBefore ()
virtual void	DoAfter ()
virtual void	DoAlmostLast ()
virtual void	DoLast ()
void	EmptyTheArray ()
	Removes all objects from the TheArray by deleting them and clearing TheArray. More...
void	SortX (unsigned Type)
void	SortXIndex (unsigned Type)
void	SortY (unsigned Type)
void	SortState (unsigned Type)
void	SortStateR (unsigned Type)
unsigned	PartitionLiveDead (unsigned Type)
void	Shuffle_or_Sort (unsigned Type)
void	Shuffle (unsigned Type)

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
AOR_Probe *	m_AOR_Probe
FILE *	m_GeneticsFile
FILE *	m_AlleleFreqsFile
FILE *	m_EasyPopRes
const char *	StateNames [100]
int	m_catastrophestartyear
int	m_StepSize
vector< TListOfAnimals >	TheArray
unsigned	StateNamesLength
const char *	m_ListNames [32]
unsigned	m_ListNameLength
FILE *	TestFile
FILE *	TestFile2
unsigned	BeforeStepActions [12]
int	m_SeasonNumber
	Holds the season number. Used when running goose and hunter sims. More...
TTypesOfPopulation	m_population_type
ofstream *	AOROutputPrb
FILE *	RipleysOutputPrb
FILE *	RipleysOutputPrb1
FILE *	RipleysOutputPrb2
FILE *	RipleysOutputPrb3
FILE *	RipleysOutputPrb4
FILE *	RipleysOutputPrb5
FILE *	RipleysOutputPrb6
FILE *	RipleysOutputPrb7
FILE *	RipleysOutputPrb8
FILE *	RipleysOutputPrb9
FILE *	RipleysOutputPrb10
FILE *	RipleysOutputPrb11
FILE *	RipleysOutputPrb12
FILE *	ReallyBigOutputPrb
long int	lamdagrid [2][257][257]

Constructor & Destructor Documentation

Skylark_Population_Manager()

Skylark_Population_Manager::Skylark_Population_Manager

(

Landscape *

L

)

                                                                      : Population_Manager( L ) {
  // Five lists are needed so need to remove 5 of the ten default arrays
  // Clutches,Nestlings,PreFledgelings,Males,Females
 
  for ( int i = 0; i < 5; i++ ) {
    TheArray.pop_back();
  }
 
  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();
}

References cfg_juvreturnmort, F_Mig_Mort, Init(), JuvenileReturnMort, M_Mig_Mort, Population_Manager::TheArray, and TheSkylarkTerrs.

~Skylark_Population_Manager()

Skylark_Population_Manager::~Skylark_Population_Manager ( void  )

virtual

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

References SKPOM1, SKPOM2, and TheSkylarkTerrs.

Member Function Documentation

AddStriglingMort()

void Skylark_Population_Manager::AddStriglingMort ( int  lifestage )

inline

  {
    m_StriglingMort[lifestage] ++;
  }

Referenced by Skylark_Base::AddStriglingMort().

BreedingPairsOutput()

void Skylark_Population_Manager::BreedingPairsOutput ( int  Time )

virtual

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;
  Skylark_Female * FS;
  int szf = (int)GetLiveArraySize(4);
  int szm = (int)GetLiveArraySize(3);
  for ( int j = 0; j < szf; j++ ) {
    FS = dynamic_cast < Skylark_Female * > ( TheArray[ 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){
            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, Population_Manager::GetLiveArraySize(), Skylark_Base::m_CurrentSkState, Skylark_Adult::Paired, TAnimal::Supply_m_Location_x(), TAnimal::Supply_m_Location_y(), Landscape::SupplyFarmOwner(), Population_Manager::TheArray, toss_BuildingUpResources, toss_EggHatching, toss_FCaringForYoung, toss_Incubating, toss_Laying, toss_MakingNest, and toss_PreparingForBreeding.

BreedingSuccessProbeOutput()

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

virtual

Reimplemented from Population_Manager.

                                                                        {
       double BreedingSuccess, HatchSuccess, FledgeSuccess;
       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
       double floaters = ( TotalPop - ( YoungOfTheYear + ( BreedingFemales * 2 ) ) ) / ( double )( TotalPop - YoungOfTheYear );
       HatchSuccess = m_TotalNestlings / ( double )( m_TotalEggs + 1 );
       FledgeSuccess = m_TotalPrefledgelings / ( double )( m_TotalNestlings + 1 );
       BreedingSuccess = m_TotalPrefledgelings / ( 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 m_StriglingMort, m_TotalEggs, m_TotalNestlings, and m_TotalPrefledgelings.

Catastrophe()

void Skylark_Population_Manager::Catastrophe ( void  )

protectedvirtual

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?
    int today = m_TheLandscape->SupplyDayInYear();
    if (today!=1) return;
    // First do we have the right year?
    int year = m_TheLandscape->SupplyYearNumber()-m_catastrophestartyear;
    if (year%cfg_pm_eventfrequency.value()!=0) return;
 
    Skylark_Male* MS = NULL; // assignment to get rid of warning
    Skylark_Female* FS = NULL;
    Skylark_Adult* AS = NULL;
    // Now if the % decrease is higher or lower than 100 we need to do different things
    int esize=cfg_pm_eventsize.value();
    if (esize<100) {
        unsigned size2;
        size2 = (int)GetLiveArraySize(sob_Male);;
            for ( unsigned j = 0; j < size2; j++ ) {
                if (random(100) > esize) {
                        MS = dynamic_cast < Skylark_Male * > ( TheArray[ 3 ] [ j ] );
                        if (MS->MyMate!=NULL) MS->MyMate->OnMateDying();
                        MS->Dying(); // Kill it
                }
                }
            size2 = (int)GetLiveArraySize(sob_Female);;
            for ( unsigned j = 0; j < size2; j++ ) {
                if (random(100) > esize) {
                        FS = dynamic_cast < Skylark_Female * > ( TheArray[ 4 ] [ j ] );
                        if (FS->MyMate!=NULL) 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++) {
            unsigned size2;
            size2 = (int)GetLiveArraySize(i);
            for ( unsigned j = 0; j < size2; j++ ) {
                if (random(100) < esize) {
                        AS = dynamic_cast < Skylark_Adult * > ( TheArray[ 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++) {
                unsigned size2;
                size2 = (int)GetLiveArraySize(i);
                for ( unsigned j = 0; j < size2; j++ ) {
                    for ( int e=0; e<esize; e++) {
                            AS = dynamic_cast < Skylark_Adult * > ( TheArray[ i ] [ j ] );
                            AS->CopyMyself(i); // Duplicate it
                        }
                }
            }
        }
        }
    else return; // No change so do nothing
}

References cfg_pm_eventfrequency, cfg_pm_eventsize, Skylark_Adult::CopyMyself(), TAnimal::Dying(), Population_Manager::GetLiveArraySize(), Population_Manager::m_catastrophestartyear, Population_Manager::m_TheLandscape, Skylark_Female::MyMate, Skylark_Male::MyMate, Skylark_Female::OnMateDying(), Skylark_Male::OnMateDying(), sob_Female, sob_Male, Landscape::SupplyDayInYear(), Landscape::SupplyYearNumber(), and Population_Manager::TheArray.

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);
            if (unsigned(TheArray[ob_type].size())>GetLiveArraySize(ob_type)) {
                // We need to reuse an object
                dynamic_cast<Skylark_Clutch*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(cs->Mum, cs->Terrs, cs->L, cs->No, cs->x, cs->y, cs->mh, this);
                cs->Mum->OnSetMyClutch(dynamic_cast<Skylark_Clutch*>(TheArray[ob_type][GetLiveArraySize(ob_type)]));
                IncLiveArraySize(ob_type);
            }
            else {
                New_Clutch = new Skylark_Clutch(cs->Mum, cs->Terrs, cs->L, cs->No, cs->x, cs->y, cs->mh, this);
                TheArray[ob_type].push_back(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);
            if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                // We need to reuse an object
                dynamic_cast<Skylark_Nestling*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(ns->x, ns->y, ns->Dad, ns->L, ns->Terrs, this, ns->bx, ns->by, ns->mh);
                // Give Dad a pointer to nestling
                ns->Dad->OnAddNestling(dynamic_cast<Skylark_Nestling*>(TheArray[ob_type][GetLiveArraySize(ob_type)]));
                IncLiveArraySize(ob_type);
            }
            else {
                New_Nestling = new Skylark_Nestling(ns->x, ns->y, ns->Dad, ns->L, ns->Terrs, this, ns->bx, ns->by, ns->mh);
                TheArray[ob_type].push_back(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);
            if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                // We need to reuse an object
                dynamic_cast<Skylark_PreFledgeling*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(pfs->x, pfs->y, pfs->L, pfs->Terrs, pfs->Dad, pfs->sex, pfs->size, pfs->age, this,
                    pfs->bx, pfs->by, pfs->mh);
                if (pfs->Dad) pfs->Dad->OnAddPreFledgeling(dynamic_cast<Skylark_PreFledgeling*>(TheArray[ob_type][GetLiveArraySize(ob_type)]), (Skylark_Nestling *)pTAo);
                IncLiveArraySize(ob_type);
            }
            else {
                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);
 
                TheArray[ob_type].push_back(New_PreFledgeling);
                IncLiveArraySize(ob_type);
                if (pfs->Dad) pfs->Dad->OnAddPreFledgeling(New_PreFledgeling, (Skylark_Nestling *)pTAo);
            }
            // Count this as a nest leaver
            m_TotalPrefledgelings++;
        }
        if (ob_type == 3) {
            as = dynamic_cast <AdultSkylark_struct *> (data);
            // Male
            if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                // We need to reuse an object
                dynamic_cast<Skylark_Male*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                IncLiveArraySize(ob_type);
            }
            else {
                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();
                TheArray[ob_type].push_back(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
            if (unsigned(TheArray[ob_type].size()) > GetLiveArraySize(ob_type)) {
                // We need to reuse an object
                dynamic_cast<Skylark_Female*>(TheArray[ob_type][GetLiveArraySize(ob_type)])->ReInit(as->x, as->y, as->size, as->age, as->Terrs, as->L, this, as->bx, as->by, as->mh);
                IncLiveArraySize(ob_type);
            }
            else {
                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();
                TheArray[ob_type].push_back(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::GetLiveArraySize(), 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(), Skylark_Female::SensibleCopy(), Skylark_Male::SensibleCopy(), PreFledgeling_struct::sex, PreFledgeling_struct::size, AdultSkylark_struct::size, Skylark_struct::Terrs, Population_Manager::TheArray, 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  )

protectedvirtual

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();
    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, EMi, SkTerritories::EvaluateAllTerritories(), F_Mig_Mort, January, m_IsBadWeather, M_Mig_Mort, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, m_StriglingMort, Population_Manager::m_TheLandscape, SkTerritories::PreProcessLandscape2(), ProbeReportPOM(), Landscape::SupplyDayInYear(), Landscape::SupplyTemp(), TheSkylarkTerrs, and SkTerritories::Tick().

FledgelingProbeOutput()

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

virtual

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; i++ )
        fprintf( MyFile, " %3d %5d %9.0f", i, VegTypeFledgelings[ i ], m_TheLandscape->GetVegArea( i ) );
    fprintf( MyFile, "\n" );
    fclose( MyFile );
    // Data for the FledgelingProbe needs clearing
    for ( int i = 0; i < 100; i++ ) {
        VegTypeFledgelings[ i ] = 0;
    }
}

References Landscape::GetVegArea(), Population_Manager::m_TheLandscape, tov_Undefined, and VegTypeFledgelings.

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 ( 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_RipleysOutput_used.value() ) {
    OpenTheRipleysOutputProbe("");
  }
  LoadParameters();
  // autom. called by constructor
  strcpy( m_SimulationName, "Skylark" );
  // Create 100 male and female skylarks
  AdultSkylark_struct * aps;
  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 < cfg_SkStartNos.value(); i++ ) {
    aps->x = random( m_TheLandscape->SupplySimAreaWidth() );
    aps->y = random( m_TheLandscape->SupplySimAreaHeight() );
    aps->bx = aps->x;
    aps->by = aps->y;
    aps->age = random( 5 );
    aps->mh = tov_Undefined;
    CreateObjects( 3, NULL, NULL, aps, 1 );
  }
  aps->sex = false;
  for ( int i = 0; i < cfg_SkStartNos.value(); i++ ) {
    aps->x = random( m_TheLandscape->SupplySimAreaWidth() );
    aps->y = random( m_TheLandscape->SupplySimAreaHeight() );
    aps->bx = aps->x;
    aps->by = aps->y;
    aps->age = random( 5 );
    aps->mh = tov_Undefined;
    CreateObjects( 4, NULL, NULL, 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_ReallyBigOutput_used.value() ) {
    OpenTheReallyBigProbe();
  } else ReallyBigOutputPrb=0;
#ifdef __SKPOM
  SKPOM1 = fopen( "SkylarkPOM1.txt", "w" );
  SKPOM2 = fopen( "SkylarkPOM2.txt", "w" );
#endif
}

References AdultSkylark_struct::age, Population_Manager::BeforeStepActions, Skylark_struct::bx, Skylark_struct::by, cfg_ReallyBigOutput_used, cfg_RipleysOutput_used, cfg_SkStartNos, CreateObjects(), g_land, Skylark_struct::L, LoadParameters(), Population_Manager::m_ListNameLength, Population_Manager::m_ListNames, m_NoChickDeaths, m_NoFledgeDeaths, m_NoPestEffects, Population_Manager::m_population_type, Population_Manager::m_SimulationName, Population_Manager::m_TheLandscape, m_TotalEggs, m_TotalNestlings, m_TotalPrefledgelings, Skylark_struct::mh, Population_Manager::OpenTheReallyBigProbe(), Population_Manager::OpenTheRipleysOutputProbe(), Population_Manager::ReallyBigOutputPrb, AdultSkylark_struct::sex, AdultSkylark_struct::size, SKPOM1, SKPOM2, Population_Manager::StateNames, Landscape::SupplySimAreaHeight(), Landscape::SupplySimAreaWidth(), Skylark_struct::Terrs, TheSkylarkTerrs, TOP_Skylark, toss_AttractingAMate, toss_BuildingUpResources, toss_CDying, toss_Destroy, toss_Developing, toss_EggHatching, toss_FArriving, toss_FCaringForYoung, toss_FDying, toss_FEmigrating, toss_FFindingTerritory, toss_FFloating, toss_FFlocking, toss_FImmigrating, toss_FollowingMate, toss_FTempLeavingArea, toss_GivingUpTerritory, toss_Hatching, toss_Incubating, toss_Initiation, toss_Laying, toss_MakingNest, toss_MArriving, toss_MCaringForYoung, toss_MDying, toss_MEmigrating, toss_MFindingTerritory, toss_MFloating, toss_MFlocking, toss_MImmigrating, toss_MTempLeavingArea, toss_NDeveloping, toss_NDying, toss_NMaturing, toss_PDeveloping, toss_PDying, toss_PMaturing, toss_PreparingForBreeding, toss_ScaringOffChicks, toss_StartingNewBrood, toss_StoppingBreeding, tov_Undefined, Skylark_struct::x, and Skylark_struct::y.

Referenced by Skylark_Population_Manager().

IsBadWeather()

bool Skylark_Population_Manager::IsBadWeather ( )

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 = (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 = (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 = (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 = (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( (double) 20 - i, (double) cfg_temphindpow.value() ) / pow( (double) 20, (double) cfg_temphindpow.value() ) ) ) );
  }
  for ( int i = 0; i <= 10; i++ ) {
      RainHindrance[ i ] =  pow( (double) 10 - i, (double) cfg_rainhindpow.value() ) / (double) pow( (double) 10.0, (double) cfg_rainhindpow.value() );
  }
  // Data for the FledgelingProbe
  for ( int i = 0; i < 100; i++ ) VegTypeFledgelings[ i ] = 0;
 
  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, VegHindranceD, VegHindranceH, and VegTypeFledgelings.

Referenced by Init().

OpenTheBreedingPairsProbe()

bool Skylark_Population_Manager::OpenTheBreedingPairsProbe ( )

virtual

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;
}

OpenTheBreedingSuccessProbe()

bool Skylark_Population_Manager::OpenTheBreedingSuccessProbe ( )

virtual

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;
}

Referenced by LoadParameters().

OpenTheFledgelingProbe()

bool Skylark_Population_Manager::OpenTheFledgelingProbe ( )

virtual

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" );
  int howMany = ( int )tov_Undefined;
  for ( int i = 0; i <= howMany; i++ ) {
    fprintf( MyFile2, "%d %s\n", i, (m_TheLandscape->VegtypeToString( (TTypesOfVegetation) i )).c_str());
  }
  fclose( MyFile );
  fclose( MyFile2 );
  return false;
}

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

ProbePOM()

float Skylark_Population_Manager::ProbePOM ( int  ListIndex, 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++) {
            unsigned Farm = TheArray[ ListIndex ] [ j ]->SupplyFarmOwnerRef();
            for ( unsigned k = 0; k < p_TheProbe->m_NoFarms; k++ ) {
                if ( p_TheProbe->m_RefFarms[ k ] == Farm ) {
                    Skylark_Female * FS;
                    FS = dynamic_cast < Skylark_Female * > ( TheArray[ ListIndex ] [ j ] );
                    TTypesOfSkState state = (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++)
            {
                unsigned Farm = TheArray[ ListIndex ] [ j ]->SupplyFarmOwnerRef();
                for ( unsigned k = 0; k < p_TheProbe->m_NoFarms; k++ )
                {
                    if ( p_TheProbe->m_RefFarms[ k ] == Farm )
                    {
                        Skylark_Male * MS;
                        MS = dynamic_cast < Skylark_Male * > ( TheArray[ ListIndex ] [ j ] );
                        if (MS->HaveTerritory) NumberSk++;// it is in the square so increment number
                    }
                }
            }
        }
    }
    return NumberSk;
}

References Population_Manager::GetLiveArraySize(), Skylark_Male::HaveTerritory, probe_data::m_NoFarms, probe_data::m_RefFarms, Population_Manager::TheArray, toss_EggHatching, toss_FCaringForYoung, toss_Incubating, toss_Laying, toss_MakingNest, toss_PreparingForBreeding, toss_StartingNewBrood, and Skylark_Base::WhatState().

Referenced by ProbeReportPOM().

ProbeReportPOM()

void Skylark_Population_Manager::ProbeReportPOM ( int  a_time )

protected

                                                            {
    for ( int ProbeNo = 0; ProbeNo < m_NoProbes; ProbeNo++ ) {
        int No = 0;
        unsigned Index = SupplyListIndexSize();
        for ( unsigned listindex = 0; listindex < Index; listindex++ ) {
            if ( TheProbe[ ProbeNo ]->m_TargetTypes[ listindex ] ) No += (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::TheProbe.

Referenced by DoFirst().

ReHouse()

void Skylark_Population_Manager::ReHouse ( void  )

protectedvirtual

                                              {
    Skylark_Male* MS = NULL; // assignment to get rid of warning
    unsigned size = (unsigned)GetLiveArraySize(sob_Male);
    for ( unsigned j = 0; j < size; j++ ) {
        MS = dynamic_cast < Skylark_Male * > (TheArray[sob_Male][j]);
            if (MS->HaveTerritory) {
                MS->OnReHouse();
        }
    }
}

References Population_Manager::GetLiveArraySize(), Skylark_Male::HaveTerritory, Skylark_Male::OnReHouse(), sob_Male, and Population_Manager::TheArray.

SetF_Mig_Mort()

void Skylark_Population_Manager::SetF_Mig_Mort ( int  m )

inline

  {
    F_Mig_Mort = m;
  }

SetM_Mig_Mort()

void Skylark_Population_Manager::SetM_Mig_Mort ( int  m )

inline

  {
    M_Mig_Mort = m;
  }

SupplyEMi()

double Skylark_Population_Manager::SupplyEMi ( )

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 ( )

inline

  {
    return F_Mig_Mort;
  }

Referenced by Skylark_Female::GetMigrationMortality().

SupplyM_Mig_Mort()

int Skylark_Population_Manager::SupplyM_Mig_Mort ( )

inline

  {
    return M_Mig_Mort;
  }

Referenced by Skylark_Male::GetMigrationMortality().

SupplyNoTerritories()

int Skylark_Population_Manager::SupplyNoTerritories

(

)

                                                    {
  return TheSkylarkTerrs->SupplyNoTerritories();
}

References SkTerritories::SupplyNoTerritories(), and TheSkylarkTerrs.

TheAOROutputProbe()

void Skylark_Population_Manager::TheAOROutputProbe ( )

virtual

Reimplemented from Population_Manager.

                                                   {
    m_AOR_Probe->DoProbe(sob_Female);
}

References Population_Manager::m_AOR_Probe, and sob_Female.

TheBreedingFemalesProbe()

int Skylark_Population_Manager::TheBreedingFemalesProbe ( int  ProbeNo )

virtual

Reimplemented from Population_Manager.

                                                               {
  int NumberSk = 0;
  Skylark_Male * MS;
  for (unsigned j = 0; j < GetLiveArraySize(3); j++) {
    MS = dynamic_cast < Skylark_Male * > ( TheArray[ 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(), Skylark_Male::HaveTerritory, Skylark_Adult::Paired, and Population_Manager::TheArray.

TheBreedingSuccessProbe()

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

virtual

Reimplemented from Population_Manager.

                                                                    {
       int NumberA = 0;
       int HowMany = 0;
       BreedingAttempts = 0;
       Skylark_Female * FS;
       unsigned sz = (int)GetLiveArraySize(4);
       for ( unsigned j = 0; j < sz; j++ ) {
         FS = dynamic_cast < Skylark_Female * > ( TheArray[ 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 = (int)GetLiveArraySize(3);
       YoungOfTheYear = TheFledgelingProbe();
       TotalPop = TotalFemales + TotalMales;
       return NumberA;
}

References Population_Manager::GetLiveArraySize(), Skylark_Female::ResetBreedingSuccess(), Skylark_Female::Supply_BreedingAttempts(), Skylark_Female::Supply_BreedingSuccess(), Population_Manager::TheArray, and TheFledgelingProbe().

TheFledgelingProbe()

int Skylark_Population_Manager::TheFledgelingProbe ( )

virtual

Reimplemented from Population_Manager.

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

References Skylark_Base::Age, Population_Manager::GetLiveArraySize(), Skylark_Base::m_MyHome, Population_Manager::TheArray, and VegTypeFledgelings.

Referenced by TheBreedingSuccessProbe().

TheRipleysOutputProbe()

void Skylark_Population_Manager::TheRipleysOutputProbe ( FILE *  a_prb )

virtual

Reimplemented from Population_Manager.

                                                                    {
  Skylark_Female* FS;
  unsigned totalF=0;
  for (unsigned j = 0; j<GetLiveArraySize(sob_Female); j++)      //adult females
  {
      FS=dynamic_cast<Skylark_Female*>(TheArray[4][j]);
      if (FS->Paired) totalF++;
  }
  int x,y;
  int w = m_TheLandscape->SupplySimAreaWidth();
  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*>(TheArray[4][j]);
      if (FS->Paired) {
          x=FS->Supply_m_Location_x();
          y=FS->Supply_m_Location_y();
          fprintf(a_prb,"%d\t%d\n", x,y);
      }
  }
  fflush(a_prb);
}

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

TheSkylarkTerrsSupply_quality()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_quality

(

int

r

)

                                                                     {
  return TheSkylarkTerrs->Supply_quality( r );
}

References SkTerritories::Supply_quality(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_size()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_size

(

int

r

)

                                                                  {
  return TheSkylarkTerrs->Supply_size( r );
}

References SkTerritories::Supply_size(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_x()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_x

(

int

r

)

                                                               {
  return TheSkylarkTerrs->Supply_x( r );
}

References SkTerritories::Supply_x(), and TheSkylarkTerrs.

TheSkylarkTerrsSupply_y()

int Skylark_Population_Manager::TheSkylarkTerrsSupply_y

(

int

r

)

                                                               {
  return TheSkylarkTerrs->Supply_y( r );
}

References SkTerritories::Supply_y(), and TheSkylarkTerrs.

WriteSKPOM1()

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

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 ( int  n, int  n2  )

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[100]

Referenced by FledgelingProbeOutput(), LoadParameters(), and TheFledgelingProbe().

---

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

• C:/Repo/ALMaSS_All/Skylark/skylarks_all.h
• C:/Repo/ALMaSS_All/Skylark/skylarks_all.cpp