(* Cost Allocation Pricing *);



<<Pricing`



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

Cost[{z1, z2, z3}, costfunction1]

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



costfunction2 = CESCostFunction[{10, 10}, {2, 2}, 3]

Plot3D[Cost[{x1, x2}, costfunction2], {x1, 0, 1}, {x2, 0, 1},

  BoxRatios -> {1, 1, 1}, ViewPoint -> {1.3, -2.4, 2}]

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



game3 = StandAloneGame[{1, 1, 1}, costfunction3]

costfunction4 = MultilinearExtension[{1, 1, 1}, game3]

StandAloneGame[{1, 1, 1}, costfunction4]



Cost[{.5, .5, .5}, costfunction3]

Cost[{.5, .5, .5}, costfunction4] // N