File: app_lpsolve.cpp

package info (click to toggle)
gfan 0.5%2Bdfsg-6
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 8,348 kB
  • ctags: 5,683
  • sloc: cpp: 39,675; makefile: 454; sh: 1
file content (63 lines) | stat: -rw-r--r-- 1,245 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
#include "vektor.h"
#include "printer.h"
#include "parser.h"
#include "gfanapplication.h"
#include "fieldlp.h"

class LPSolveApplication : public GFanApplication
{
public:
  bool includeInDefaultInstallation()
  {
    return false;
  }
  LPSolveApplication()
  {
    registerOptions();
  }
  const char *name()
  {
    return "_lpsolve";
  }
  int main()
  {
    FileParser P(Stdin);
    FieldMatrix A=integerMatrixToFieldMatrix(rowsToIntegerMatrix(P.parseIntegerVectorList()),Q);
    IntegerVector b0=P.parseIntegerVector();
    FieldVector b=integerVectorToFieldVector(b0,Q);

    FieldLP lp(A,b);
    FieldVector w=integerVectorToFieldVector(P.parseIntegerVector(),Q);
    lp.setObjectiveFunction(w);

    /*    set<int> B;
    for(int i=0;i<3;i++)B.insert(2*i+1);
    lp.setCurrentBasis(B);
    */

    if(!lp.findFeasibleBasis())
      {
	fprintf(Stderr,"LP is infeasible\n");
      }
    else
      {
	int status;
	do
	  {
	    AsciiPrinter Q(Stdout);
	    lp.print(Q);
	    status=lp.step();
	  }
	while(status==1);
	fprintf(Stderr,status?"LP is unbounded.\n":"Optimal solution found.\n");
      }

    return 0;
  }
  const char *helpText()
  {
    return "Test program for FieldLP.\n";
  }
};

static LPSolveApplication theApplication;