Definition der Auszahlungstabelle

K = {{0,1,3,1},{-1,10,4,2},{7,-2,3,7}};

MatrixForm[K]

Loesung des lin. Opt.-Problems

b = {1,1,1,1};
c = {1,1,1};

lp = LinearProgramming[c,Transpose[K],b]

k0 = N[1/(c.lp)]
p = N[k0*lp]

lq = LinearProgramming[-b,-K,-c]

k0 = N[1/(b.lq)]
q = N[k0 lq]