Changeset 1264:92ba3e62825d in lemon-0.x for src/work/athos/lp

Timestamp:

03/25/05 19:56:07 (20 years ago)

Author:

Alpar Juttner

Branch:

default

Phase:

public

Convert:

svn:c9d7d8f5-90d6-0310-b91f-818b3a526b0e/lemon/trunk@1691

Message:

Constraints (expressions containing <= or >=) can be passed to addRow()
and setRow()

Location:

src/work/athos/lp

Files:

• lin_expr.h (modified) (4 diffs)
• lp_base.cc (modified) (1 diff)
• lp_base.h (modified) (4 diffs)
• lp_test.cc (modified) (3 diffs)

src/work/athos/lp/lin_expr.h

@@ -19 +19 @@
 
 #include<vector>
-
-
 #include<map>
-
+#include<lemon/utility.h>
 ///\file
 ///\brief Classes to handle linear expressions
@@ -40 +38 @@
     Coeff const_comp;
   public:
+    typedef True IsLinExpression;
     ///\e
     SparseLinExpr() : Base(), const_comp(0) { }
@@ -263 +262 @@
   ///
   template <class V>
+  SparseLinExpr<V> operator+(const V &v,const typename V::ExprValue &c) {
+    SparseLinExpr<V> tmp(v);
+    tmp.constComp()=c;
+    return tmp;
+  }
+
+  ///\e
+  
+  ///\relates SparseLinExpr
+  ///
+  template <class V>
+  SparseLinExpr<V> operator-(const V &v,const typename V::ExprValue &c) {
+    SparseLinExpr<V> tmp(v);
+    tmp.constComp()=-c;
+    return tmp;
+  }
+
+  ///\e
+  
+  ///\relates SparseLinExpr
+  ///
+  template <class V>
+  SparseLinExpr<V> operator+(const typename V::ExprValue &c,const V &v) {
+    SparseLinExpr<V> tmp(v);
+    tmp.constComp()=c;
+    return tmp;
+  }
+
+  ///\e
+  
+  ///\relates SparseLinExpr
+  ///
+  template <class V>
+  SparseLinExpr<V> operator-(const typename V::ExprValue &c,const V &v) {
+    SparseLinExpr<V> tmp(c);
+    tmp[v]=-1;
+    return tmp;
+  }
+
+  ///\e
+  
+  ///\relates SparseLinExpr
+  ///
+  template <class V>
   SparseLinExpr<V> operator+(const V &v1,const V &v2) {
     SparseLinExpr<V> tmp(v1);
@@ -303 +346 @@
 
 
+  //////////////////////////////////////////////////////////////////////
+  /// Constraints
+  //////////////////////////////////////////////////////////////////////
+  
+  template <class E>
+  class LinConstr
+  {
+  public:
+    typedef E Expr;
+    typedef typename E::Var Var;
+    typedef typename E::Coeff Coeff;
+    
+    static const Coeff INF;
+    static const Coeff NaN;
+//     static const Coeff INF=0;
+//     static const Coeff NaN=1;
+
+    Expr expr;
+    Coeff lb,ub;
+    
+    LinConstr() : expr(), lb(NaN), ub(NaN) {}
+    LinConstr(Coeff _lb,const Expr &e,Coeff _ub) :
+      expr(e), lb(_lb), ub(_ub) {}
+    LinConstr(const Expr &e,Coeff _ub) : 
+      expr(e), lb(NaN), ub(_ub) {}
+    LinConstr(Coeff _lb,const Expr &e) :
+      expr(e), lb(_lb), ub(NaN) {}
+  };
+
+  template<class E>
+  const typename LinConstr<E>::Coeff LinConstr<E>::INF=
+    std::numeric_limits<Coeff>::infinity();
+  template<class E>
+  const typename LinConstr<E>::Coeff LinConstr<E>::NaN=
+    std::numeric_limits<Coeff>::quiet_NaN();
+
+  
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator<=(const E &e,const E &f) 
+  {
+    return LinConstr<E>(-LinConstr<E>::INF,e-f,0);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator>=(const E &e,const E &f) 
+  {
+    return LinConstr<E>(-LinConstr<E>::INF,f-e,0);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator==(const E &e,const E &f) 
+  {
+    return LinConstr<E>(0,e-f,0);
+  }
+  
+  //////////////////////////////
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator<=(const E &e,const typename E::Coeff &n) 
+  {
+    return LinConstr<E>(e,n);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator>=(const E &e,const typename E::Coeff &n) 
+  {
+    return LinConstr<E>(n,e);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator==(const E &e,const typename E::Coeff &n) 
+  {
+    return LinConstr<E>(n,e,n);
+  }
+
+  //////////////////////////////
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator<=(const typename E::Coeff &n,const E &e) 
+  {
+    return LinConstr<E>(n,e);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator>=(const typename E::Coeff &n,const E &e) 
+  {
+    return LinConstr<E>(e,n);
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator==(const typename E::Coeff &n,const E &e) 
+  {
+    return LinConstr<E>(n,e,n);
+  }
+
+  //////////////////////////////
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator<=(const typename E::Coeff &n,const LinConstr<E> &c) 
+  {
+    LinConstr<E> tmp(c);
+    if(tmp.lb!=tmp.NaN) throw LogicError();
+    else tmp.lb=n;
+    return tmp;
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator>=(const typename E::Coeff &n,const LinConstr<E> &c) 
+  {
+    LinConstr<E> tmp(c);
+    if(tmp.ub!=tmp.NaN) throw LogicError();
+    else tmp.ub=n;
+    return tmp;
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator<=(const LinConstr<E> &c,const typename E::Coeff &n) 
+  {
+    LinConstr<E> tmp(c);
+    if(tmp.ub!=tmp.NaN) throw LogicError();
+    else tmp.ub=n;
+    return tmp;
+  }
+
+  template<class E>
+  typename enable_if<typename E::IsLinExpression, LinConstr<E> >::type
+  operator>=(const LinConstr<E> &c,const typename E::Coeff &n) 
+  {
+    LinConstr<E> tmp(c);
+    if(tmp.lb!=tmp.NaN) throw LogicError();
+    else tmp.lb=n;
+    return tmp;
+  }
+
+  
+
 } //namespace lemon
 

src/work/athos/lp/lp_base.cc

@@ -23 +23 @@
   const LpSolverBase::Value
   LpSolverBase::INF = std::numeric_limits<Value>::infinity();
+  const LpSolverBase::Value
+  LpSolverBase::NaN = std::numeric_limits<Value>::quiet_NaN();
 
 

src/work/athos/lp/lp_base.h

@@ -117 +117 @@
     ///The infinity constant
     static const Value INF;
+    ///The not a number constant
+    static const Value NaN;
     
     ///Refer to a column of the LP.
@@ -168 +170 @@
     ///Linear expression
     typedef SparseLinExpr<Col> Expr;
+    ///Linear constraint
+    typedef LinConstr<Expr> Constr;
 
   protected:
@@ -319 +323 @@
     }
 
+    ///Set a row (i.e a constaint) of the LP
+
+    ///\param r is the row to be modified
+    ///\param c is a linear expression (see \ref Constr)
+    ///\bug This is a temportary function. The interface will change to
+    ///a better one.
+    void setRow(Row r, const Constr &c) {
+      Value lb= c.lb==NaN?-INF:lb;
+      Value ub= c.ub==NaN?INF:lb;
+      setRow(r,lb,c.expr,ub);
+    }
+
     ///Add a new row (i.e a new constaint) to the LP
 
@@ -333 +349 @@
     }
 
+    ///Add a new row (i.e a new constaint) to the LP
+
+    ///\param c is a linear expression (see \ref Constr)
+    ///\return The created row.
+    ///\bug This is a temportary function. The interface will change to
+    ///a better one.
+    Row addRow(const Constr &c) {
+      Row r=addRow();
+      setRow(r,c);
+      return r;
+    }
+
     /// Set the lower bound of a column (i.e a variable)
 

src/work/athos/lp/lp_test.cc

@@ -1 +1 @@
 #include"lp_solver_skeleton.h"
 #include"lp_glpk.h"
+#include<lemon/list_graph.h>
 
 using namespace lemon;
@@ -37 +38 @@
   lp.addRow(LP::INF,3.0*(p1+p2*2-5*p3+12-p4/3)+2*p4-4,23);
   lp.addRow(LP::INF,3.0*(x[1]+x[2]*2-5*x[3]+12-x[4]/3)+2*x[4]-4,23);
+
+  lp.addRow(x[1]+x[3]<=x[5]-3);
+  lp.addRow(-7<=x[1]+x[3]-12<=3);
 }
 
+
+template<class G,class C>
+double maxFlow(const G &g,const C &cap,typename G::Node s,typename G::Node t)
+{
+  LpGlpk lp;
+  
+  typedef G Graph;
+  typedef typename G::Node Node;
+  typedef typename G::NodeIt NodeIt;
+  typedef typename G::Edge Edge;
+  typedef typename G::EdgeIt EdgeIt;
+  typedef typename G::OutEdgeIt OutEdgeIt;
+  typedef typename G::InEdgeIt InEdgeIt;
+  
+  typename G::EdgeMap<LpGlpk::Col> x(g);
+  // lp.addColSet(x);
+  for(EdgeIt e(g);e!=INVALID;++e) x[e]=lp.addCol();
+  
+  for(EdgeIt e(g);e!=INVALID;++e) {
+    lp.setColUpperBound(x[e],cap[e]);
+    lp.setColLowerBound(x[e],0);
+  }
+
+  for(NodeIt n(g);n!=INVALID;++n) if(n!=s&&n!=t) {
+    LpGlpk::Expr ex;
+    for(InEdgeIt  e(g,n);e!=INVALID;++e) ex+=x[e];
+    for(OutEdgeIt e(g,n);e!=INVALID;++e) ex-=x[e];
+    lp.addRow(0,ex,0);
+  }
+  {
+    LpGlpk::Expr ex;
+    for(InEdgeIt  e(g,t);e!=INVALID;++e) ex+=x[e];
+    for(OutEdgeIt e(g,t);e!=INVALID;++e) ex-=x[e];
+    lp.setObj(ex);
+  }
+
+  lp.solve();
+
+  return 0;
+}
 
 int main() 
@@ -47 +91 @@
   lpTest(lp_skel);
   lpTest(lp_glpk);
+
+  ListGraph g;
+  ListGraph::EdgeMap<double> cap(g);
+  
+  maxFlow(g,cap,ListGraph::NodeIt(g),ListGraph::NodeIt(g));
+
 }