Method Inst_ExploitForward5

avida-core/source/cpu/cHardwareCPU.cc:8753–8811

Sense neighboring cells, and rotate and move to the neighbor with the strongest pheromone. If there is no winner, just move forward. This instruction doesn't sense the three cells behind the organism, i.e. the one directly behind, and behind and to the left and right.

// This instruction doesn't sense the three cells behind the organism,
// i.e. the one directly behind, and behind and to the left and right.
bool cHardwareCPU::Inst_ExploitForward5(cAvidaContext& ctx)
{
  int num_rotations = 0;
  double phero_amount = 0;
  double max_pheromone = 0;
  
  cPopulation& pop = m_world->GetPopulation();
  int cellid = m_organism->GetCellID();
  
  if (cellid == -1) {
    return false;
  }
  
  cPopulationCell& mycell = pop.GetCell(cellid);
  cDeme &deme = pop.GetDeme(pop.GetCell(cellid).GetDemeID());
  const cResourceCount& deme_resource_count = deme.GetDemeResourceCount();
  Apto::Array<double> cell_resources;
  
  if ( (m_world->GetConfig().EXPLOIT_EXPLORE_PROB.Get() >= 0) &&
      (ctx.GetRandom().P(m_world->GetConfig().EXPLOIT_EXPLORE_PROB.Get())) ) {
    num_rotations = ctx.GetRandom().GetUInt(m_organism->GetNeighborhoodSize());
  } else {
    // Find which neighbor has the strongest pheromone
    for (int i = 0; i < mycell.ConnectionList().GetSize(); i++) {
      
      // Skip the cells in the back
      if (i == 3 || i == 4 || i == 5) {
        mycell.ConnectionList().CircNext();
        continue;
      }
      
      phero_amount = 0;
      cell_resources = deme_resource_count.GetCellResources(deme.GetRelativeCellID(mycell.GetCellFaced().GetID()), ctx); 
      
      for (int j = 0; j < deme_resource_count.GetSize(); j++) {
        if (strncmp(deme_resource_count.GetResName(j), "pheromone", 9) == 0) {
          phero_amount += cell_resources[j];
        }
      }
      
      if (phero_amount > max_pheromone) {
        num_rotations = i;
        max_pheromone = phero_amount;
      }
      
      mycell.ConnectionList().CircNext();
    }
  }
  
  // Rotate until we face the neighbor with the strongest pheromone.
  // If there was no winner, just move forward.
  for (int i = 0; i < num_rotations; i++) {
    mycell.ConnectionList().CircNext();
  }
  
  m_organism->Move(ctx);
  
  return true;