% Exemplo do algoritmo de Karmarkar
% Edgar & Himmelblau, 1988
% 
%  min c'x 
%      A x = b
%       x >= 0

c=[1; 2; 3];
A=[1  1  1];
b=1;
x0=[1/3; 1/3; 1/3]

plot3([1;0;0;1],[0;1;0;0],[0;0;1;0],'-b'); hold on

[xo,Ot,nS,lambda]=karmarkar(c,x0,A,b,[],[],1)
