(* Axiomatic Pricing *)



<<Pricing`



game1 = IntegerGame[4];

game4 = MonotonicCover[game1]

costfunction1 = CostFunction[{x1, x2, x3}, x1^2 + (x2 + x3)^3];

costfunction3 = CESCostFunction[{1, 2, 3}, {.4, .5, .6}, 2];



ShapleyValue[game4]

ShapleyValue[{1, 2, 3, 4}, game4]

CSValue[{{1, 2}, {3, 4}}, game4]

SCRB[game4]



SymmetricPrice[output_, c_CostFunction] :=

  Table[Cost[output, c]/Plus @@ output, {Length[output]}]

SymmetricSharePrice[output_, c_CostFunction] :=

  (1/Length[Select[output, Positive]])*

    Table[Cost[output, c], {Length[output]}]/(output /. 

          x_ /; x == 0 -> Infinity)



SymmetricPrice[{.1, .2, .3}, costfunction1]

SymmetricSharePrice[{.1, .2, .3}, costfunction1]

AumannShapleyPrice[{2, 1, 3}, {1, 1, 1}, costfunction1]

ShapleyValuePrice[{2, 1, 3}, {1, 1, 1}, costfunction1] // N

ShapleyValuePrice[{1, 1, 1}, costfunction3] // N

AumannShapleyPrice[{1, 1, 1}, costfunction3]