(* Simulation of Mergers in Homogeneous Products Industries *)

<<Merger`



FirmNames = {"AT&T", "MCI", "Sprint", "Fringe Firm", "Fringe Firm", "Fringe Firm"};

Revenue0 = {.622, .150, .097, .1311/3, .131/3, .131/3}

p0 = {.1661, .1586, .1621, .1621, .1621, .1621}

quantities = (Revenue0/p0)

q0 = quantities/Apply[Plus, quantities]



NumberForm[TableForm[Transpose[

      {{"Firms", FirmNames}, {"P0", p0}, {"Q0", q0}}]], 4]



pbar = p0.q0

n = Length[q0]

HomoProdMerger[{1, 2}, .7, pbar, q0, FirmNames]