(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     41532,       1375]
NotebookOptionsPosition[     37170,       1222]
NotebookOutlinePosition[     37508,       1237]
CellTagsIndexPosition[     37465,       1234]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Expected Profit of the Brand-Stretcher", \
"Subtitle"]], "Subsubtitle",
 CellChangeTimes->{{3.421168747027441*^9, 3.421168784025176*^9}}],

Cell[CellGroupData[{

Cell["1.\tMid-Point Location", "Section",
 CellChangeTimes->{{3.421169965183816*^9, 3.4211699715802927`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell"}], "]"}], ";", 
  RowBox[{"Off", "[", 
   RowBox[{"General", "::", "spell1"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.421168789612156*^9, 3.421168813151534*^9}}],

Cell["\<\
Assume that the brand-stretcher enters mid-way between a pair of incumbents.  \
Expected profit if the nearest incumbents survive are:\
\>", "Text",
 CellChangeTimes->{{3.4211688237746468`*^9, 3.421168860888124*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"es1", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     FractionBox["1", "n"], 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox["r", 
       RowBox[{"2", " ", "n"}]]}]], 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", "r"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Alpha]", "-", 
        FractionBox["1", "n"], "+", 
        FractionBox["r", 
         RowBox[{"2", " ", "n"}]]}], ")"}], "2"], 
     RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421168865475143*^9, 3.421168995027944*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"7", " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"48", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{3.421169042431856*^9, 3.4211697831454697`*^9, 
  3.421173728505988*^9, 3.421241827283908*^9, 3.4232231199234133`*^9}]
}, Open  ]],

Cell["Profit assuming that the jth firm survives for j >= 2:", "Text",
 CellChangeTimes->{{3.421169056511757*^9, 3.421169069781135*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"es", "[", "j_", "]"}], ":=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "j"}], "-", "3"}], ")"}], "r"}], 
       RowBox[{"2", " ", "n"}]]}], 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "j"}], "-", "1"}], ")"}], "r"}], 
       RowBox[{"2", " ", "n"}]]}]], 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", "r"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Alpha]", "-", 
        FractionBox["1", "n"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "j"}], "-", "1"}], ")"}], " ", "r"}], 
         RowBox[{"2", " ", "n"}]]}], ")"}], "2"], 
     RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4211690768978662`*^9, 3.421169208455778*^9}, {
  3.421171118850168*^9, 3.4211711225116673`*^9}, {3.4211711928871098`*^9, 
  3.421171197411861*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"es", "[", "j", "]"}]], "Input",
 CellChangeTimes->{{3.421169229488682*^9, 3.421169232327703*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"7", "-", 
     RowBox[{"18", " ", "j"}], "+", 
     RowBox[{"12", " ", 
      SuperscriptBox["j", "2"]}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"6", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{3.421169233523149*^9, 3.421169795229064*^9, 
  3.4211711341178627`*^9, 3.421171208542191*^9, 3.421173728646545*^9, 
  3.421241832998021*^9, 3.423223120049856*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.1\tEven Number of Incumbents", "Subsubtitle",
 CellChangeTimes->{{3.421241487531476*^9, 3.4212414964417*^9}}],

Cell["\<\
Expected profit of the brand-stretcher given that there is an even number of \
incumbents consists of two elements.  First, there is the profit given that \
firms m survive, then there is the monopoly profit given that all incumbents \
exit, when the brand-stretcher's price is the reservation price V and profit \
is V - r/4.\
\>", "Text",
 CellChangeTimes->{{3.4211692536248007`*^9, 3.421169276077189*^9}, {
  3.4211717439750967`*^9, 3.421171748898755*^9}, {3.421171933562909*^9, 
  3.421171938824712*^9}, {3.421241579635314*^9, 3.421241677730196*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esm1", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"es1", "+", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "2"}], 
        RowBox[{"m", "-", "1"}]], 
       RowBox[{"es", "[", "j", "]"}]}]}], "]"}], "/.", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"n", "/", "2"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4211692461056747`*^9, 3.421169246314578*^9}, {
  3.421169284327786*^9, 3.42116930839564*^9}, {3.421169520242593*^9, 
  3.4211695206791773`*^9}, {3.4211695717437353`*^9, 3.4211695943966503`*^9}, {
  3.421169635718308*^9, 3.421169636954135*^9}, {3.421169799925302*^9, 
  3.4211698040804663`*^9}, {3.421171754474983*^9, 3.421171754674326*^9}, {
  3.4211719428877983`*^9, 3.421171943350388*^9}, {3.421241683894327*^9, 
  3.4212417693214817`*^9}, {3.4212418716717043`*^9, 3.421241884944439*^9}, {
  3.421241951208845*^9, 3.4212419592073298`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "57"}], "+", 
     RowBox[{"72", " ", "n"}], "-", 
     RowBox[{"30", " ", 
      SuperscriptBox["n", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["n", "3"]}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"48", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{
  3.4211693105178833`*^9, 3.421169523257313*^9, {3.4211696264741497`*^9, 
   3.42116965033819*^9}, 3.4211698093249903`*^9, 3.421171153084895*^9, 
   3.421171213858679*^9, 3.421171757057543*^9, 3.421171944538994*^9, 
   3.421173728729731*^9, 3.4212418042560463`*^9, 3.421241836510133*^9, 
   3.421241887040015*^9, 3.421241960114769*^9, 3.423223120312117*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esm2", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", 
       RowBox[{
        FractionBox["1", "n"], "+", 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "m"}], "-", "1"}], ")"}], "r"}], 
         RowBox[{"2", " ", "n"}]]}], "1"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"V", "-", 
         FractionBox["r", "4"]}], ")"}], 
       RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}], "/.", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"n", "/", "2"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4212418915359497`*^9, 3.4212419059627333`*^9}, {
  3.4212419636591883`*^9, 3.42124196849482*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "r"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{"4", " ", "V"}]}], ")"}]}], 
  RowBox[{"8", " ", "n"}]]], "Output",
 CellChangeTimes->{3.421241908799367*^9, 3.421241969325124*^9, 
  3.423223120423286*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.2\tOdd Number of Incumbents", "Subsubtitle",
 CellChangeTimes->{{3.4212422567272587`*^9, 3.4212422753572397`*^9}}],

Cell["\<\
When n is odd with n = 2m + 1 we need to add the profit given that firm m + 1 \
survives plus the profit given that firm m + 1 exits and the brand-stretcher \
has a monopoly.\
\>", "Text",
 CellChangeTimes->{{3.421172151309104*^9, 3.421172167500559*^9}, {
  3.421172213751936*^9, 3.4211722184756937`*^9}, {3.421242284157506*^9, 
  3.421242309132251*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esm3", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     SubsuperscriptBox["\[Integral]", 
      RowBox[{
       FractionBox["1", "n"], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "m"}], "-", "1"}], ")"}], "r"}], 
        RowBox[{"2", " ", "n"}]]}], 
      RowBox[{
       FractionBox["1", "n"], "+", 
       FractionBox["r", "2"]}]], 
     RowBox[{
      FractionBox["1", 
       RowBox[{"2", " ", "r"}]], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Alpha]", "-", 
         FractionBox["1", "n"], "+", 
         FractionBox["r", "2"]}], ")"}], "2"], 
      RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "/.", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "2"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421172234487794*^9, 3.4211722821028357`*^9}, {
  3.4211723208515263`*^9, 3.421172388966793*^9}, {3.421242312372167*^9, 
  3.421242312784178*^9}, {3.421242344272582*^9, 3.421242370622445*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"3", " ", "n"}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["n", "2"]}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"6", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{
  3.4211722367370462`*^9, 3.421172394233379*^9, 3.421173729046277*^9, {
   3.4212423359215403`*^9, 3.421242373365655*^9}, 3.423223120943804*^9}]
}, Open  ]],

