// 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)
