(* Subsidy Free Pricing *)



<<Pricing`



game5 = Game[{1, 2, 3}, {0, 2, 2, 2, 3, 3, 3, 3}]

Core[game5]

CoreSelection[{1, 2, 3}, game5]

Core[Game[{1, 2}, {0, 1, 1, 3}]]



game6 = Game[{1, 2, 3}, {0, 2, 1, 1, 2, 2, 2, 5/2}]

Nucleolus[game6]

PerCapitaNucleolus[game6]

costfunction5 = MultilinearExtension[{1, 1, 1}, game6]

SubsidyFreePrices[{1, 1, 1}, costfunction5]

SubsidyFreePriceSelection[{1, 2, 3}, {1, 1, 1}, costfunction5]

NucleolusPrice[{1, 1, 1}, costfunction5]