Cell["This gives the profit:", "Text",
 CellChangeTimes->{{3.421242627813512*^9, 3.421242631396244*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esm4", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"esm1", "+", "esm3"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421242633723695*^9, 3.421242650733861*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "49"}], "+", 
     RowBox[{"48", " ", "n"}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["n", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["n", "3"]}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"48", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{3.421242651668344*^9, 3.423223120986092*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esm5", "=", 
  RowBox[{"Factor", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", 
      RowBox[{
       FractionBox["1", "n"], "+", 
       FractionBox["r", "2"]}], "1"], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"V", "-", 
        FractionBox["r", "4"]}], ")"}], 
      RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421242386892205*^9, 3.421242457636137*^9}, {
  3.42124265579904*^9, 3.421242656385417*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "n"}], "+", 
     RowBox[{"n", " ", "r"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{"4", " ", "V"}]}], ")"}]}], 
  RowBox[{"8", " ", "n"}]]], "Output",
 CellChangeTimes->{3.4212424593025084`*^9, 3.421242657295187*^9, 
  3.423223121067869*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["1.3\tAggregate Profit", "Subsubtitle",
 CellChangeTimes->{{3.421242663786051*^9, 3.42124266980927*^9}}],

Cell["This gives the expected profit function:", "Text",
 CellChangeTimes->{{3.4211724526740723`*^9, 3.421172461013555*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expmp\[Pi]", "[", 
   RowBox[{"n_", ",", "r_", ",", "V_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"OddQ", "[", "n", "]"}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "49"}], "+", 
         RowBox[{"48", " ", "n"}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["n", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["n", "3"]}]}], ")"}], " ", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"48", " ", 
       SuperscriptBox["n", "3"]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "-", 
         RowBox[{"2", " ", "n"}], "+", 
         RowBox[{"n", " ", "r"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", 
         RowBox[{"4", " ", "V"}]}], ")"}]}], 
      RowBox[{"8", " ", "n"}]]}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "57"}], "+", 
         RowBox[{"72", " ", "n"}], "-", 
         RowBox[{"30", " ", 
          SuperscriptBox["n", "2"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["n", "3"]}]}], ")"}], " ", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"48", " ", 
       SuperscriptBox["n", "3"]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "r"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", 
         RowBox[{"4", " ", "V"}]}], ")"}]}], 
      RowBox[{"8", " ", "n"}]]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4211724633915863`*^9, 3.4211725482652082`*^9}, 
   3.421173032568425*^9, {3.421242679348776*^9, 3.421242746551878*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tabmp", "=", 
  RowBox[{"TableForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"expmp\[Pi]", "[", 
       RowBox[{"n", ",", "1", ",", "V"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421173768274045*^9, 3.421173822537674*^9}, {
  3.421242757198669*^9, 3.421242832173346*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"0.11496913580246913`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.041666666666666664`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.0022786458333333335`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.09375`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.09016666666666667`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.075`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.015335648148148149`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.10416666666666667`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.08290816326530612`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.08928571428571429`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.026326497395833332`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.109375`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.08038980338363054`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.09722222222222222`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.034645833333333334`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.1125`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.421173800260635*^9, 3.421173824219738*^9}, {
   3.421242767802039*^9, 3.421242833691011*^9}, 3.423223121162877*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tabmp", "=", 
  RowBox[{"TableForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"expmp\[Pi]", "[", 
       RowBox[{"n", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.42124412415372*^9, 3.421244124352641*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"0.23996913580246915`"},
     {"0.2835286458333333`"},
     {"0.31516666666666665`"},
     {"0.32783564814814814`"},
     {"0.350765306122449`"},
     {"0.3544514973958333`"},
     {"0.3720564700502972`"},
     {"0.37214583333333334`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.421244125354295*^9, 3.4232231212004538`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.\tLocation on Incumbent 1", "Section",
 CellChangeTimes->{{3.421170226092513*^9, 3.42117023346929*^9}}],

Cell["\<\
Assume that the brand-stretcher enters just on incumbent firm 1.  Expected \
profit if the nearest firms j survive is:\
\>", "Text",
 CellChangeTimes->{{3.421170555776209*^9, 3.421170621845551*^9}, 
   3.421242888010652*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"esb", "[", "j_", "]"}], ":=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"j", "-", "1"}], ")"}], "r"}], "n"]}], 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox[
       RowBox[{"j", " ", "r"}], "n"]}]], 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", "r"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Alpha]", "-", 
        FractionBox["1", "n"], "+", 
        FractionBox[
         RowBox[{"j", " ", "r"}], "n"]}], ")"}], "2"], 
     RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.42117064478019*^9, 3.421170650330513*^9}, {
  3.4211706881057987`*^9, 3.421170796123665*^9}, {3.42117085494904*^9, 
  3.421170855573303*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esb", "[", "j", "]"}]], "Input",
 CellChangeTimes->{{3.421170860759597*^9, 3.4211708636209793`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"6", " ", "j"}], "+", 
     RowBox[{"12", " ", 
      SuperscriptBox["j", "2"]}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"6", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{3.421170864997395*^9, 3.421173729219427*^9, 
  3.421243208581593*^9, 3.423223121308547*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.1\tEven Number of Incumbents", "Subsubtitle",
 CellChangeTimes->{{3.421242998882393*^9, 3.421243006522295*^9}}],

Cell["\<\
Expected profit given that n = 2m is made up of two components.  Profit if \
firm m survives is:\
\>", "Text",
 CellChangeTimes->{{3.4211709636814747`*^9, 3.421170982708351*^9}, {
  3.421243013735461*^9, 3.4212430150223827`*^9}, {3.421243053472436*^9, 
  3.4212430864733057`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esbm1", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "m"], 
     RowBox[{"esb", "[", "j", "]"}]}], "/.", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{"n", "/", "2"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421170988516842*^9, 3.421171018834352*^9}, 
   3.421243091674446*^9, {3.421243183274535*^9, 3.4212431980614243`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"3", "+", 
     RowBox[{"2", " ", "n"}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"24", " ", "n"}]]], "Output",
 CellChangeTimes->{
  3.421171020532147*^9, 3.421173729271781*^9, {3.421243200510088*^9, 
   3.421243211857334*^9}, 3.423223121359707*^9}]
}, Open  ]],

