(* A Transferable Utility Game and Optimization *);



<<Pricing



T={c,a,b}:Subsets[T];

game1 = IntegerGame[4]

ThreeCityGame = Game[{Paris, Lyon, Touslouse}, {0, 0, 1, 0, 2, 1, 3, 3}]

Values[ThreeCityGame]



Dual[game1]

Dual[ThreeCityGame]

game2 = RealValuedGame[3]

MonotonicCover[game2]

SubadditiveCover[game2]



(* Optimization Preliminaries *)



obj=z1+z2;vars={z1,z2};ineq={};

eq={z1^2+z2^2==2};

KTMax[obj,vars,ineq,eq]

obj=z1^2+z2^2;vars={z1,z2};ineq={};

eq={z1+z2==2};

KTMax[obj,vars,ineq,eq]