c=[40;90];
a=[9 7;7 20];
b=[56 70];
[xl,yl]=IntLp(-c,a,b,[],[],[0;0])
line([0 56/9],[56/7; 0]);hold on;
line([0 70/7],[70/20 0]);
line([0 -yl/40],[-yl/90 0],'color','r');
plot(xl(1),xl(2),'*');
text(xl(1),xl(2)-0.5,['(' num2str(xl) ')']);