Cell["\<\
plus profit if firm m exits, giving the brand-stretcher a monopoly:\
\>", "Text",
 CellChangeTimes->{{3.421243224913726*^9, 3.421243241086363*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esbm2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox["r", "2"]}], "1"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"V", "-", 
       FractionBox["r", "4"]}], ")"}], 
     RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4212432445692453`*^9, 3.4212432886007633`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "+", 
     RowBox[{"n", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "r"}], ")"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{"4", " ", "V"}]}], ")"}]}], 
  RowBox[{"8", " ", "n"}]]], "Output",
 CellChangeTimes->{3.421243290801252*^9, 3.4232231214636583`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.2\tOdd Number of Incumbents", "Subsubtitle",
 CellChangeTimes->{{3.4212433973419447`*^9, 3.421243406149366*^9}}],

Cell["\<\
Now let n = 2m + 1.  Profit of the brand-stretcher is made up of two \
components.  First, there is profit given that firms m survive:\
\>", "Text",
 CellChangeTimes->{{3.421243412647868*^9, 3.421243443924358*^9}, {
  3.421244236042495*^9, 3.421244241301565*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esbm3", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "m"], 
     RowBox[{"esb", "[", "j", "]"}]}], "/.", 
    RowBox[{"m", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"n", "-", "1"}], ")"}], "/", "2"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421243517751706*^9, 3.4212435305006237`*^9}, {
  3.421243625792837*^9, 3.421243625938429*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "n"}]}], ")"}], " ", 
   SuperscriptBox["r", "2"]}], 
  RowBox[{"24", " ", 
   SuperscriptBox["n", "3"]}]]], "Output",
 CellChangeTimes->{3.421243680140403*^9, 3.423223121528172*^9}]
}, Open  ]],

Cell["\<\
Then there is the profit given that firms m exit and the brand-stretcher has \
a monopoly:\
\>", "Text",
 CellChangeTimes->{{3.421243685160976*^9, 3.421243704637331*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"esbm4", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", 
     RowBox[{
      FractionBox["1", "n"], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"n", "-", "1"}], ")"}], "r"}], 
       RowBox[{"2", " ", "n"}]]}], "1"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"V", "-", 
       FractionBox["r", "4"]}], ")"}], 
     RowBox[{"\[DifferentialD]", "\[Alpha]"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421243708285643*^9, 3.421243773115054*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "r"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{"4", " ", "V"}]}], ")"}]}], 
  RowBox[{"8", " ", "n"}]]], "Output",
 CellChangeTimes->{3.421243775017928*^9, 3.4232231215657177`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["2.3\tAggregate Profit", "Subsubtitle",
 CellChangeTimes->{{3.4212438661719418`*^9, 3.421243871938428*^9}}],

Cell["This gives the aggregate profit function:", "Text",
 CellChangeTimes->{{3.4212438949399548`*^9, 3.4212439024753942`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expon\[Pi]", "[", 
   RowBox[{"n_", ",", "r_", ",", "V_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"OddQ", "[", "n", "]"}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "n"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "n"}]}], ")"}], " ", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"24", " ", 
       SuperscriptBox["n", "3"]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "n"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "r"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", 
         RowBox[{"4", " ", "V"}]}], ")"}]}], 
      RowBox[{"8", " ", "n"}]]}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"2", " ", "n"}]}], ")"}], " ", 
       SuperscriptBox["r", "2"]}], 
      RowBox[{"24", " ", "n"}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"n", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "r"}], ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"r", "-", 
         RowBox[{"4", " ", "V"}]}], ")"}]}], 
      RowBox[{"8", " ", "n"}]]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421243925064657*^9, 3.421243989543045*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tabon", "=", 
  RowBox[{"TableForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"expon\[Pi]", "[", 
       RowBox[{"n", ",", "1", ",", "V"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.421243995555867*^9, 3.421244060667918*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"0.043209876543209874`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.08333333333333333`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.11458333333333333`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.0625`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.058666666666666666`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.1`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.10416666666666667`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.08333333333333333`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.06559766763848396`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.10714285714285714`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.09895833333333333`", "\[InvisibleSpace]", "-", 
       RowBox[{"0.09375`", " ", 
        RowBox[{"(", 
         RowBox[{"1.`", "\[InvisibleSpace]", "-", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.0695016003657979`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.1111111111111111`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]},
     {
      RowBox[{"0.09583333333333334`", "\[InvisibleSpace]", "+", 
       RowBox[{"0.1`", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1.`"}], "+", 
          RowBox[{"4.`", " ", "V"}]}], ")"}]}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.421244061574791*^9, 3.423223121634987*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tabon", "=", 
  RowBox[{"TableForm", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{"expon\[Pi]", "[", 
       RowBox[{"n", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.4212440911358*^9, 3.421244091327592*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"0.2932098765432099`"},
     {"0.3020833333333333`"},
     {"0.3586666666666667`"},
     {"0.3541666666666667`"},
     {"0.3870262390670554`"},
     {"0.3802083333333333`"},
     {"0.4028349336991312`"},
     {"0.3958333333333333`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.421244092085986*^9, 3.4232231216821613`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["3.\tComparison", "Subtitle",
 CellChangeTimes->{{3.4212449332818108`*^9, 3.42124493700459*^9}}],

Cell["\<\
Suppose that n is even.  Then the difference in profit between mid-point and \
\"on\" location choice is:\
\>", "Text",
 CellChangeTimes->{{3.4212449429926558`*^9, 3.421244990729751*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"diff1", "=", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"esm1", "-", "esbm1"}], "]"}], "+", 
   RowBox[{"Simplify", "[", 
    RowBox[{"esm2", "-", "esbm2"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.421244962979598*^9, 3.421244968655108*^9}, {
  3.421245000942309*^9, 3.421245034842442*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"19", "-", 
       RowBox[{"24", " ", "n"}], "+", 
       RowBox[{"12", " ", 
        SuperscriptBox["n", "2"]}]}], ")"}], " ", 
     SuperscriptBox["r", "2"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox["n", "3"]}]]}], "-", 
  FractionBox[
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", 
      RowBox[{"4", " ", "V"}]}], ")"}]}], 
   RowBox[{"8", " ", "n"}]]}]], "Output",
 CellChangeTimes->{3.4212450567751207`*^9, 3.423223121731894*^9}]
}, Open  ]],

Cell["\<\
The first term is negative and the second term is positive.  Solve this for \
V:\
\>", "Text",
 CellChangeTimes->{{3.421245419525103*^9, 3.421245435555621*^9}, {
  3.421245466880653*^9, 3.421245472518694*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Vmp", "[", 
   RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
  RowBox[{"V", "/.", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"diff1", "\[Equal]", "0"}], ",", "V"}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.421245477144906*^9, 3.421245516506549*^9}, {
  3.421246623012244*^9, 3.421246629685861*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Vmp", "[", 
  RowBox[{"n", ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.4212466366309233`*^9, 3.421246640185351*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"19", "-", 
     RowBox[{"24", " ", "n"}], "+", 
     RowBox[{"14", " ", 
      SuperscriptBox["n", "2"]}]}], ")"}], " ", "r"}], 
  RowBox[{"8", " ", 
   SuperscriptBox["n", "2"]}]]], "Output",
 CellChangeTimes->{3.4212466411151733`*^9, 3.4232231218257923`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Vmp", "[", 
     RowBox[{"n", ",", "r"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.421246657817911*^9, 3.42124669779862*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1.0138888888888888`", " ", "r"}], ",", 
   RowBox[{"1.1484375`", " ", "r"}], ",", 
   RowBox[{"1.245`", " ", "r"}], ",", 
   RowBox[{"1.3159722222222223`", " ", "r"}], ",", 
   RowBox[{"1.3698979591836735`", " ", "r"}], ",", 
   RowBox[{"1.412109375`", " ", "r"}], ",", 
   RowBox[{"1.4459876543209877`", " ", "r"}], ",", 
   RowBox[{"1.47375`", " ", "r"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.4212466732533703`*^9, 3.421246698636846*^9}, 
   3.4232231218646097`*^9}]
}, Open  ]],

Cell["\<\
Suppose that n is odd.  Then the difference in profit between mid-point and \
\"on\" location choice is:\
\>", "Text",
 CellChangeTimes->{{3.421245102854459*^9, 3.421245134442596*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"diff2", "=", 
  RowBox[{
   RowBox[{"Simplify", "[", 
    RowBox[{"esm4", "-", "esbm3"}], "]"}], "+", 
   RowBox[{"Simplify", "[", 
    RowBox[{"esm5", "-", "esbm4"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.421245138840523*^9, 3.421245176018401*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "17"}], "+", 
      RowBox[{"16", " ", "n"}]}], ")"}], " ", 
    SuperscriptBox["r", "2"]}], 
   RowBox[{"16", " ", 
    SuperscriptBox["n", "3"]}]], "+", 
  FractionBox[
   RowBox[{"r", " ", 
    RowBox[{"(", 
     RowBox[{"r", "-", 
      RowBox[{"4", " ", "V"}]}], ")"}]}], 
   RowBox[{"8", " ", "n"}]]}]], "Output",
 CellChangeTimes->{3.42124517865176*^9, 3.423223121914427*^9}]
}, Open  ]],

