Mercurial > octave-nkf

annotate scripts/optimization/glpktest1 @ 20614:10ec79b47808

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use new string_value method to handle value extraction errors * __voronoi__.cc, chol.cc, colamd.cc, fftw.cc: Use new string_value method.
author John W. Eaton <jwe@octave.org>
date Thu, 08 Oct 2015 18:15:56 -0400
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)