Mercurial > hg > octave-nkf

annotate scripts/optimization/glpktest1 @ 7297:ec1f6f8baf94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-11 21:25:52 by jwe]
author jwe
date Tue, 11 Dec 2007 21:25:53 +0000
parents 652e8aa49fa7
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5237
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
1 clear;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
2
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
3 disp('1st problem');
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
4 s=-1;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
5 c=[10,6,4]';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
6 a=[1,1,1;...
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
7 10,4,5;...
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
8 2,2,6];
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
9 b=[100,600,300]';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
10 ctype=['U','U','U']';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
11 lb=[0,0,0]';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
12 ub=[]';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
13 vartype=['C','C','C']';
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
14 param.msglev=3;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
15 param.lpsolver=1;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
16 param.save=1;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
17 [xmin,fmin,status,extra]=glpk(c,a,b,lb,ub,ctype,vartype,s,param)
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
18 lpsolver = param.lpsolver;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
19 save_pb = param.save;
652e8aa49fa7 [project @ 2005-03-23 21:28:45 by jwe]
jwe
parents: 5232
diff changeset
20 [xmin,fmin,status,extra]=glpkmex(s,c,a,b,ctype,lb,ub,vartype,param,lpsolver,save_pb)