Cell["\<\
The first term is positive and the second term is negative.  Solve for V:\
\>", "Text",
 CellChangeTimes->{{3.421245547430695*^9, 3.421245577068777*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Von", "[", 
   RowBox[{"n_", ",", "r_"}], "]"}], ":=", 
  RowBox[{"V", "/.", 
   RowBox[{
    RowBox[{"Simplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"diff2", "\[Equal]", "0"}], ",", "V"}], "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.421245581739901*^9, 3.421245601110767*^9}, {
  3.421246724250164*^9, 3.421246731748951*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Von", "[", 
  RowBox[{"n", ",", "r"}], "]"}]], "Input",
 CellChangeTimes->{{3.421246751974828*^9, 3.42124676124856*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "17"}], "+", 
     RowBox[{"16", " ", "n"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["n", "2"]}]}], ")"}], " ", "r"}], 
  RowBox[{"8", " ", 
   SuperscriptBox["n", "2"]}]]], "Output",
 CellChangeTimes->{3.42124676234897*^9, 3.423223121982382*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Von", "[", 
     RowBox[{"n", ",", "r"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", "3", ",", "10"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.4212467921249228`*^9, 3.421246792835696*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"0.6805555555555556`", " ", "r"}], ",", 
   RowBox[{"0.6171875`", " ", "r"}], ",", 
   RowBox[{"0.565`", " ", "r"}], ",", 
   RowBox[{"0.5243055555555556`", " ", "r"}], ",", 
   RowBox[{"0.4923469387755102`", " ", "r"}], ",", 
   RowBox[{"0.466796875`", " ", "r"}], ",", 
   RowBox[{"0.44598765432098764`", " ", "r"}], ",", 
   RowBox[{"0.42875`", " ", "r"}]}], "}"}]], "Output",
 CellChangeTimes->{3.421246793756481*^9, 3.423223122030191*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{766, 1047},
WindowMargins->{{329, Automatic}, {10, Automatic}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 161, 2, 34, "Subsubtitle"],
Cell[CellGroupData[{
Cell[776, 29, 109, 1, 67, "Section"],
Cell[888, 32, 251, 6, 27, "Input"],
Cell[1142, 40, 226, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[1393, 48, 645, 20, 56, "Input"],
Cell[2041, 70, 282, 7, 50, "Output"]
}, Open  ]],
Cell[2338, 80, 136, 1, 26, "Text"],
Cell[2477, 83, 1210, 38, 58, "Input"],
Cell[CellGroupData[{
Cell[3712, 125, 121, 2, 27, "Input"],
Cell[3836, 129, 467, 13, 52, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4364, 149, 117, 1, 26, "Subsubtitle"],
Cell[4484, 152, 564, 9, 56, "Text"],
Cell[CellGroupData[{
Cell[5073, 165, 953, 20, 58, "Input"],
Cell[6029, 187, 750, 19, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6816, 211, 776, 23, 52, "Input"],
Cell[7595, 236, 408, 14, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8052, 256, 122, 1, 26, "Subsubtitle"],
Cell[8177, 259, 364, 7, 41, "Text"],
Cell[CellGroupData[{
Cell[8566, 270, 1088, 32, 56, "Input"],
Cell[9657, 304, 448, 13, 52, "Output"]
}, Open  ]],
Cell[10120, 320, 104, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[10249, 325, 183, 4, 27, "Input"],
Cell[10435, 331, 435, 14, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10907, 350, 526, 15, 52, "Input"],
Cell[11436, 367, 371, 12, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11856, 385, 109, 1, 26, "Subsubtitle"],
Cell[11968, 388, 124, 1, 26, "Text"],
Cell[12095, 391, 1834, 58, 95, "Input"],
Cell[CellGroupData[{
Cell[13954, 453, 436, 11, 27, "Input"],
Cell[14393, 466, 2561, 67, 153, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16991, 538, 386, 10, 27, "Input"],
Cell[17380, 550, 843, 25, 153, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18260, 580, 111, 1, 67, "Section"],
Cell[18374, 583, 234, 5, 26, "Text"],
Cell[18611, 590, 907, 28, 58, "Input"],
Cell[CellGroupData[{
Cell[19543, 622, 124, 2, 27, "Input"],
Cell[19670, 626, 395, 12, 52, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20126, 645, 119, 1, 26, "Subsubtitle"],
Cell[20248, 648, 290, 6, 26, "Text"],
Cell[CellGroupData[{
Cell[20563, 658, 431, 11, 57, "Input"],
Cell[20997, 671, 334, 10, 47, "Output"]
}, Open  ]],
Cell[21346, 684, 157, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[21528, 691, 439, 13, 52, "Input"],
Cell[21970, 706, 389, 13, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22408, 725, 120, 1, 26, "Subsubtitle"],
Cell[22531, 728, 273, 5, 26, "Text"],
Cell[CellGroupData[{
Cell[22829, 737, 463, 13, 57, "Input"],
Cell[23295, 752, 392, 13, 49, "Output"]
}, Open  ]],
Cell[23702, 768, 180, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[23907, 776, 545, 17, 52, "Input"],
Cell[24455, 795, 385, 13, 45, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[24889, 814, 112, 1, 26, "Subsubtitle"],
Cell[25004, 817, 127, 1, 26, "Text"],
Cell[25134, 820, 1561, 52, 88, "Input"],
Cell[CellGroupData[{
Cell[26720, 876, 387, 10, 27, "Input"],
Cell[27110, 888, 2499, 71, 153, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29646, 964, 385, 10, 27, "Input"],
Cell[30034, 976, 840, 25, 153, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[30923, 1007, 101, 1, 46, "Subtitle"],
Cell[31027, 1010, 197, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[31249, 1018, 327, 8, 27, "Input"],
Cell[31579, 1028, 560, 19, 52, "Output"]
}, Open  ]],
Cell[32154, 1050, 219, 5, 26, "Text"],
Cell[32376, 1057, 437, 12, 27, "Input"],
Cell[CellGroupData[{
Cell[32838, 1073, 147, 3, 27, "Input"],
Cell[32988, 1078, 329, 10, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33354, 1093, 295, 8, 27, "Input"],
Cell[33652, 1103, 525, 12, 27, "Output"]
}, Open  ]],
Cell[34192, 1118, 194, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[34411, 1126, 278, 7, 27, "Input"],
Cell[34692, 1135, 484, 17, 50, "Output"]
}, Open  ]],
Cell[35191, 1155, 163, 3, 26, "Text"],
Cell[35357, 1160, 437, 12, 27, "Input"],
Cell[CellGroupData[{
Cell[35819, 1176, 144, 3, 27, "Input"],
Cell[35966, 1181, 344, 11, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36347, 1197, 298, 8, 27, "Input"],
Cell[36648, 1207, 494, 11, 27, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)