package org.opentrafficsim.road.gtu.lane.tactical.lmrs;
   
   import java.util.SortedSet;
   
   import org.djunits.value.vdouble.scalar.Speed;
   import org.opentrafficsim.base.parameters.ParameterException;
   import org.opentrafficsim.base.parameters.Parameters;
   import org.opentrafficsim.core.gtu.GTUType;
   import org.opentrafficsim.core.gtu.Try;
  import org.opentrafficsim.core.gtu.perception.EgoPerception;
  import org.opentrafficsim.core.gtu.plan.operational.OperationalPlanException;
  import org.opentrafficsim.core.network.NetworkException;
  import org.opentrafficsim.core.network.route.Route;
  import org.opentrafficsim.road.gtu.lane.perception.InfrastructureLaneChangeInfo;
  import org.opentrafficsim.road.gtu.lane.perception.LanePerception;
  import org.opentrafficsim.road.gtu.lane.perception.LaneStructureRecord;
  import org.opentrafficsim.road.gtu.lane.perception.RelativeLane;
  import org.opentrafficsim.road.gtu.lane.perception.categories.InfrastructurePerception;
  import org.opentrafficsim.road.gtu.lane.tactical.following.CarFollowingModel;
  import org.opentrafficsim.road.gtu.lane.tactical.util.lmrs.Desire;
  import org.opentrafficsim.road.gtu.lane.tactical.util.lmrs.VoluntaryIncentive;
  
  /**
   * Incentive for trucks to remain on the two right-hand lanes, unless the route requires otherwise.
   * <p>
   * Copyright (c) 2013-2018 Delft University of Technology, PO Box 5, 2600 AA, Delft, the Netherlands. All rights reserved. <br>
   * BSD-style license. See <a href="http://opentrafficsim.org/node/13">OpenTrafficSim License</a>.
   * <p>
   * @version $Revision$, $LastChangedDate$, by $Author$, initial version 4 mrt. 2018 <br>
   * @author <a href="http://www.tbm.tudelft.nl/averbraeck">Alexander Verbraeck</a>
   * @author <a href="http://www.tudelft.nl/pknoppers">Peter Knoppers</a>
   * @author <a href="http://www.transport.citg.tudelft.nl">Wouter Schakel</a>
   */
  public class IncentiveStayRight implements VoluntaryIncentive
  {
  
      /** {@inheritDoc} */
      @Override
      public Desire determineDesire(final Parameters parameters, final LanePerception perception,
              final CarFollowingModel carFollowingModel, final Desire mandatoryDesire, final Desire voluntaryDesire)
              throws ParameterException, OperationalPlanException
      {
          InfrastructurePerception infra = perception.getPerceptionCategory(InfrastructurePerception.class);
          LaneStructureRecord root = perception.getLaneStructure().getRootRecord();
          LaneStructureRecord record = root;
          RelativeLane lane = RelativeLane.CURRENT;
          Route route = Try.assign(() -> perception.getGtu().getStrategicalPlanner().getRoute(), "");
          GTUType gtuType = Try.assign(() -> perception.getGtu().getGTUType(), "");
          Speed speed = perception.getPerceptionCategory(EgoPerception.class).getSpeed();
          // move all the way left
          while (record.physicalLeft())
          {
              lane = lane.getLeft();
              record = record.getLeft();
          }
          // move right until we find 'the right-hand lane',
          double curUrgency = urgency(infra.getInfrastructureLaneChangeInfo(lane), parameters, speed);
          while (true)
          {
              try
              {
                  if (!record.physicalRight() || !record.getRight().allowsRoute(route, gtuType))
                  {
                      // next lane considered not there, we've found 'the right-hand lane'
                      break;
                  }
              }
              catch (NetworkException exception)
              {
                  throw new RuntimeException(exception);
              }
              double rightUrgency = urgency(infra.getInfrastructureLaneChangeInfo(lane.getRight()), parameters, speed);
              if (rightUrgency > curUrgency)
              {
                  // next lane is worse for the route, current lane is allowable for the route
                  break;
              }
              lane = lane.getRight();
              record = record.getRight();
              curUrgency = rightUrgency;
          }
          if (lane.getLateralDirectionality().isRight() && lane.getNumLanes() > 1)
          {
              // must change right
              return new Desire(root.legalLeft() ? -1.0 : 0.0, 1.0);
          }
          if (lane.isRight())
          {
              // must not change left
              return new Desire(root.legalLeft() ? -1.0 : 0.0, 0.0);
          }
          return new Desire(0.0, 0.0);
      }
  
      /**
       * Returns the urgency to leave a lane.
       * @param laneChangeInfo SortedSet&lt;InfrastructureLaneChangeInfo&gt;; lane change info on the lane
       * @param parameters Parameters; parameters
       * @param speed Speed; current speed
      * @return double; urgency to leave the lane
      * @throws ParameterException
      */
     private double urgency(final SortedSet<InfrastructureLaneChangeInfo> laneChangeInfo, final Parameters parameters,
             final Speed speed) throws ParameterException
     {
         double urgency = 0.0;
         for (InfrastructureLaneChangeInfo info : laneChangeInfo)
         {
             double nextUrgency = IncentiveRoute.getDesireToLeave(parameters, info.getRemainingDistance(),
                     info.getRequiredNumberOfLaneChanges(), speed);
             urgency = urgency > nextUrgency ? urgency : nextUrgency;
         }
         return urgency;
     }
 
 }