--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/scripts/optimization/glpktest1	Tue Mar 22 16:18:26 2005 +0000
@@ -0,0 +1,17 @@
+clear;
+
+disp('1st problem');
+s=-1;
+c=[10,6,4]';
+a=[1,1,1;...
+   10,4,5;...
+   2,2,6];
+b=[100,600,300]';
+ctype=['U','U','U']';
+lb=[0,0,0]';
+ub=[]';
+vartype=['C','C','C']';
+param.msglev=3;
+lpsolver=1;
+save_pb=1;
+[xmin,fmin,status,extra]=glpk(s,c,a,b,ctype,lb,ub,vartype,param,lpsolver,save_pb)