70/CH8/EX8.2.2/8_2_2.sci


1
2
3
4
5
6
7
8
9
10
11
12
13

//page 238
clear;
close;
clc;
A=[1 0 1 6 2;0 1 1 0 3];
b=[8 9]';
c=[0 0 7 -1 -3]';
lb=[0 0 0 0 0]'
ub=[];
[x,lagr,f]=linpro(c,A,b,lb,ub);
disp(x,'New corner:');
disp(f,'Minimum cost:');
//end