Skylark_PreFledgeling Class Reference

#include <skylarks_all.h>

Public Member Functions
	Skylark_PreFledgeling (int x, int y, Landscape *L, SkTerritories *Terrs, Skylark_Male *Daddy, bool sex, double size, int age, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, Landscape *L, SkTerritories *Terrs, Skylark_Male *Daddy, bool sex, double size, int age, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	BeginStep (void)
	BeingStep behaviour - must be implemented in descendent classes. More...
virtual void	Step (void)
	Step behaviour - must be implemented in descendent classes. More...
virtual void	EndStep (void)
	EndStep behaviour - must be implemented in descendent classes. More...
Public Member Functions inherited from Skylark_Nestling
	Skylark_Nestling (int x, int y, Skylark_Male *Daddy, Landscape *L, SkTerritories *Terrs, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, Skylark_Male *Daddy, Landscape *L, SkTerritories *Terrs, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual double	On_FoodSupply (double food)
void	OnDadDead ()
void	OnYouHaveBeenEaten ()
void	OnDeserted ()
Public Member Functions inherited from Skylark_Base
	Skylark_Base (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
virtual void	ReInit (int x, int y, SkTerritories *Terrs, Landscape *L, Skylark_Population_Manager *SPM, int bx, int by, int mh)
void	AddStriglingMort (int lifestage)
virtual int	WhatState ()
bool	InSquare (rectangle R)
Public Member Functions inherited from TAnimal
unsigned	SupplyFarmOwnerRef ()
AnimalPosition	SupplyPosition ()
APoint	SupplyPoint ()
int	SupplyPolygonRef ()
int	Supply_m_Location_x ()
int	Supply_m_Location_y ()
virtual void	KillThis ()
virtual void	CopyMyself ()
void	SetX (int a_x)
void	SetY (int a_y)
	TAnimal (int x, int y, Landscape *L)
virtual void	ReinitialiseObject (int x, int y, Landscape *L)
	Used to re-use an object - must be implemented in descendent classes. More...
virtual void	Dying ()
void	CheckManagement (void)
void	CheckManagementXY (int x, int y)
Public Member Functions inherited from TALMaSSObject
int	GetCurrentStateNo ()
	Returns the current state number. More...
void	SetCurrentStateNo (int a_num)
	Sets the current state number. More...
bool	GetStepDone ()
	Returns the step done indicator flag. More...
void	SetStepDone (bool a_bool)
	Sets the step done indicator flag. More...
virtual void	ReinitialiseObject ()
	Used to re-use an object - must be implemented in descendent classes. More...
	TALMaSSObject ()
	The constructor for TALMaSSObject. More...
virtual	~TALMaSSObject ()
	The destructor for TALMaSSObject. More...
void	OnArrayBoundsError ()
	Used for debugging only, tests basic object properties. More...

Protected Member Functions
virtual int	st_Developing ()
virtual void	st_Maturing ()
virtual void	st_Dying ()
double	GetFood ()
double	GetFledgelingEM (int Age)
virtual bool	OnFarmEvent (FarmToDo event)
virtual void	PesticideResponse ()
Protected Member Functions inherited from Skylark_Base
bool	DailyMortality (int mort)
Protected Member Functions inherited from TAnimal
void	CorrectWrapRound ()
	Corrects wrap around co-ordinate problems. More...

Additional Inherited Members
Public Attributes inherited from Skylark_Base
double	m_pesticide_accumulation
double	m_pcide_conc
TTypesOfSkState	m_CurrentSkState
int	Age
double	m_Size
int	m_Born_x
int	m_Born_y
int	m_MyHome
	The vegetation type where the skylark was born. More...
SkTerritories *	m_OurTerritories
Skylark_Population_Manager *	m_OurPopulationManager
Protected Attributes inherited from Skylark_Nestling
bool	Sex
int	m_EM_fail
int	m_NestLeavingChance
Skylark_Male *	m_Dad
double	m_EM
double	m_GrNeed
Protected Attributes inherited from TAnimal
int	m_Location_x
int	m_Location_y
Landscape *	m_OurLandscape
Protected Attributes inherited from TALMaSSObject
int	m_CurrentStateNo
	The basic state number for all objects - '-1' indicates death. More...
bool	m_StepDone
	Indicates whether the iterative step code is done for this timestep. More...

Constructor & Destructor Documentation

Skylark_PreFledgeling()

Skylark_PreFledgeling::Skylark_PreFledgeling	(	int	x,
		int	y,
		Landscape *	L,
		SkTerritories *	Terrs,
		Skylark_Male *	Daddy,
		bool	sex,
		double	size,
		int	age,
		Skylark_Population_Manager *	SPM,
		int	bx,
		int	by,
		int	mh
	)

                                                                                              :
    Skylark_Nestling(x, y, Daddy, L, Terrs, SPM, bx, by, mh) {
    Sex = sex; // must be reset because the nestling constructor can change it
    m_Size = size;
    Age = age;
    m_EM = 0;
    m_GrNeed = 0;
    m_CurrentSkState = toss_PDeveloping; // must develop today
}

References Skylark_Base::Age, Skylark_Base::m_CurrentSkState, Skylark_Nestling::m_EM, Skylark_Nestling::m_GrNeed, Skylark_Base::m_Size, Skylark_Nestling::Sex, and toss_PDeveloping.

Member Function Documentation

BeginStep()

void Skylark_PreFledgeling::BeginStep ( void  )

virtual

BeingStep behaviour - must be implemented in descendent classes.

Reimplemented from Skylark_Nestling.

                                            {
  CheckManagement();
}

References TAnimal::CheckManagement().

EndStep()

void Skylark_PreFledgeling::EndStep ( void  )

virtual

EndStep behaviour - must be implemented in descendent classes.

Reimplemented from Skylark_Nestling.

                                    {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_CurrentSkState == toss_Destroy ) return;
#ifdef __CJTDebug_5
  if ( Dad )
    if ( !Dad->DoIExistP( this ) ) {
      g_land->Warn( "Skylark_PreFeldgeling::EndStep(): DeBug5 ", NULL );
      exit( 1 );
    }
#endif
  switch ( m_CurrentSkState ) {
    case toss_PDeveloping: // Develop
      switch ( st_Developing() ) {
        case 2:
#ifdef TEST_ISSUE_DEATH_WARRANT
          printf( "Skylark_PreFledgeling::EndStep() : st_Developing() : %d\n", ( int )g_date->Date() );
#endif
          m_CurrentSkState = toss_PDying; // -> die
        break;
        case 1:
          m_CurrentSkState = toss_PMaturing; // -> Maturing
          // This state must be completed now so make the call from here to stop
          // it being made the next day
          st_Maturing();
          m_CurrentSkState = toss_Destroy; // will kill it at end of step!
          m_CurrentStateNo = -1;
          m_StepDone = true;
        break;
      }
    break;
    case 8: // Maturing
      g_land->Warn( "Skylark_PreFledling::EndStep(): Maturing ", NULL );
      exit( 1 );
    case 9: // Dying
      st_Dying();
      m_StepDone = true;
    break;
    default:
      /* char errornum[20]; sprintf(errornum, "%d", m_CurrentSkState );
      g_land->Warn("Skylark_PreFledgeling::EndStep(): Unknown state: ", errornum); exit(0); */
    break;
  }
  // Need to find out if it is poisoned
#ifdef __PESTICIDE_RA
  PesticideResponse();
#endif
}

References g_land, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, TALMaSSObject::m_StepDone, PesticideResponse(), st_Developing(), st_Dying(), st_Maturing(), toss_Destroy, toss_PDeveloping, toss_PDying, toss_PMaturing, and Landscape::Warn().

GetFledgelingEM()

double Skylark_PreFledgeling::GetFledgelingEM ( int  Age )

protected

                                                     {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0xDEADC0DE )
    DEADCODEError();
#endif
  // Speed optimisation - this is the same for every bird so done in PopMan
  return m_OurPopulationManager->SupplyEMi(); // in gdw needed
}

References Skylark_Base::m_OurPopulationManager, and Skylark_Population_Manager::SupplyEMi().

GetFood()

double Skylark_PreFledgeling::GetFood ( )

protected

                                      {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Food it obtained from the local area
  // This will depend upon the habitat quality/weather & searching efficiency
  // This is possibly too complicated just now so:
  // First prototype model will assume that for the last 10 days the birds
  // can find 10% of their need for each day after 20 days so at 30 days they
  // are completely independent and cannot starve
 
  // 1st prototype
  double food;
  if (Age>=20) {
    food = m_OurPopulationManager->SupplyEMi() * 0.1 * ( Age - 20 );
  } else food=0;
  return food;
}

References Skylark_Base::Age, Skylark_Base::m_OurPopulationManager, and Skylark_Population_Manager::SupplyEMi().

OnFarmEvent()

bool Skylark_PreFledgeling::OnFarmEvent ( FarmToDo  event )

protectedvirtual

Reimplemented from Skylark_Nestling.

                                                      {
  switch ( event ) {
    case sleep_all_day:
    case fp_npks:
    case fp_npk:
    case fp_pk:
    case fp_slurry:
    case fp_manganesesulphate:
    case fp_manure:
    case fp_greenmanure:
    case fp_sludge:
    case fa_npk:
    case fa_pk:
    case fa_slurry:
    case fa_ammoniumsulphate:
    case fa_manure:
    case fa_greenmanure:
    case fa_sludge:
    case herbicide_treat:
    case growth_regulator:
    case fungicide_treat:
    case insecticide_treat:
    case trial_insecticidetreat:
    case molluscicide:
    case row_cultivation:
    case water:
    case swathing:
    case harvest:
    case cattle_out:
    case cattle_out_low:
    case hay_bailing:
    case mow:
    case cut_weeds:
    case pigs_out:
    break;
 
    case autumn_harrow:
    case autumn_roll:
    case autumn_sow:
    case winter_plough:
    case deep_ploughing:
    case spring_plough:
    case spring_harrow:
    case spring_roll:
    case spring_sow:
    case autumn_plough:
    case hilling_up:
    case cut_to_hay:
    case cut_to_silage:
    case straw_chopping:
    case hay_turning:
    case stubble_harrowing:
    case autumn_or_spring_plough:
    case burn_straw_stubble:
      if ( Age <= 20 ) {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_PreFledgeling::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_PDying;
      }
    break;
 
    case fp_liquidNH3:
    break;
 
 
    case syninsecticide_treat:
      if ( random( 1000 ) < cfg_insecticide_direct_mortP.value() ) {
#ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_PreFledgeling::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
#endif
        m_CurrentSkState = toss_PDying;
      }
    break;
 
 
    case strigling_sow:
    case strigling:
#ifndef __NoStriglingEffect
      if ( ( Age <= 20 ) && ( random( 100 ) < 50 ) ) {
  #ifdef TEST_ISSUE_DEATH_WARRANT
        printf( "Skylark_PreFledgeling::OnFarmEvent() : %d : %d\n", event, ( int )g_date->Date() );
  #endif
        m_CurrentSkState = toss_PDying;
        AddStriglingMort( 3 );
      }
#endif
    break;
 
    case product_treat:
    break;
    case glyphosate:
    break;
 
    default:
      g_land->Warn( "Skylark_PreFledgeling::OnFarmEvent(): ""Unknown event type:",
           m_OurLandscape->EventtypeToString( event ) );
      exit( 1 );
  }
  if ( m_CurrentSkState == toss_PDying ) return true; else
    return false;
}

References Skylark_Base::AddStriglingMort(), Skylark_Base::Age, autumn_harrow, autumn_or_spring_plough, autumn_plough, autumn_roll, autumn_sow, burn_straw_stubble, cattle_out, cattle_out_low, cfg_insecticide_direct_mortP, cut_to_hay, cut_to_silage, cut_weeds, deep_ploughing, Landscape::EventtypeToString(), fa_ammoniumsulphate, fa_greenmanure, fa_manure, fa_npk, fa_pk, fa_sludge, fa_slurry, fp_greenmanure, fp_liquidNH3, fp_manganesesulphate, fp_manure, fp_npk, fp_npks, fp_pk, fp_sludge, fp_slurry, fungicide_treat, g_land, glyphosate, growth_regulator, harvest, hay_bailing, hay_turning, herbicide_treat, hilling_up, insecticide_treat, Skylark_Base::m_CurrentSkState, TAnimal::m_OurLandscape, molluscicide, mow, pigs_out, product_treat, row_cultivation, sleep_all_day, spring_harrow, spring_plough, spring_roll, spring_sow, straw_chopping, strigling, strigling_sow, stubble_harrowing, swathing, syninsecticide_treat, toss_PDying, trial_insecticidetreat, Landscape::Warn(), water, and winter_plough.

PesticideResponse()

void Skylark_PreFledgeling::PesticideResponse ( void  )

protectedvirtual

Reimplemented from Skylark_Nestling.

                                               {
    if (m_pesticide_accumulation > cfg_Skylark_prefledegling_NOEL.value()) {
        // NOEL triggered, so we need to die
        m_CurrentSkState = toss_PDying;
    }
    m_pesticide_accumulation *= cfg_Skylark_prefledegling_Biodegredation.value();
}

References cfg_Skylark_prefledegling_Biodegredation, cfg_Skylark_prefledegling_NOEL, Skylark_Base::m_CurrentSkState, Skylark_Base::m_pesticide_accumulation, and toss_PDying.

Referenced by EndStep().

ReInit()

void Skylark_PreFledgeling::ReInit ( int  x, int  y, Landscape *  L, SkTerritories *  Terrs, Skylark_Male *  Daddy, bool  sex, double  size, int  age, Skylark_Population_Manager *  SPM, int  bx, int  by, int  mh  )

virtual

                                                                                                                                                                                                     {
    Skylark_Nestling::ReInit(x, y, Daddy, L, Terrs, SPM, bx, by, mh);
    Sex = sex; // must be reset because the nestling constructor can change it
    m_Size = size;
    Age = age;
    m_EM = 0;
    m_GrNeed = 0;
    m_CurrentSkState = toss_PDeveloping; // must develop today
}

References Skylark_Base::Age, Skylark_Base::m_CurrentSkState, Skylark_Nestling::m_EM, Skylark_Nestling::m_GrNeed, Skylark_Base::m_Size, Skylark_Nestling::ReInit(), Skylark_Nestling::Sex, and toss_PDeveloping.

st_Developing()

int Skylark_PreFledgeling::st_Developing ( )

protectedvirtual

Reimplemented from Skylark_Nestling.

                                         {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing: called at the end of each day
  if ( DailyMortality( PreFledgeMortProb ) ) {
    //m_OurPopulationManager->WriteToTest2File(m_OurLandscape->SupplyDayInYear(),3001);
    return 2; //transfer to state die
  }
  if ( Age++ == 31 ) {
    //m_OurPopulationManager->WriteToTest2File((int)3000, 3000);
    m_Size = 38.0; // Give it a size
    return 1; // Next stage
  } else {
    // Get Next days EM
    m_EM = 0; // m_OurPopulationManager->SupplyEMi();   // KCal
    m_GrNeed = 0; // gdw
    return 0; // still developing
  }
}

References Skylark_Base::Age, Skylark_Base::DailyMortality(), Skylark_Nestling::m_EM, Skylark_Nestling::m_GrNeed, Skylark_Base::m_Size, and PreFledgeMortProb.

Referenced by EndStep().

st_Dying()

void Skylark_PreFledgeling::st_Dying ( )

protectedvirtual

Reimplemented from Skylark_Nestling.

                                     {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_Dad != NULL ) m_Dad->OnPreFledgelingDeath( this );
  m_CurrentSkState = toss_Destroy; // will kill it at end of step!
  m_CurrentStateNo = -1;
}

