Mercurial > hg > octave-nkf

comparison scripts/optimization/glpk.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 4c8a2e4e0717
children 7fad1fad19e1
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
394 394
395 function [xopt, fmin, status, extra] = glpk (c, a, b, lb, ub, ctype, vartype, sense, param) 395 function [xopt, fmin, status, extra] = glpk (c, a, b, lb, ub, ctype, vartype, sense, param)
396 396
397 ## If there is no input output the version and syntax 397 ## If there is no input output the version and syntax
398 if (nargin < 3 || nargin > 9) 398 if (nargin < 3 || nargin > 9)
399 usage ("[xopt, fopt, status, extra] = glpk (c, a, b, lb, ub, ctype, vartype, sense, param)"); 399 print_usage ();
400 return; 400 return;
401 endif 401 endif
402 402
403 if (all (size (c) > 1) || iscomplex (c) || ischar (c)) 403 if (all (size (c) > 1) || iscomplex (c) || ischar (c))
404 error ("C must be a real vector"); 404 error ("C must be a real vector");