(* Inputs to the Simulation *)

<<Merger`



firmData = {FirmNames = {"NTT", "DDI", "Telecom", "Teleway", "No Purchase"}, 

    p0 = {1., .9, .9, .9, 0}, q0 = {.865, .088, .043, .004, 0}}

demandData = {b = 9.557, e = .62}

NumberForm[TableForm[Transpose[

      {{"firm", FirmNames}, {"price", p0}, {"market share", 

          q0}, {"choice prob.", q00 = ChoiceProbabilities[b, p0, q0, e]}}]], 3]