control-pd.cpp

Go to the documentation of this file.

/*
 * Copyright 2010,
 * François Bleibel,
 * Olivier Stasse,
 *
 * CNRS/AIST
 *
 */
 
/* SOT */
#include <sot/core/control-pd.hh>
 
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
#include <dynamic-graph/factory.h>
 
#include <sot/core/debug.hh>
 
using namespace dynamicgraph::sot;
using namespace dynamicgraph;
 
DYNAMICGRAPH_FACTORY_ENTITY_PLUGIN(ControlPD, "ControlPD");
 
const double ControlPD::TIME_STEP_DEFAULT = .001;
 
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
 
#define __SOT_ControlPD_INIT
 
ControlPD::ControlPD(const std::string &name)
    : Entity(name),
      TimeStep(0),
      KpSIN(NULL, "ControlPD(" + name + ")::input(vector)::Kp"),
      KdSIN(NULL, "ControlPD(" + name + ")::input(vector)::Kd"),
      positionSIN(NULL, "ControlPD(" + name + ")::input(vector)::position"),
      desiredpositionSIN(
          NULL, "ControlPD(" + name + ")::input(vector)::desired_position"),
      velocitySIN(NULL, "ControlPD(" + name + ")::input(vector)::velocity"),
      desiredvelocitySIN(
          NULL, "ControlPD(" + name + ")::input(vector)::desired_velocity"),
      controlSOUT(boost::bind(&ControlPD::computeControl, this, _1, _2),
                  KpSIN << KdSIN << positionSIN << desiredpositionSIN
                        << velocitySIN << desiredvelocitySIN,
                  "ControlPD(" + name + ")::output(vector)::control"),
      positionErrorSOUT(
          boost::bind(&ControlPD::getPositionError, this, _1, _2), controlSOUT,
          "ControlPD(" + name + ")::output(vector)::position_error"),
      velocityErrorSOUT(
          boost::bind(&ControlPD::getVelocityError, this, _1, _2), controlSOUT,
          "ControlPD(" + name + ")::output(vector)::velocity_error") {
  init(TimeStep);
  Entity::signalRegistration(KpSIN << KdSIN << positionSIN << desiredpositionSIN
                                   << velocitySIN << desiredvelocitySIN
                                   << controlSOUT << positionErrorSOUT
                                   << velocityErrorSOUT);
}
 
void ControlPD::init(const double &Stept) {
  TimeStep = Stept;
 
  return;
}
 
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
 
void ControlPD::display(std::ostream &os) const {
  os << "ControlPD " << getName();
  try {
    os << "control = " << controlSOUT;
  } catch (const ExceptionSignal &e) {
  }
  os << " (" << TimeStep << ") ";
}
 
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
/* --------------------------------------------------------------------- */
 
dynamicgraph::Vector &ControlPD::computeControl(dynamicgraph::Vector &tau,
                                                sigtime_t t) {
  sotDEBUGIN(15);
  const dynamicgraph::Vector &Kp = KpSIN(t);
  const dynamicgraph::Vector &Kd = KdSIN(t);
  const dynamicgraph::Vector &position = positionSIN(t);
  const dynamicgraph::Vector &desired_position = desiredpositionSIN(t);
  const dynamicgraph::Vector &velocity = velocitySIN(t);
  const dynamicgraph::Vector &desired_velocity = desiredvelocitySIN(t);
 
  dynamicgraph::Vector::Index size = Kp.size();
  tau.resize(size);
  position_error_.resize(size);
  velocity_error_.resize(size);
 
  position_error_.array() = desired_position.array() - position.array();
  velocity_error_.array() = desired_velocity.array() - velocity.array();
 
  tau.array() = position_error_.array() * Kp.array() +
                velocity_error_.array() * Kd.array();
 
  sotDEBUGOUT(15);
  return tau;
}
 
dynamicgraph::Vector &ControlPD::getPositionError(
    dynamicgraph::Vector &position_error, sigtime_t t) {
  // sotDEBUGOUT(15) ??
  controlSOUT(t);
  position_error = position_error_;
  return position_error;
}
 
dynamicgraph::Vector &ControlPD::getVelocityError(
    dynamicgraph::Vector &velocity_error, sigtime_t t) {
  controlSOUT(t);
  velocity_error = velocity_error_;
  return velocity_error;
}