References Skylark_Base::m_CurrentSkState, TALMaSSObject::m_CurrentStateNo, Skylark_Nestling::m_Dad, Skylark_Male::OnPreFledgelingDeath(), and toss_Destroy.

Referenced by EndStep().

st_Maturing()

void Skylark_PreFledgeling::st_Maturing ( )

protectedvirtual

Reimplemented from Skylark_Nestling.

                                        {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  // Timing: occurs at the end of the day
  // Mortality after this time, until they return is taken up in the
  // immigration mortality (total 35%)
  AdultSkylark_struct * aps;
  aps = new AdultSkylark_struct;
  aps->x = m_Location_x;
  aps->y = m_Location_y;
  aps->size = m_Size;
  aps->Terrs = m_OurTerritories;
  aps->L = m_OurLandscape;
  aps->sex = Sex;
  aps->age = 0;
  aps->bx = m_Born_x;
  aps->mh = m_MyHome;
  aps->by = m_Born_y;
  if ( Sex == true ) m_OurPopulationManager->CreateObjects( 3, this, NULL, aps, 1 ); else
    m_OurPopulationManager->CreateObjects( 4, this, NULL, aps, 1 );
  // object will be destroyed by death state
  // but must let Dad know anyway
  delete aps;
  if ( m_Dad != NULL ) m_Dad->OnPreFledgelingMature( this );
  //   m_OurPopulationManager->WriteToTest2File(3,3);
 
}

