clc
clear all
f = [-1; -1];

% zad4
A=[3 -1
    0 3
    1 2];

B=A;
% zad4
b = [1; 1; 1];
lb = [0 0];
ub = [inf inf];
[x, yval] = linprog(f,B,b,[],[],lb,ub);

rozwiazanie_D2 = x/(-yval)
punkt_D2 = 1/-yval

%Gracz 2
G=A';

f=[-1;-1;-1];
b=[1;1];
lb = [0 0 0];
ub = [inf inf inf];
[y, zval] = linprog(-f,-G,-b,[],[],lb,ub);
rozwiazanie_D1 = y/(zval)
punkt_D1 = 1/zval