References AdultSkylark_struct::age, Skylark_struct::bx, Skylark_struct::by, Skylark_Population_Manager::CreateObjects(), Skylark_struct::L, Skylark_Base::m_Born_x, Skylark_Base::m_Born_y, Skylark_Nestling::m_Dad, TAnimal::m_Location_x, TAnimal::m_Location_y, Skylark_Base::m_MyHome, TAnimal::m_OurLandscape, Skylark_Base::m_OurPopulationManager, Skylark_Base::m_OurTerritories, Skylark_Base::m_Size, Skylark_struct::mh, Skylark_Male::OnPreFledgelingMature(), AdultSkylark_struct::sex, Skylark_Nestling::Sex, AdultSkylark_struct::size, Skylark_struct::Terrs, Skylark_struct::x, and Skylark_struct::y.

Referenced by EndStep().

Step()

void Skylark_PreFledgeling::Step ( void  )

virtual

Step behaviour - must be implemented in descendent classes.

Reimplemented from Skylark_Nestling.

                                 {
#ifdef __CJTDebug_5
  if ( IsAlive() != 0x0DEADC0DE ) DEADCODEError();
#endif
  if ( m_StepDone  ) return;
  switch ( m_CurrentSkState ) {
    case toss_Initiation: // Initial
      // Should never access this code becuase it should go
      // to m_CurrentSkState=toss_PDeveloping;
      g_land->Warn( "Skylark_PreFeldgeling::Step(): Ilegal ", NULL );
      exit( 1 );
    case toss_PDeveloping: // Develop
      m_StepDone = true;
    break;
    case toss_PMaturing: // Maturing
      m_StepDone = true;
    break;
    case toss_PDying: // Dying
      m_StepDone = true;
    break;
    case toss_Destroy:
        m_StepDone = true;
        break;
    default:
      g_land->Warn( "Skylark_PreFeldgeling::Step(): Unknown State ", NULL ); exit( 1 );
  }
}

References g_land, Skylark_Base::m_CurrentSkState, TALMaSSObject::m_StepDone, toss_Destroy, toss_Initiation, toss_PDeveloping, toss_PDying, toss_PMaturing, and Landscape::Warn().

---

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